module1.bas

计算方法的VB程序

Attribute VB_Name = "Module1"
Public Const TOL = 0.0001
Public Const MAX = 1000
Public A(MAX, MAX) As Double
Public M(MAX, MAX) As Double
Public x0(MAX) As Double
Public k As Integer
Public B(MAX) As Double
Public T As Integer
Public w1 As Integer
Sub Main()
Form1.Show
Form2.Hide
End Sub