Visual Basic程序设计简明教程-第6章.ppt

第6章 数组 本章内容： ? 一维数组 ? 二维数组 ? 动态数组 ? 控件数组 ? 自定义类型 ? 字符串的处理 ? 列表框 ? 组合框 6.1 一维数组 说明： （1）数组名应该是一个合法的标识符，数组中所有元素的数据类型都相同。 （2）下界和上界均为整型常量表达式，它们规定了元素下标的取值范围。下界最小可以是-32768，上界最大可以是32767。应该满足下界≤上界，一维数组的长度即元素的个数为上界-下界+1。 （3）对于没有赋初值的数组元素，如果是数值型，系统都自动赋以0；如果是字符型，系统都自动赋以空串；如果是逻辑型，系统都自动赋以False。 （4）如果定义数组时省略了下界，则下界默认是0。 数组元素的引用 元素引用的形式是： 数组名(下标) 例如： a(4)=a(1)*a(3)+a(2) 在引用数组的元素时，应注意下标值不要超过数组的范围。 例6.1 计算全班学生的VB平均成绩 Const N As Integer = 30 Private Sub Command1_Click() Dim a(1 To N) As Integer, i As Integer, sum As Integer, aver! For i = 1 To N 输入学生成绩 a(i) = Val(InputBox(请输入第 i 位学生的成绩)) Next i sum = 0 For i = 1 To N 累加学生成绩 sum = sum + a(i) Next i aver = sum / N 计算平均成绩 Picture1.Print 平均成绩是; aver End Sub Const N As Integer = 30 Private Sub Command2_Click() Dim a(1 To N) As String, i%, j%, flag As Boolean, name$ For i = 1 To N 输入学生姓名 a(i) = InputBox(请输入第 i 位学生的姓名) Next i Do name = InputBox(请输入要查询的学生姓名) flag = False For i = 1 To N If a(i) = name Then flag = True 找到，改变标志 Exit For End If Next i If flag = True Then Picture1.Print 找到姓名为; name; 的学生 Else Picture1.Print 没有找到姓名为; name; 的学生 End If j = MsgBox(还要继续查询吗？, vbYesNo + vbquestin) Loop While j = 6 如果按下“是”按钮，则继续循环 End Sub 6.2 二维数组 说明： （1）通常把二维数组的第一个下标形象地称为行下标，第二个下标称为列下标。 （2）二维数组的元素个数为行的长度×列的长度，行或者列的长度为各自的上界-下界+1。 （3）类似地还可以定义多维数组。例如： Dim a(1 To 2,1 To 2,1 To 2) As Integer ’共有8个元素的三维数组 例6.4 求两个3×3矩阵的和。 Private Sub Command1_Click() Const N As Int