Private Sub Constant_demo_Click()Dim a As Integera = 10For i = 0 To a Step 2 'i is the counter variable and it is incremented by 2MsgBox ("The value is i is : " & i)If i = 4 Theni = i * 10 'This is executed only if i=4MsgBox ("The value is i is : " & i)Exit For 'Exited when i=4End IfNextEnd Sub
1.5.6 Exit Do语句
当想要根据特定标准退出Do循环时 ， 可使用Exit Do语句 。它可以同时用于Do…While和Do…Until直到循环 。
当Exit Do被执行时 ， 控制器在Do循环之后立即跳转到下一个语句 。
【VBA基础学习之1.5循环语句】Private Sub Constant_demo_Click()i = 0Do While i <= 100If i > 10 ThenExit Do' Loop Exits if i>10End IfMsgBox ("The Value of i is : " & i)i = i + 2LoopEnd Sub

• 文学好书榜|2023年5月榜单出炉！ 世界十大文学
• [数]被数学淹没不知所措
• 人可以多久不休息？一美国学生靠毅力撑了264小时，结果如何了？ 吉尼斯记录浪费
• 寺湾一校一品：罗岗中心小学：感恩润泽心灵，特色铸就品牌 六 世界之最手抄报
• 专家学者：英语是世界上最伟大的语言，汉语就不应该存在！ 世界之最英语
• 中石油管道焊接学徒,供热管道焊接要求
• 纯文学期刊排名,有哪些純文學的雜誌？
• 皇后求子为何遭唐玄宗废黜？咒语称要学武则天
• 歌唱家金婷婷歌唱技法优缺点分析及其学习注意事项 金婷婷的中国之最
• 拜登带美军雄踞世界！媚外学者狂捧中国粉丝高喊“伟大总统” 拜登历史之最