module1.bas

计算方法的VB程序

Attribute VB_Name = "Module1"
Public Const Max = 100
Public Const Pi = 3.14159265354
Public n As Integer
Public e As Double
Public x0 As Double
Public p As Double
Public tm As Double
Public c(Max) As Double
Public Function f(x As Double)
f = Exp(x)
End Function
Public Function d(x As Integer)
d = Pi / (2 * n + 2)
End Function
Sub main()
Form1.Show
Form2.Hide
End Sub