本节课我们将通过实例来加强对For循环语句的使用。例1：求Fibonacci数列的前30个数。这个数列有如下特点：前两个数为1，从第三个数开始，其值是前两个数的和，即： F1=1 （n=1） F2=1 （n=2） Fn= Fn1+ Fn2 （n3） 程序如下： Private Sub Command1_Click() Dim i As Integer Dim f1 As Long, f2 As Long, fn As Long f1 = 1 f2 = 1 Print f1, Print f2,For i = 3 To 30 f1，f2已知，从第三个数开始计算 fn = f1 + f2 f1 = f2 f2 = fn 更改f1,f2的值 Print fn,If i Mod 4 = 0 Then Print 打印4个数后换行打印Next End Sub 例2：利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面1、设计界面 在窗体上添加三个标签、三个文本框和一个命令按钮。初始界面如图7-3所示。 图7-31 初始界面 图7-32 设置属性后的界面2、设置属性表7-3 属性设置对象属性属性值Label1Caption投币总次数Label2Caption正面次数Label3Caption反面次数Text1TextText2TextText3TextCommand1Caption开始窗体中各个控件的属性设置按照表7-3进行设置，属性设置后的界面如图7-33所示。3、程序代码Private Sub Command1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0For i=1 To nr=Int(Rnd*2)If r=1 Thenn1=n1+1Elsen2=n2+1End IfNextText2.Text=n1Text3.Text=n2End Sub 4、程序说明 在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。随机产生0或1的整数的表达式为：Int(Rnd*2)。 5、运行程序运行程序，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。运行界面如上图所示。 例3：小猴吃桃：有一堆桃，小猴当天吃了一半多一个。第二天吃了剩下的桃子的一半多一个。以后每天都是吃剩下的桃子的一半多一个。到第10天小猴要吃时只剩下一个了。问原来那堆桃有多少个？程序代码如下： Private Sub Form_Click() Dim n%,i% n=1 For i=9 to 1 step -1 n=(n+1)*2 Next i Print “peachs of the first day are：”;n（二）复习根据步长型循环语句FORNEXT的格式和功能填空 1、在 FOR- NEXT 循环语句中，对于循环变量要指定它的_、_及步长，但步长在增量为时，可以省略。 2、“NEXT I”意思是_. 3、在NEXT语句中，_可以省略， 但如果出现， 要与FOR语句中的_一致。 4、终止 FOR- NEXT 循环语句的条件是 _。5、计算循环次数的公式是_（三）新课讲授本节课我们将通过实例来学习对For双重循环语句的使用。一、引入：在屏幕上输出如下右图所示内容该程序实现一行个*,一共4行。用循环语句实现for i=1 to 4 print * next其中对于print *我们也可以循环进行输出for i=1 to 5 print *next 将两者相结合For i = 1 To 4For j = 1 To 5Print *;Next jPrintNext i即可得到完整代码二、循环嵌套也称为多重循环，即在一个循环结构中包含另外一个循环，这种结构可以实现很多复杂的算法。语法：for i=初值to 终值for j=初值to 终值循环体next jnext i其中i为外循环控件变量，j为内循环控制变量，这两个变量不可用同一个变量名双重循环的次数是：内循环次数外循环次数三：图形专题简单文本图形的程序设计 （用for和for双重循环嵌套语句）输出一个文本图形需要考虑4点：（1）图形有几行(一般由外循环控制)（2）每行首字符位置(一般由tab( )函数控制)tab(n)函数：输出时表达式定位于第n列（3）每行由几个字符(一般由内循环控制) （4）用什么字符组成图形下面举例说明：1、 打印如下图形 Private Sub Form_click() 图2Dim i%, j%For i = 5 To 1 Step -1For j = 1 To iPrint *;Next jPrintNext iEnd SubPrivate Sub Form_click() 图1Dim i%, j%For i = 1 To 5For j = 1 To iPrint *;Next jPrintNext iEnd Sub*图1 * *Private Sub Form_click() 图4Dim i%, j%For i = 5 To 1 Step -1Print Tab(6 - i);For j = 1 To iPrint *;Next jPrintNext iEnd SubPrivate Sub Form_click() 图3Dim i%, j%For i = 1 To 5Print Tab(6 - i);For j = 1 To iPrint *;Next jPrintNext iEnd Sub* * 图2 * * * * 图3 * * * *图4For i = 1 To 5 图5Print Tab(6 - i);For j = 1 To 2 * i - 1Print *;Next jPrintNext i2、 打印如下等腰三角形，如图5示 * * * * *For i = -2 To 2 图6Print Tab(Abs(i) + 1);For j = Abs(i) - 2 To 2 - Abs(i)Print *;Next jPrintNext i3、 打印如下菱形，如下图6示 * * * * *For i = 1 To 5 图7Print Tab(6 * 3 - i * 3);For j = 1 To iPrint j;Next jPrintNext i4、 若将“*”改为数字，如图7示： 112123123412345提示：打印数值类型数据，数字前有个符号位，数字后面有一个空格。今天我们来介绍循环控制语句的第二种当循环控制结构。（三）新课讲授循环分为两大类：一类是循环次数已知，一类是循环次数未知的情况。前者我们可以用for.next语句实现，但对于后者呢？我们可以使用while当型循环。事先不能确定需要执行多少次循环，只有当条件满足时才结束循环，称为“当型循环”。While循环结构用WhileWend语句来实现，语句格式如下： While Wend 语句说明： （1）“条件表达式”可以是关系表达式、逻辑表达式或数值表达式。如果是数值表达式，值为0被作为False，非零值则为True。 （2）语句的执行过程是：先计算条件表达式的值，若为True，则执行循环中的语句块，遇到Wend语句时返回While语句继续判断条件表达式的值，若仍为真，则继续执行语句块，重复上述过程直到条件表达式的值为False,则退出循环结构，执行Wend语句的后续语句。循环环执行过程如图74。 （3）如果条件一开始就不成立，则语句块一次也不会被执行。 表达式语句块FT 图74例如，求1到100的和。 （用FOR循环）Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 给变量sum赋初值0For i = 1 To 100 sum = sum + i 累加Next iPrint sum End Sub也可用While循环语句改写上例，程序代码如下：Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 :i=1While i=100 sum = sum + ii=i+1 WendPrint sum End Sub下面举例说明：例1：我国有13亿人口，以年平均增长率0.5%计算，多少年后我国人口就会增长到15亿。程序代码如下： Private Sub Form_Click()Dim p!,n%p=13n=0While p15 p=p*1.005 n=n+1WendPrint n;”年后人口将达到：”;p;”亿” End SubDo循环结构的形式较灵活，可分为以下几种：（1）先判断条件的DoLoop循环格式一： Do While Loop 语句执行过程：先计算条件表达式的值，若为True，则执行语句块中的语句；若为False则退出循环结构。循环环执行过程如图7-5-1。 格式二： Do Until