vb 辛普森法求积分 我要具体能运行的代码

Private Sub Command1_Click()

Dim 下限 As Single, 上限 As Single, 允许误差 As Single, 实际误差 As Single, 分条 As Integer

下限 = Val(InputBox("请输入积分下限"))

上限 = Val(InputBox("请输入积分上限"))

If 下限 >上限 Then

MsgBox "下限高于上限。怀疑输入手误。程序自动交换"

t = 下限

下限 = 上限

上限 = t

End If

允许误差 = Val(InputBox("请输入允许误差"))

Print "积分下限："下限

Print "积分上限："上限

Print "允许误差为："允许误差

Print "积分结果为："积分(下限, 上限, 允许误差, 实际误差, 分条)

Print "划分梯形个数："分条

Print "截断误差为："实际误差

End Sub

Private Function 积分(下限 As Single, 上限 As Single, 误差要求 As Single, 误差 As Single, 块数 As Integer)

Dim p As Single

块数 = 2

积分值 = 0

步长 = (上限 - 下限) / 块数

p = 函数(下限) + 函数(上限)

d = 函数(下限 + 步长)

Do

s = (p + 4 * d) * 步长 / 3

误差 = Abs(s - 积分值)

If 误差 <= 误差要求 And 块数 >100 Then Exit Do

块数 = 块数 * 2

步长 = (上限 - 下限) / 块数

积分值 = s

p = p + 2 * d

d = 0

For i = 1 To 块数 - 1 Step 2

d = d + 函数(下限 + i * 步长)

Next i

Loop

积分 = s

End Function

Private Function 函数(自变量 As Single) '这个函数的内容是要你自己修改的

函数 = 自变量 * 自变量

End Function

Dim num As Double '消费

Dim numJf As Double '积分

Dim num1 As Double

num = CDbl(Trim(txtBkzf.Text))

num1 = Int(num / 10)

numJf = IIf(num1 <0, 0, num1)

Dim strSql As String

strSql = "update card set jf=jf+" &numJf &" where card ='" &CardId &"'"

---