UC知道这段VB程序什么意思
来源：百度知道 编辑：UC知道 时间：2024/06/01 23:07:06
Private Sub Command1_Click()
Dim sum As Integer
sum = 0
Dim counter As Integer
counter = 0
Do While sum < 100
sum = sum + CInt(Textbox1.Text)
counter = counter + 1
Loop
MsgBox ("The loop has run " & CStr(counter) & " times!")
End Sub
在文本框中输入1，运行结果为the loop run 100 times!
输入2，结果为the loop run 50 times!
还是不大明白。
Dim sum As Integer
sum = 0
Dim counter As Integer
counter = 0
Do While sum < 100
sum = sum + CInt(Textbox1.Text)
counter = counter + 1
Loop
MsgBox ("The loop has run " & CStr(counter) & " times!")
End Sub
在文本框中输入1，运行结果为the loop run 100 times!
输入2，结果为the loop run 50 times!
还是不大明白。
【补充】
你输入1，sum变量的变化情况就是：0，1，2，3，4……99。当然执行了100次。
你输入2，sum变量的变化情况就是：0，2，4，6……98。执行了5×10=50次。
因为每次sum变量要加上textbox1里面的数值，所以你输入2，就跳过了所有奇数。
要是还不明白，我也没办法了……
（要你VB基础都不过关，那另当别论。）
【一楼你个白痴……人家根本就没有输出sum】
界面上一定有个textbox1控件，是用来由用户设置步长的。
变量sum最初为0，在sum变量小于100时执行循环体。每执行一次循环sum的数值会加上textbox1里面的数字（四舍五入，确保是整数），并且用counter变量记录循环执行的次数。
最后循环结束后，用消息框告知用户循环共执行了多少次。
等效于求100 \ Textbox1.Text + IIf(100 Mod Textbox1.Text, 1, 0)的值，即Textbox1中的数字的几倍大于等于100的最小倍数。
Textbox1.Text加几次才大于等于100
从0开始每次加Textbox1中输入的数，判断加多少次(counter)后大于等于100