vb3-2.pptVIP

第3章 基本控制结构 循环结构 计数型循环—— For…Next 条件型循环 Do…Loop While…Wend 循环的退出与嵌套 For…Next语句 For 计数器=初始值 To 终值 [step 步长] 语句块 [Exit For] 语句块 Next [计数器] For…Next语句 For…Next语句 循环次数 For…Next语句 编程计算：S=1+2+3+…+100 For…Next语句 For…Next语句 练习1 执行以下程序后，x的值是 For…Next语句 练习2 执行以下程序后，窗体显示 For…Next语句 练习3 执行以下程序后，窗体显示 For…Next语句 练习4 Do…Loop语句 当型循环 直到型循环 Do…Loop语句 当型循环 3.3.2 Do…Loop语句 直到型循环 Do…Loop语句 说明 Do…Loop语句 范例：计算1-100的和 Do…Loop语句 While … Wend语句 While … Wend语句 测试计数器的值 Dim Counter as integer Counter=0 While counter20 Counter=counter+1 Wend Print counter Exit 语句 Exit 语句用于退出 Do...Loop、For...Next、Function或Sub代码块。 对应的使用格式为：Exit Do、Exit For、Exit Function、Exit Sub。分别表示退出DO循环、For循环、函数过程、子过程。 Exit循环退出语句同分支结构语句共同使用。 Private Sub Form_Click() Dim I%, Num% Do While 1 建立无穷循环。 For I = 1 To 100 循环 100 次。 Num = Val(InputBox(请输入数字)) Select Case Num Case 10: Exit For 退出 For...Next 循环 Case 50: Exit Do 退出 Do...Loop 循环。 Case 80: Exit Sub 退出子过程。 End Select Next I print num Loop Print Num End Sub 循环的嵌套 循环的嵌套 说明： (1) 内循环变量与外循环变量不能同名；并列循环的循环控制变量名可以相同，也可以不同。 (2) 外循环必须完全包含内循环，不能交叉。 (3)在多重循环中的分支结构必须完全包含在里面，不能交叉。 循环的嵌套 说明： 如出现跳出语句Exit，则跳离最近一层的循环。 综合范例 水仙花数是指3位的正整数，其各位数字的立方和等于该正整数本身。 例如：407=4*4*4+0*0*0+7*7*7 菜单 求一个整数的各位数字的立方和,a 表示一个整数,b表示立方和 水仙花数 For a = 100 To 999 bai = a \ 100 shi = a \ 10 Mod 10 ge = a Mod 10 sum= bai * bai * bai + shi * shi * shi + ge * ge * ge If a = sum Then Text1 = Text1 Space(5) sum Next a 设a为一个整数，如何分离a的各位数字？ 方法：辗转相除法 a=243 243 \ 10 =24 3 24 \10 =2 4 2 \10 =0 2 Do while a0 b=a mod 10 a=a \ 10 loop Do while a0 b=b+(a mod 10)^3 a=a \ 10 loop 水仙花数 Dim a,b,sum as integer For a=100 to 999 B=a sum=0 Do while b0 sum=sum+(b mod 10)^3 b=b \ 10 loop If a=sum then