Private Sub Form_Click()
Dim i As Integer
Dim mysum As Integer
Dim myval As Integer

myval = Val(InputBox("请输入一个不大与256的整数"))

Do
 i = i + 1
 mysum = sysum + 1
 Loop While i < myval
 Print mysum

End Sub

能不能帮解释下`为什么运行结果只是0呢``谢谢了`

[[it] 本帖最后由 早睡早起 于 2008-4-20 22:37 编辑 [/it]]

其实运行结果是1

你认真看看你的DO循环内部用了一个什么变量，用了一个还没有定义的变量sysum

也许你的初衷是mysum = mysum + 1,但是你没注意到。

Private Sub Form_Click()
Dim i As Integer
Dim mysum As Integer
Dim myval As Integer

myval = Val(InputBox("请输入一个不大与256的整数"))

Do
i = i + 1
mysum = sysum + i
Loop While i < myval
Print mysum

End Sub
这样写就对了`主要是我想知道判断条件到底在那个位置`看来我又马虎了```

早睡早起精神好`继续努力```