Question

谁帮把vb这个代码写进去 帮看看结果是什么 text1填1 text2填100

Private Sub Command1_Click()
Dim a, b, s, i As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
s = 0
i = a
Do While i <= b
s = s + 1
i = i + 1
Loop
MsgBox "结果" & s

End Sub
为什么 教学视频里是5050 我照抄的啊

Answer 1

你可能看错了。把s=s+1改为s=s+i结果就是5050，否则是100。

Answer 2

Sub kk()
'辩谈搜text1填1 text2填100
Dim a, b, s, i As Integer
a = Val("侍孝1")
b = Val("100")
s = 0
i = a
Do While i <= b
s = s + 1
i = i + 1
Loop
MsgBox "结果S== " & s & "携历; i== " & i
End Sub

结果S== 100; i== 101

Answer 3

结果S== 100; i== 101

Answer 4

结果是：
结果100

Answer 5

98