module1.bas

来自「计算方法的VB程序」· BAS 代码 · 共 26 行

Attribute VB_Name = "Module1"
Public Const Max = 100
Public a As Double
Public b As Double
Public R(Max, Max) As Double
Public N As Integer
Public kk As Integer
Public Tm As Double
Public Const tol = 0.00001

Public Function f(x As Double)
f = 1 + Exp(-x) * Sin(4 * x)
End Function
Public Function pow(x As Double, k As Integer)
Dim pp As Double
pp = 1
For i = 1 To k
pp = x * pp
Next i
pow = pp
End Function
Sub main()
Form1.Show
Form2.Hide
End Sub