module1.bas

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

Attribute VB_Name = "Module1"
Public Const Max = 100
Public x(Max) As Double
Public Judge As Integer
Public y(Max) As Double
Public Tm As Double
Public z As Double
Public S(Max, 4) As Double
Public w As Integer
Sub main()
Form1.Show
Form2.Hide
End Sub