循环语句:do......Loop的使用方法及其基本案例说明。
工具/原料
Excel软件
方法/步骤
1、do.....Loop:循环语句,直至满足条件后退出。
2、在外狒芙梨VBE中编写代码:SubdoLoop()Dima%Doa=a+1Ifa>10ThenDebug.Print("a已经超过10了荑樊综鲶,该停止了!")ExitDoEndIfLoopEndSub功能为:当a超过10时,将退出该程序。
3、运行该代码,运行11次时,将输出a已经超过10了,该停止了!
4、接下来,将对Do....Loop进行复杂案例说明:
5、Excel界面的初始数据为:
6、在外狒芙梨VBE中编写如下代码:Subjudge()Dimrs%rs=1Dors=rs+1Ifrs>10ThenExitDoElseIf潮贾篡绐Cells(rs,2)>90ThenCells(rs,3)="是"EndIfEndIfLoopEndSub
7、在E垓矗梅吒xcel界面中指定宏,并运行代码,得到如下结果。即:当分数超过90时,将在第三列中得到是否为优秀的结果。
8、综上所述,本文说明了Do....Loop的使用说明,并结合Excel进行案例场景使用。