VB 积分 from baidu

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