1、用心 爱心 专心 1课题：循环结构教学时间： 授课班级：教学目标：学会用 for next 语句和 doloop 编写简单的程序，并会调试它教学重点、难点：1 For next 语句的用法2 Do-loop 语句的用法3 循环语句的嵌套教学过程在用计算机处理问题时，除了分支问题外，还有不少是需要重复执行某一组操作的问题。这就要采用循环结构，VB 中提供了两种语句实现循环结构，For-Next 语句和 Do-Loop 语句。【例 6-6-1】求 s=1+2+3+100利用赋值语句可写出如下形式的代码：sum=0sum= sum+1sum= sum+2sum=sum+3sum=sum+100很显然
2、，使用这种形式也能得到结果，但程序很冗长。观察上面的代码可以发现，这段代码实际上重复了同一个操作：sum=sum+I，只不过是每次相加的自然数不同而已。使用 VB 提供的循环语句可以很容易实现这种重复操作功能。具体算法如下：设 sum=0；设 i=1；若 ib)的最大公约数的算法见例 6-1-3，流程图见图 6-3，程序代码如下：求最大公约数Private Sub cmdCalcu_Click()Dim a As IntegerDim b As IntegerDim r As Integera = Val(txta.Text)b = Val(txtb.Text)r = a Mod bDo Wh
3、ile r = 1500000000#Print n; “年后“, “ 人口=“; pEnd Sub运行结果如下；14 年后 人口=1.51506E+09三、循环的嵌套在一个循环中又完整地包含另一个循环，称为循环的嵌套。前面介绍的几种类型的循环可以互相嵌套，例如可以在一个 For-Next 循环中包含另一个 For-Next 循环，也可以在一个 Do-Loop 循环中包含一个 For-Next 循环。【例 6-6-5】设计一个程序，打印如下所示的图案。*为解决这个问题，可以采用如下的算法：使用双重For-Next 循环，外循环确定行数和各行起始打印位置，内循环用来确定各行打印的个数。设外循环的
4、循环变量为 i，内循环的循环变量为 j 。由于图案上下对称，上下两半对应行的起始位置和字符个数完全一致，所以 i图 6-29结 束图 6-30换 行j+1jYN开 始-3ii Sqr(y)End Sub Private Sub Form _Click()Dim k As IntegerDim t As IntegerDim s As Integers = 0: t = 1For k = 2 To 4s = s + kt = t * kNext kPrint “s=“; s, “t=“; tEnd Sub Private Sub Form _Click()Dim a As IntegerDim
5、b As IntegerDim c As IntegerDim s As IntegerDim i As Integera = 2: b = 1: s = 0For i = 10 To 6 Step -1s = s + ac = a + ba = bb = cNext iPrint “s=“; sEnd Sub Private Sub Form _Click()Dim i As IntegerDim j As IntegerDim y As IntegerDim s As Integers = 1: y = 1For i = 2 To 4用心 爱心 专心 10For j = 1 To 2y =
6、 y * jNext js = s + yNext iPrint “s=“; sEnd Sub Private Sub Form _Click()Dim i As IntegerDim j As IntegerFor i = 1 To 6For j = 1 To iPrint “;Next jPrintNext iEnd Sub 编写计算下列各式的程序： P=n!(n!=n*(n-1)*(n-2)*(n-3)*1，n 由键盘输入) S=1-1/2+1/3-1/4+1/6-1/6+ +1/99-1/100 S=1!+2!+3!+4!+10! 某工厂 1997 年总产值为 200 万元，若总产值以
7、每年 5%的速度增长，问多少年后总产值翻一番？ 编写求下式中 n 最大值的程序，画出流程图。12+22+32+n2=1000 编写程序打印下列图形： * * * * * * * * 设计一个界面如图 6-32 所示的程序，图中上排的两个文本框用于输入一个分数的分子分母，中排有一个结果框，用于显示计算结果，下排为“计算”和“退出”按钮。单击“计算”钮时，在中间框中立即显示出该分数的化简结果，单击“退出”钮时，结束程序。要求写出完成该程序所要绘制的控件及需要重新设置的属性，并编写程序。化简分数的算法如下： 求分子与分母的最大公约数； 将分子、分母分别用最大公约数相除； 用上步求出的两个数组成化简分数，送到结果框显示。图 6-32用心 爱心 专心 10例如：分子框输入 126，分母框输入 210，单击“计算”按钮后，化简分数框显示 3/5。
