UC知道VB：看看哪里错了
来源：百度知道 编辑：UC知道 时间：2024/05/20 11:33:04
Private Sub Command1_Click()
Dim a, b, s As Double
a = Text1.Text
b = Text2.Text
s = 0
Do While a <= b
s = s + a
a = a + e1
Loop
MsgBox "总和为：" & s
End Sub
O(∩_∩)O谢谢
Dim a, b, s As Double
a = Text1.Text
b = Text2.Text
s = 0
Do While a <= b
s = s + a
a = a + e1
Loop
MsgBox "总和为：" & s
End Sub
O(∩_∩)O谢谢
Private Sub Command1_Click()
Dim a As Double, b As Double, s As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
s = 0
Do While a <= b
s = s + a
a = a + e1 'e1值没指明。 默认为0 如果输入a 值 比 b小就死循环了
Loop
MsgBox "总和为：" & s
End Sub
e1是什么啊
哎~~
我说你不能那样定义（Dim a, b, s As Double）
我觉着第二位回答的比较明确。
但也有不足指出。
可能不是吧，你给的条件不足是吧。。
。。。