4.1数组的概念 第4章数组与自定义类型 2.VB中对数组变量的处理 a 〉 按变量的数据类型找到相应大 2 小的一组连续的存储空间，再 按约定赋初值。例如： 5 Dim a%(4) a(0)=2 a(3)=5 a(4)=3 第12页
第4章数组与自定义类型 第 12 页 2.VB中对数组变量的处理 按变量的数据类型找到相应大 小的一组连续的存储空间，再 按约定赋初值。例如： Dim a%(4) a(0)=2 a(3)=5 a(4)=3 a 3 25 4.1 数组的概念
4.1数组的概念 第4章数组与自定义类型 3.为什么要用数组？ 例4-1从键盘输入6个学生成绩，要求输出高于平均成 绩的成绩。 思路：（1)首先要求出平均成绩； (2)将5个成绩与平均成绩进行比较，如果高 于平均成绩则输出。 第13页
第 4 章 数 组 与 自 定 义 类 型 第 13 页 3.为什么要用数组？ 例4-1 从键盘输入6个学生成绩，要求输出高于平均成 绩的成绩。 思路：（1）首先要求出平均成绩； （2）将5个成绩与平均成绩进行比较，如果高 于平均成绩则输出。 4.1 数组的概念
4.1数组的概念 第4章数组与自定义类型 3.为什么要用数组？ 用一个普通变量接收6个数 Private Sub Command1_Click() Dim x!,sum!,aver!,i% 缺点：1.因为只有一个变量作为数据载体， 类似于猴摘桃，新的来旧的去； 2.数据需要录入两遍，增加工作量 3.容易出错。 X=InputBox("请输入要处理的数据") If x aver Then Print x Next i End Sub 第14页
第 4 章 数 组 与 自 定 义 类 型 第 14 页 '用一个普通变量接收6个数 Private Sub Command1_Click() Dim x!, sum!, aver!, i% For i = 1 To 6 x = InputBox("请输入要处理的数据") sum = sum + x '累加求和 Next i aver = sum / 6 '求均值 For i = 1 To 6 x = InputBox("请输入要处理的数据") If x > aver Then Print x Next i End Sub 缺点：1. 因为只有一个变量作为数据载体， 类似于猴摘桃，新的来旧的去； 2.数据需要录入两遍，增加工作量 3.容易出错。 3.为什么要用数组？ 4.1 数组的概念
4.1数组的概念 第4章数组与自定义类型 3.为什么要用数组？ '用6个普通变量接收6个数 Private Sub Command1_Click() DimA1%,A2%,A3%,A4%,A5%,A6% A1=InputBox(("请输入第1人的成绩") 缺点： 尽管能保存下数据，但程序代 码太长，而且随着要处理的数据 越多，代码越长 End Sub 第15页
第 4 章 数 组 与 自 定 义 类 型 第 15 页 '用6个普通变量接收6个数 Private Sub Command1_Click() Dim A1%, A2%, A3%, A4%, A5%, A6% A1 = InputBox("请输入第1人的成绩") A2 = InputBox("请输入第2人的成绩") A3 = InputBox("请输入第3人的成绩") A4 = InputBox("请输入第4人的成绩") A5 = InputBox("请输入第5人的成绩") A6 = InputBox("请输入第6人的成绩") …… End Sub 3.为什么要用数组？ 缺点： 尽管能保存下数据，但程序代 码太长，而且随着要处理的数据 越多，代码越长。 4.1 数组的概念
4.1数组的概念 第4章数组与自定义类型 3.为什么要用数组？ '用数组接收6个数 Private Sub Command1_Click() Dim x%(6),sum!,aver!,i% For i=1 To 6 x()=InputBox("请输入要处理的数据") sum=sum+()'累加求和 Next i aver sum /6 求均值 For i=1To 6 If x(i)>aver Then Print x(i) Next i End Sub 第16页
第 4 章 数 组 与 自 定 义 类 型 第 16 页 3.为什么要用数组？ '用数组接收6个数 Private Sub Command1_Click() Dim x%(6), sum!, aver!, i% For i = 1 To 6 x(i) = InputBox("请输入要处理的数据") sum = sum + x(i) '累加求和 Next i aver = sum / 6 '求均值 For i = 1 To 6 If x(i) > aver Then Print x(i) Next i End Sub 4.1 数组的概念