module1.bas

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

Attribute VB_Name = "Module1"
Public Const h = 0.001
Public Const Max = 5
Public tm As Double
Public s(Max), er(Max) As Double
Public x0 As Double
Public z As Double
Public a(Max, Max) As Double

Sub main()
Form1.Show
Form2.Hide
End Sub
Public Function f(x As Double)
f = Cos(x)
End Function