摘要： 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(" 阅读全文