新Visual Basic 程序设计 第5章 数组.pptVIP

第5章 数组 一维静态数组 一维动态数组 数组相关的函数 控件数组 5-1-1 一维静态数组 用处：批量处理数据，一次性定义多个变量 概念：是一组具有相同名字、不同下标的 相同类型变量的集合 每个变量称为一个数组元素 数组元素个数称为数组长度 Dim score(1 to 6) As Integer 下界 to 上界 score(1), score(2) ,score(3), score(4), score(5), score(6), 每个元素下标为1个，称为一维数组 score在定义时就确定数组长度，称为静态数组 5-1-1 一维静态数组 Dim Num(10) As Integer 下标默认从0开始 Num(0) 、Num(1) 、Num(2) 、…、Num(10) 数组下标下界默认从1开始， “通用|声明” Option Base 1 Dim Num(10) As Integer Num(1) 、Num(2) 、…、Num(10) 5-1-1 一维静态数组（局部） Private Sub Form_Click() Dim score(1 To 6) As Integer score(1) = 80 score(2) = 70 score(3) = 60 score(4) = 40 score(5) = 60 score(6) = 90 print score(1) End Sub 5-1-1 一维静态数组（局部） 数组与For循环结合使用，循环变量范围是数组下标范围 Private Sub Form_Click() Dim score(1 To 6) As Integer Dim i As Integer For i = 1 To 6 score(i) = Val(InputBox(输入一个成绩)) Next i End Sub 5-1-1 一维静态数组（局部） Private Sub Form_Click() Dim score(1 To 6) As Integer Dim i As Integer For i = 1 To 6 ‘输入数据 score(i) = Val(InputBox(输入一个成绩)) Next i For i = 1 To 6 ‘输出数据 Print score(i) Next i End Sub 5-1-1 一维静态数组（全局） Dim score(1 To 6) As Integer Private Sub cmdInput_Click() Dim i As Integer For i = 1 To 6 输入数据 score(i) = Val(InputBox(输入一个成绩)) Next i End Sub 5-1-1 一维静态数组（全局） Private Sub cmdOutput_Click() Dim i As Integer For i = 1 To 6 输出数据 Print score(i) Next i End Sub 5-1-1 一维静态数组 【例5-2】用数组求和：1+2+3+…+100 Option Base 1 设置数组下界默认为1 Private Sub Command1_Click() Dim a(100) As Integer , s As Integer For i = 1 To 100 a(i) = i 给数组赋初值 Next i 5-1-1 一维静态数组 s = 0 累加器清零 For i = 1 To 100 s = s + a(i) Next i Print 1+2+3+…+100=; s End Sub 5-1-1 一维动态数组 静态数组：定义时数组长度已知 动态数组：定义时数组长度未知 计算学生平均分，将学生成绩保存在数组中 用户先输入学生人数，再输入成绩 第一步：Dim Score() As Integer 第二步：事件过程内部 n = Val(InputBox(“请输入总人数”)) ReDim Score(n) 5-1-1 一维动态数组应用 【例5-8】输入学生的总人数和每个学生的成绩，然后