Visual Basic第6章 循环结构程序设计.pptVIP

*/30 第 6 章 本章主要内容 6.1 循环结构程序示例 6.2 For...Next语句 6.3 Do…Loop语句 6.4 循环的嵌套——多重循环结构 6.5 GoTo语句 6.6 循环结构程序举例 循环结构程序设计 */30 在Visual Basic中，实现循环结构的语句主要有： ? For…Next语句 ? Do While/Until…Loop ? Do…Loop While/Until语句 ? While…Wend语句 第6章 循环结构程序设计 */30 6.1 循环结构程序示例 【例6-1】编程计算1+2+3+…+n的值。 算法见图： i=1，sum=0 当i = n sum=sum+i i=i+1 输出sum的值 图6-1 求n个自然数的和 */30 程序代码 Private Sub Form_Click() Dim sum, i%, n% sum = 0 累加前变量sum值为0 n = InputBox(请输入n的值:, 输入n的值) For i = 1 To n sum = sum + i Next i Print 1+2+...; n; =; sum End Sub */30 6.2 For...Next语句 1. For...Next语句的语法格式 For 循环变量 = 初值 to 终值 [Step 步长] 语句序列 Next [ 循环变量 ] 例如：求1~100奇数的和。 For i = 99 To 1 step -2 sum = sum + i Next i For i = 1 To 99 step 2 sum = sum + i Next i 缺省步长为1 */30 说明 ② 如果想提前退出For循环，使用Exit For语句，并且一般应同选择结构一起出现在循环体中。 0 初值终值 0 初值终值 =0 死循环 缺省 步长为1 步长 ① 关于步长 */30 2. For...Next语句的简单应用 【例6-2】求n! ，即计算p=1×2×3×…×n的值。 思路：求阶乘与求累加的运算处理过程类似，只要将“+”变为“*”。 程序中设置变量i 表示乘数，初值为1，终值为n（n是循环控制终值，需要从键盘输入）；变量p 表示累乘器，每次循环令p = p*i。 */30 程序代码如下： Private Sub Form_Click() Dim i%, n%, p p = 1 n = Val(InputBox(请输入n：)) For i = 1 To n p = p * i Next i MsgBox n != p, , 求阶乘 End Sub */30 1. Do…Loop语句的语法格式 ⑴ 当型循环（先判断）的语法格式 Do While|Until 条件 语句序列 Loop 6.3 Do…Loop语句 T F 语句序列 条件 F T 语句序列 条件 图6-5 Do While…Loop 图6-6 Do Until…Loop */30 6.3 Do…Loop语句（续） 例如：计算1+2+3+…+n的值，程序段如下： sum = 0 累加前变量sum为0 i = 1 给控制循环的变量赋初值 Do While i = 100 sum = sum + i i = i + 1 Loop Do Until i100 */30 6.3 Do…Loop语句（续） ⑵ 直到型循环（后判断）的语法格式 Do 语句序列 Loop While|Until 条件 F T 语句序列 条件 T F 语句序列 条件 图6-7 Do…Loop While 图6-8 Do…Loop Until */30 6.3 Do…Loop语句（续） 例如：计算1+2+3+…+n的值，程序段如下： sum = 0 累加前变量sum为0 i = 1 给控制循环的变量赋初值 Do sum = sum + i i = i + 1 Loop While i