第5讲 程序控制结构——循环语句

Do [{While|Until}<条件>] [语句块1] [Exit Do] [语句块2] Loop Do
[语句块1] [Exit Do] [语句块2] Loop [{While|Until}<条件>]
先判断条件再 执行循环体
先执行循环体， 再判断条ntil
While表示是当型循环，条件为真时执行循环体， 条件为假时终止循环 Until表示是直到型循环，条件为假时执行循环体， 条件为真时终止循环 Do While n<=5 …… Loop与Do Until n>5 …… Loop是等价的

例：在指定的A1:C15区域中依次在每个单 Activate是Worksheet 对象的一个属性：使 元格中插入一个数值
Sub Sample12() Worksheets("Sheet1").Activate Dim i As Integer i = 1 For Each obj In Range("A1:C15") obj.Value = i Obj为存储 i = i + 1 Range(“A1:C15”)集合 Next obj 中每个元素的变量， End Sub 即每个单元格

输入三个整数，求最大值
Max = a If b > Max Then Max = b End If If c > Max Then Max = c End If MsgBox Max
重复代码

输入10个整数，求最大值呢？
Sub Maximum() a = Val(InputBox("请输入第1个数")) Max = a For i = 1 To 9 a = Val(InputBox("请输入第" & i & "个数")) If a > Max Then Max = a 这部分代码在 End If For Next语句的 Next i 控制下重复执行 MsgBox "最大值为" & Max End Sub
内循环，判断n是否 为素数； Exit For只结束其所在 的循环

Sub WriteNum() Dim row As Integer row = 1 For i = 100 To 0 Step -2 Range("A" & row).Value = i row = row + 1 Next i End Sub

假若不确定循环次数，而能确定循环条件，则可 以使用Do Loop语句完成循环，语法格式如下：

例：编写一个用户登录控制代码，如果用户输入的密码次 数超过3次，禁止用户登录。假设登录密码为“mypwd”
Sub Sample9() Dim pwd As String Dim count As Integer Do 当输入密码正 pwd = InputBox("请输入密码") 确则结束循环 If pwd = "mypwd" Then Exit Do 当型循环，先执行再 Else 判断条件，当 MsgBox "请重新输入密码" count<3为真时，再 End If 次执行循环体 count = count + 1 Loop While count < 3 If count >= 3 Then MsgBox "超过登录次数，登录受限！" Else MsgBox "欢迎登陆" End If End Sub


重复执行的代码——循环体 i=1 to 9 ——循环次数或循环条件

在一定条件下需要反复执行一段代码，这 时需要使用循环语句
For Next语句 Do Loop语句 For Each Next语句


For Next语句是最常用的一种循环语句，该语 句指定循环次数。语法格式如下：
For 循环变量=初值 To 终值 [Step 步长] 循环体 Next [循环变量]
若有一个i能整除n， 则表示n不是素数， 结束循环
若i<=n\2则表示在for next语句中是通过执 行exit for语句结束循 环的

例：输入两个正整数，利用直到型循环求 它们的最大公约数


求最大公约数用“辗转相除法” 1.m Mod nr 2. nm，rn 3. 若r!=0,则跳转至1；若r=0，m就是最大公约数 重复执行1、2步，直到r=0为止，应用直到型循环 Do r=m Mod n m=n:n=r ‘多个语句写在一行，用冒号分隔 Loop Until r=0


Exit Do语句

用来跳出循环，一般用于条件判断之后，如If语 句。

例：提示循环体执行次数
当型循环，当 Sub Sample8() Mynum>10为真时， counter = 0 执行循环体 Mynum = 20 Do While Mynum > 10 Mynum = Mynum - 1 counter = counter + 1 Loop MsgBox "该循环执行了" & counter & "次！" End Sub
Sub 最大公约数() Dim m As Integer, n As Integer m = InputBox("请输入m") m1和n1的作用为保存 n = InputBox("请输入n") m、n的原值 m1 = m: n1 = n Do r = m Mod n m = n: n = r Loop Until r = 0 执行循环体直到 n等 MsgBox m1 & "和" & n1 & "的最大公约数为 " & m 于0，即当n不等于0 End Sub


形成循环嵌套
Sub 输出素数() For n = 100 To 200 For i = 2 To n \ 2 If n Mod i = 0 Then Exit For End If Next i If i > n \ 2 Then Debug.Print n End If Next n End Sub
第5章 5.3
Sub Sample5() Const PRICE = 100 For row = 2 To 8 quantity = Range("A" & row).Value Select Case quantity Case Is < 500 new_price = PRICE Case Is < 600 For Next语句为循环 new_price = PRICE * 0.95 语句，在这里用来 将第2行到第8行的 Case Is < 1000 数据逐个进行计算 new_price = PRICE * 0.9 这部分代码在 For Next语句的 Case Is < 5000 控制下重复执行 new_price = PRICE * 0.8 Case Is < 10000 new_price = PRICE * 0.7 Case Is >= 10000 new_price = PRICE * 0.6 End Select Range("B" & row).Value = new_price Next row End Sub

例：输入一个正整数，判断其是否为 素数
“素数”是指只能被1和自身整除的数 判断一个数是否为素数，依次用2～n\2去除n， 若n不能被其中任一整数整除，则n是素数。 遍历问题用循环结构 循环体中判断是否能整除，若能则退出循环 判断是否为素数通过判断是否提前终止循环

Sub Sushu() Dim n As Integer n = InputBox("请输入一个整数") For i = 2 To n \ 2 If n Mod i = 0 Then Exit For End If Next i If i <= n \ 2 Then MsgBox n & "不是素数" Else MsgBox n & "是素数" End If End Sub
指定工作表成为活动 工作表
在循环语句的循环体中包含有循环语句， 就构成了循环嵌套 各种循环语句可以单独嵌套，也可互相嵌 套

For i=1 to 10 …… For j=1 to 10 …… Next …… Next For i=1 to 10 …… Do …… Loop While j<=i …… Next Do Until i>10 …… For j=1 to 10 …… Next …… Loop
Next不能省

例：将活动工作表中A列的偶数个单元格背景 设置交叉颜色
1到50行，逐行处理
Sub Sample6() For row = 1 To 50 如果是偶数行 If row Mod 2 = 0 Then Range("A" & row).Interior.ColorIndex = 3 Else Range("A" & row).Interior.ColorIndex = 5 End If Next row End Sub

说明：Interior表示单元格内部对象，ColorIndex是内部 对象的一个表示背景颜色的属性：3表示红色、5表示蓝色

使用For Next语句将100、98、96、94、 92、……、0分别写入到活动工作表的A1、 A2、……、A51单元格
这里应该有两个变量i（存储100开始的数字） 以及row（存储行号），选择哪个作为循环变 量呢？ 循环体中有哪些操作呢？