VisualBasic程序设计教程刘莲英第6章循环结构程序设计课件教学.pptVIP

6.1 循环结构程序示例 【例6-1】编程计算1+2+3+…+n的值。 算法见图： 程序代码 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 6.2 For...Next语句 1. For...Next语句的语法格式 For 循环变量 = 初值 to 终值 [Step 步长] 语句序列 Next [ 循环变量 ] 例如：求1~100奇数的和。 说明 ② 如果想提前退出For循环，使用Exit For语句，并且一般应同选择结构一起出现在循环体中。 2. For...Next语句的简单应用 【例6-2】求n! ，即计算p=1×2×3×…×n的值。 思路：求阶乘与求累加的运算处理过程类似，只要将“+”变为“*”。 程序中设置变量i 表示乘数，初值为1，终值为n（n是循环控制终值，需要从键盘输入）；变量p 表示累乘器，每次循环令p = p*i。 程序代码如下： Private Sub Fo