复件 module1.bas

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

Attribute VB_Name = "Module1"
Public Const Max = 100
Public a As Double
Public b As Double
Public y(Max) As Double
Public N As Integer
Public t(Max) As Double
Public x(Max) As Double
Public Tm As Double
Public z As Double
Public y0 As Double
Public z0 As Double
Public zz As Double
Public Const tol = 0.00001
Public Function f(x1 As Double, x2 As Double)
f = (x1 - x2) / 2
End Function

Sub main()
Form1.Show
Form2.Hide
End Sub