Print I；\年后，我国人口将达到\；p；\亿\ End Sub 布置作业：
1、for循环语句的执行过程如何？ 2、while循环语句的执行过程如何？
任务八
教学内容： 计算阶梯问题 教学过程：
一、 Do循环语句格式一 格式一
Do [While|Until<循环条件>] [ 语句块 ] [ Exit Do ] [ 语句块 ] Loop
二、Do循环语句格式二 格式二 Do
[ 语句块 ] [ Exit Do ] [ 语句块 ]
Loop [While|Until<循环条件>] 三、格式一举例
Private Sub Form_Click()
Dim i As Integer '定义循环变量为整型
Do While i < 10 '如果i小于10，那么就输出i的值 Print i; '输出i的值 i = i + 1 'i的值加1 Loop End Sub
Private Sub Form_Click() m=2460:n=345 Dim s As Single Do while(n<>0) s=m Mod n m=n n=s Loop
Print“最大公约数=” & m End Sub
四、格式二实例
例1：Private Sub Command1_Click() Dim num As Integer num = 1
Do Until num > 6 Print num;
num = num + 2.4 Loop End Sub
他说窗体显示结果是1 3 5 为什么不是1 3.4 5.8呢
例2：爱因斯坦曾提出这样一个问题：设有一阶梯，每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；只有每步跨7阶，正好到达阶梯顶。问共有多少阶梯？计算结果如下图所示。
布置作业：
1、DO循环语句有哪几种格式？
任务九
教学内容：
分析蛋糕销售情况 教学过程：
一、定长数组 定长数组的说明：
Dim 数组名([下标下界 To ]下标上界[,下标下界 To 下标上界 ]) [ As 数据类型] 说明：
1、Dim 语句必须放在使用数组之前，遵循先声明后使用的原则。 2、格式中的数组名可以是任意合法的变量名。
3、数据类型可以是整型、长整型、单精度型、双精度型、货币型和字符型等基本类型，也可以是变体类型，若少略As子句，则定义的数组为变体类型。
4、用Dim语句定义数据时，数组中的全部元素初始化为0，字符串数组中的全部元素初始化为空字符串。
5、下标下界和下标上界表示该维的最小和最大下标值，通过关键字TO连接起来，代表下标的取值范围，或省略了“下标下界TO”，则数组默认下界为0；若希望下标从1开始，可以通过Option Base 1来设置，该语句必须出现在窗体层或模块层的说明部分。
6、数组有一个下标变量，称为一维数组，有两个或多个下标变量，称为二维数组或多维数组。数组的维数最多可以有60维。
7、不能使用Dim语句对已经声明了的数组进行重新声明。 8、在同一过程中，数组名不能与变量名相同。
9、在声明数组时，每一维元素的个数必须是常数，不能是变量和表达式。 10、数组的下界必须小于数组的上界。
数组下标的上界值和下界值可以用UBound和LBound函数来测试： 语法格式如下：
UBound（数组名[，维]） 测试指定维的上界 LBound（数组名[，维]） 测试指定维的下界 例如：
Dim a(3 to 8) UBound(a) LBound(a) 二、默认数组
? 在Visual Basic中，允许声明默认数组，即数据类型为Variant的数组： Static Vari(1 To 100) 该声明等价于：
Static Vari(1 To 100) As Variant 三、 数组的初始化 数组的初始化
数组名 = Array(数组元素值)
? 使用Array函数给数组赋初值时，数组变量只能是Variant类型。Array只适用于一维数组，不能对
二维或多维数组赋值。 例如： Dim a
A=array(5,6,8,10) 四、数组的清除
Erase 数组名[,数组名]……
Erase语句用来重新初始化定长数组的元素，或者释放动态数组的储存空间。 五、操作举例
? 温馨”蛋糕房每天平均售出蛋糕50个左右，求出其一月份日销售量的平均数，并将低于平均数的日
销售量打印出来，程序运行结果如下图所示。
【任务分析】
? 声明一个数组，使用随机函数产生模拟31个0～100之间的整数，依次赋给数组的每一个元素，
计算平均数，打印出低于平均数的日销售量。 布置作业：
1、如何定义定长数组？ 2、如何对初始化数组？ 3、如何清除数组？