第
19、20课时
上课时间：2013年 3月 25日 备课时间：2013年 3月 20日
【课题】
2.9 分析蛋糕销售情况
【教学目标】
1、掌握定长数组的使用方法
2、掌握数组的初始化方法
3、清除数组的方法 【德育目标】
培养学生正确的网络意识，养成良好的信息技术素质。 【教学重点】
定长数组的使用方法 【教学难点】
数组的初始化 【教具】
多媒体、计算机 【教学过程】
一、复习
1、DO循环语句的格式？
二、导入
上一章讨论了Visual Basic中DO循环语句的用法，本节课我们来学习选择语句中数组的使用方法。
三、自主学习
在Visual Basic中，把一组具有同一名字、不同下标的变量称为数组。在计算机中，数组占据一块连续的内存区域，数组名就是这个区域的名称，区域的每个单元都有自己的地址，下标指出每个单元在该记录的位置。在实际应用中，可以使用数组来处理同一类型的成批数据，例如商品的零售记录等。
1、定长数组 定长数组是指元素个数保持不变的数组。
在Visual Basic中可以用以下语句来声明数组：使用DIM可在窗体模块或标准模块中声明数组，也可用在过程中；使用Private可在窗体模块或标准模块中声明数组，也可用在过程中；使用Static可在过程中声明静态数组；使用Public可在标准模块中声明全局数组。
下面以DIM语句为例说明数组声明的语法格式，当用其他语句声明数组时，其格式是一样的。用DIM语句声明数组时，迎遵循以下语法格式：
DIM 数组（[下标下界 TO]下标上界[，下标下界 TO 下标上界]）[AS 数据类型] 说明：
1）DIM语句必须放在使用数组之前，遵循先声明后使用的原则。 2）格式中得数组名可以是任意合法的变量名。
3）用DIM语句定义数组时，数组中得全部元素初始化为0，字符串数组中得全部元素初始化为空字符串。
2、默认数组
一般情况下，声明数组应指明其类型，例如： Static Vari(1 TO 100) As Integer 不过，在Visual Basic中，允许声明默认数组，即数据类型为 Variant 的数组，例如：
Static Vari ( 1 to 100) 该声明等价为：
Static Vari(1 to 100) as Variant 在多数程序设计语言中，数组中各个元素的数据类型要求相同，即一个数组只能存放同一种类型的数据。对于默认数组来说，同一个数组可以存放各种不同类型的数据。显然，默认数组可以说是一种“混合型数组”。
3、数组的初始化
数组的初始化就是给数组的各个元素赋初值。Visual Basic提供了Array函数，可用于对数组进行初始化，为数组元素赋值，语法格式如下： 数组名=Array(数组元素值) 使用Array函数给数组赋初值时，数组变量只能是Variant类型。Array只适用于一维数组，不能对二维或多维数组赋值。
数组可以不声明直接使用，也可以只声明数组不声明类型或声明称Variant类型。 数组名是预先声明的数组名，在其后灭有括号。数组元素值是要赋给数组各元素的值，各值之间以逗号分开。如果不提供数组元素值，则创建一个长度为0的数组。
在默认情况下，使用Array函数创建的数组的下标从0开始。如果希望下标从1开始，则应使用下语句： Option Base 1
4、数组的清除
如果想释放动态数组的存储空间或清除定长数组的内容，可以用Erase语句来实现，语法格式如下： Erase 数组名 [,数组名]„„
Erase语句用来重新初始化定长数组的元素，或者释放动态数组的储存空间。 当把Erase语句用于定长数组时，不释放数组的所有空间，只是清除数组的内容。如果这个数组是数值数组，则把数组中得所有元素置为0；如果是字符串数组，则把数组中得所有元素置为空字符串，如果是Variant数组，则将每个元素置为Empty；如果是对象数组，则将每个元素置为Nothing。
当把Erase语句用于动态数组时，将删除整个数组结构并释放该数组所占有的内存，下一次使用时需要重新用ReDim语句定义。
四、合作探究
编程设计：声明一个数组，使用随机函数模拟产生31个0—100之间的整数，依次赋给数组的每一个元素，计算平均数，打印出低于平均数的日销售量。
设计步骤：
1、创建一个标准EXE工程。
2、在属性窗口，把窗体Form1的Caption属性值修改为“任务8 分析蛋糕销售情况”。
3、在窗体Form1的代码窗口中编写以下事件过程。 Private Sub Form_Click() Dim shuju(31) As Integer, pjs As Integer Dim i As Integer Dim a As String a = \"==========================\" Cls Print Print \" 温馨蛋糕房一月份每日蛋糕销售情况（单位：个）\" Print a; a For i = 1 To 31 shuju(i) = Rnd() * 100 Print i; \"号\"; shuju(i), If (i Mod 5) = 0 Then Print End If Next i Print Print a; a For i = 1 To 31 pjs = pjs + shuju(i) Next i pjs = pjs / 31 Print \"一月平均销售：\"; pjs; \"个 销售量没有超过平均数的分别是：\" Print a; a For i = 1 To 31 If shuju(i)
4、把窗体文件和工程文件分别命名保存。
5、按F5键运行程序。
五、课堂小结
本节课主要通过设计小程序，掌握定长数组的使用方法。
