第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 设置属性后的界面