第5章 循环结构化程序设计.pptVIP

ch = InputBox(请输入字符:) Wend Print 字母个数:; num1 Print 数字个数:; num2 End Sub 5.2 多重循环 一个循环体内又包含了一个完整的循环结构称为循环的嵌套,也叫多重循环。 【例5.7】分析下列程序段。 图5.7 运行结果 Private Sub Form_click() Dim i%, j% For i = 1 To 3 For j = 5 To 6 Picture1.Print i, j Next j Next i End Sub 【例5.8】打印下三角九九乘法表。 图5.8 运行结果 程序代码： Private Sub Picture1_Click() Dim se As String For i = 1 To 9 For j = i To 9 se = i × j = i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i End Sub 打印上三角程序如何改动 思考： For I=1 to 9 For j=1 to i ①:内外循环变量不能同名字 ②:内外循环不能交叉 (终值-初值）/步长+1 控制变量〉=终值（递增） 控制变量=终值（递减） 控制变量〈=终值) （递增） 控制变量=终值) （递减） 先判断 For ..next =1 true False 后判断 Do..loop until =1 False True 后判断 Do..loop while =0 True False 先判断 Do until..loop =0 False True 先判断 Do while..loop 循环次数 循环终止条件 循环条件 特点 语句形式 循环小结 ★ 类型 ①:GO TO 语句 ②:Exit语句 ③:With语句 概述 5.3 其他辅助控制语句 形式：Go To {标号|行号} 作用：无条件转移到标号或行号指定的地方。 例5.9：求100以内的素数并打印出来。 For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoToNotNextM Next i m能被i整除，则m不是素数 Print m NotNextM: 标号NotNextM后应有冒号 Next m GO TO语句 建议不使用 For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoToNotNextM Next i Print m NotNextM: Next m For I=2 to m-1 改成 For i=2 to sqr(m) 减少内循环次数 Flag=true For I=2 to Sqr(m) If m mod i =0 then Flag=false Next I If Flag then print m 用于退出某种控制结构的执行 无条件形式：EXIT DO ,EXIT FOR,EXIT SUB 有条件形式：IF 〈条件〉Then Exit DO IF 〈条件〉Then Exit FOR EXIT语句 用于退出某种控制结构的执行 【例5.10】测试语句出口的执行情况。 Private Sub Form_click() Dim i%, num% Do For i = 1 To 1000 num = Int(Rnd * 100) Print num; Select Case num Case 7: Exit For Case 29: Exit Do Case 54: Exit Sub End Select Next i Print exit for Loop Print exit do End Sub With语句 形式： With 对象 语句块 End With 用于对某个对象执行一系列语句,而不用重复该对象名 例:用With语句设置标签MyLabel的多个属性 With MyLabel .height=1000 ‘属性前的“.”不能省略 .width=1500 .FontSize=20