第7章 部教案二.docVIP

本节课我们将通过实例来加强对For循环语句的使用。 例1：求Fibonacci数列的前30个数。这个数列有如下特点：前两个数为1，从第三个数开始，其值是前两个数的和，即： F1=1 （n=1） F2=1 （n=2） Fn= Fn－1+ Fn－2 （n≥3） 程序如下： 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-3－1 初始界面 图7-3－2 设置属性后的界面 2、设置属性 表7-3 属性设置 对象 属性 属性值 Label1 Caption 投币总次数 Label2 Caption 正面次数 Label3 Caption 反面次数 Text1 Text ? Text2 Text ? Text3 Text ? Command1 Caption 开始 窗体中各个控件的属性设置按照表7-3进行设置，属性设置后的界面如图7-3－3所示。 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=n2 End 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 （二）复习 根据步长型循环语句FOR…NEXT的格式和功能填空 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=