然后,执行IF语句,通过左侧可以看到「单元格C3=1447」,大于1000,因此接着执行下一句。 最终将第1个判断结果写入到D3单元格内。 直到程序执行到,「i = 13」时,通过作图看到「单元格C13 = ""」,此时跳出WHILE循环,由于下面没有其他语句,所以执行End Sub程序结束。 3.总结 1)通过以上案例可以发现,当我们无法预知...
Do While I < 10 'I小于10时,循环继续 I = I + 1 '累加I变量值 Loop End Sub 2.Do…Loop While条件 先进入循环体执行一次,然后再判断是否满足条件,例如: Sub doWhile2() Dim I As Integer Do I = I + 1 '累加I变量值 Loop While I < 10 'I小于10时,循环继续 End Sub 3.Do until条件…Lo...
Do While Cells(rs, 1) <> "" '当单元格不等于空时,则循环 If Cells(rs, 1) <> "" Then Cells(rs, 3) = Mid(Cells(rs, 1), 2, 1) '如果第1列长度为4,在该行第3列中取,从第2字取长度为1字符。 rs = rs + 1 Loop '循环 End Sub 一直循环到没有内容为止 Private Sub CommandButton1...
Do While循环 基本结构：Do While 条件（条件为真，继续执行循环） ...Loop 我们举一个例子：Sub DoWhile循环() Dim m As Integer Do While m < 100 m = m + 1 Debug.Print m LoopEnd Sub Do Until循环 基本结构：Do Until 条件（条件为真，退出循环） ...Loop 我们举一个例...
Dim i As IntegerDim sum As Integeri = 1Do While i <= 10sum = sum + ii = i + 1LoopEnd Sub i 变量的初始值是 1，根据 While 后的条件，只要 i 变量小于等于 10，后续的代码就可以一直循环执行。这里为了演示使用了 Do While 循环，实际情况下，这种求和问题，使用 For 循环更简洁。Do … Loop...
Negative 计数器>= end循环中的所有语句均执行完毕后,counter 将会增加 step。 此时,要么再次执行循环中的语句(基于导致循环最初执行的同一测试),要么退出循环并继续执行 Next 语句后面的语句。提示 仍处于循环中时更改 counter 的值可能会增加读取和调试代码的难度。任意...
While...Wend Width # 使用 Write # Visual Basic 加载项模型 用户界面帮助 术语表 库参考 使用英语阅读 保存 添加到集合 添加到计划 通过 Facebookx.com 共享LinkedIn电子邮件 End 语句 项目 2023/04/07 9 个参与者 反馈 本文内容 语法 备注 示例 ...
While...Wend Width # 使用 Write # Visual Basic 加载项模型 用户界面帮助 术语表 库参考 使用英语阅读 保存 添加到集合 添加到计划 通过 Facebookx.com 共享LinkedIn电子邮件 打印 End 语句 项目 2023/04/07 9 个参与者 反馈 本文内容 语法 备注 ...
：Sub 循环2()Dim a%a = 1Do While Cells(a, 1) <> ""a = a + 1If Cells(a, 1) >= 90 ThenCells(a, 2) = "优秀"ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"ElseCells(a, 2) = "较差"End IfLoopEnd ...
此示例使用“While...Wend”语句来增加计数器变量。 只要条件的计算结果为“True”,就将执行循环中的语句。 VB复制 DimCounter Counter =0' Initialize variable.WhileCounter <20' Test value of Counter.Counter = Counter +1' Increment Counter.Wend' End While loop when Counter > 19.Debug.Print Counter'...