Visual Basic 6.0第二章电子教案

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、如何清除数组?

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4