VB教程第6章 节 教案.ppt

第 6; 利用数组可以有效地存储和处理成批数据 本章主要内容 ; 处理成批的数据时，必须使用数组来处理。 例如，表示100个学生的成绩，采用简单变量来表示： s1，s2，s3，… s99，s100 采用数组来表示：t(0), t(1), t(2),… t(98), t(99) t(k) (k=0,1,2,…99)为数组元素(或称下标变量)，它表示第k个学生的成绩, k称为下标变量的下标(默认情况下，下标从0开始) 由三行四列组成的二维数组y，其12个下标变量可表示为 y(0,0) y(0,1) y(0,2) y(0,3) y(1,0) y(1,1) y(1,2) y(1,3) y(2,0) y(2,1) y(2,2) y(2,3) 只要有规则地改变下标值，就可以很方便地使下标变量(如t(k))成为所需要的具体下标变量; 6.2.1 数组声明语句 使用数组之前，一般需要定义数组，以便让系统分配相应的存储单元。格式为： Dim 数组名([下界1 to]上界1[,[下界2 to]上界2…]) [As 数据类型] 功能：指定数组的维数、各维的上下界和数据类型  举例：Dim Sum(10) As Long ‘下标号从0～10，共11个元素Dim Ary(1 to 20) As Integer ‘下标号从1～20，共20个元素Dim d(1 to 5,1 to 10) As Double ‘定义二维数组 还可以使用Public、Static、Private等语句来声明数组 ; 设定下界的方法 Option Base 1 ‘设定下界为1 Dim Data(10) As Single ‘下标号从1～10 6.2.2 Array函数 使用Array函数可以为数组元素赋值  示例 Dim D As Variant ‘定义数组名(变体类型) D = Array(1, 2, 3, 4) 执行结果：1→D(0)，2→D(1), 3→D(2), 4→D(3); (1)创建应用程序的用户界面和设置对象属性; 功能要求：通过Array函数输入10个分数；单击“查找”按钮(Command2)后，开始查找最高分和最低分，找到后显示在标签Label1上 Option Base 1 Dim score As Variant Private Sub Form_Load() Label1.Caption = 单击“查找”按钮开始查找最高分和最低分 score = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83) End Sub; Private Sub Command1_Click() Dim max As Integer, min As Integer max = score(1) 设定初值 min = score(1) For i = 2 To 10 ‘与后面的数据逐一比较 If max score(i) Then 找最高分 max = score(i) End If If min score(i) Then 找最低分