module1.bas

计算方法的VB程序

Attribute VB_Name = "Module1"
Public Const Max = 1000
Public Const Pre = 0.00001
Public tm As Double
Public k As Integer
Public s(Max) As Double
Public Function f(x As Double)
f = x * x * x - x - 1
End Function
Public Function df(x As Double)
df = 3 * x * x
End Function
Sub main()
Form1.Show
Form2.Hide
End Sub