第6章 循环结构程序设计rj.ppt

VB程序设计教程 Pgdd 李维新 思考：怎样在窗体form1上显示如下图案： *** *** *** *** *** *** *** *** 解决方案 Print “***” Print “***” Print “***” Print “***” Print “***” Print “***” Print “***” Print “***” . . . 新的解决方案 语言描述：重复执行print “***”语句，一共执行8次。 计算机描述： Dim i as integer i=1 当i=8 时，重复执行print “***”语句 当i8 时，停止执行print “***”语句 图示 For循环 For循环表述 Dim i as integer For i=1 to 8 Print “***” Next i For循环格式 语法： For 循环变量=初值 To 终值 [Step 步长] [循环体1] [Exit For] [循环体2] Next [循环变量] For格式中参量含义 循环变量:亦称循环控制变量、控制变量或循环计数器 。它是一个数值变量,但不能是下标变量或记录元素。 初值:循环变量的初值,它是一个数值表达式。 终值:循环变量的终值,它也是一个数值表达式。 步长:循环变量的增量,是一个数值表达式。其值可以是正数( 递增循环)或负数(递减循环),但不能为0。如果步长为1,则可略去不写。 循环体:在For语句和Next语句之间的语句序列,可以是一个或多个语句。 Exit For:退出循环。 Next:循环终结语句,在Next后面的循环变量与For语句中的 循环变量必须相同。 格式中的初值、终值、步长均为数值表达式,但其值不一定是整数,可以是实数,VB 6.0自动取整。 For循环的循环次数 For i=1 to 8 语句组 Next i 一共执行for循环的循环体多少次？ ＝（终值－初值）＋1 （8－1＋1）次 探索 如何在窗体form1上，显示如下数据： 1 2 3 4 5 6 7 8 用for循环实现 Dim i as integer For i=1 to 8 Print i Next i 进阶领悟 求1＋2＋3＋……＋99＋100的值。 分析：加数为1到100且步长为1的数列，因此可以考虑用for循环： for i=1 to 100 step 1 语句组 Next i 答案 Dim I as integer Dim s as integer’变量s用来存放最后的结果 S=0’结果变量初始化为0 For i=1 to 100 step 1 S=s+I Next i ‘完成计算，输出 Msgbox “1+2+3+……+99+100=“ s For循环练习 求100＋101＋102＋……＋1000的值。 For i=100 to 1000 Next i 求2＋4＋6＋8＋……＋100的值。 For i=2 to 100 step 2 Next i 求200＋199＋198＋……＋101的值。 For i=200 to 101 step -1 Next i For循环与if语句综合应用 求100以内所有偶数相加的和。 For i=1 to 100 If i mod 2=0 then End if Next i 求100以内所有3的倍数相加的和。 求200～300之间（包括200和300）所有7的倍数相加的和。 找出300～500之间的所有既是3的倍数，又是5的倍数的数。 找出所有水仙花数。水仙花数是一个三位数，它具有这样的特点：百位上的数的立方，加上十位上的数的立方，再加上个位上的数的立方恰好等于这个数本身。例如：水仙花数153，有如下特点,1*1*1+5*5*5+3*3*3=153 For循环的嵌套应用 期末30位学生参加三门课程的考试，求每个学生的三门课程的平均成绩 Dim i, j, aver, m As Integer aver=0 For i=1 To 30 For j=1 To 3 m=InputBox(输入第 j 门课的成绩) aver=aver+m Next j aver=aver/3 Print aver Next i 输出９＊９表 Private Sub Form_Load() Show FontSiz