[人力资源管理]chap7-数组.ppt

第七章 数组 问题：求a，b，c三个数中的最大数。 算法： M=a If bm then m=b If cm then m=c Text1.text=m 思考：若求10个数的最大数呢？ 数组的基本概念 定义: 一组性质相同的有序的数 例: 输入全班40名同学的英语成绩，是否需要定义40个变量？ 不需要定义40个变量，只需定义一个数组，数组中共40个元素。 B(1) B(2) B(3) …… B(40) 7.1 一维静态数组 例: Dim B(0 To 3) As String 字符串类型数组 下界0，上界 3 元素 B(0) B(1) B(2) B(3) 说明： 4、数组在定义后自动被初始化: ? 将数值型数组元素值置为0 ? 将字符串型数组元素值置为空字符串 ? 将可变类型数组元素值置为Empty 5、程序运行时期，可使用Erase语句重新初始化 格式： Erase数组名 例: Dim A(-4 TO 10) As Integer 一维整型数值数组 下界 -4，上界 10 元素 A(-4) A(-3) ... A(0) A(1) ... A(10) 计算一维数组元素个数:上界-下界+1 判断下列数组声明是否正确，如果正确试说出其有几个元素。 7.1.2 一维数组元素的引用 Dim a(10) As Integer For i=1 to 10 step 1 a(i)= InputBox(“输入第” i “人的成绩) Next i Print a (i) 1.给一维数组赋值 2.数组的输出 【例1】 输入10名同学的成绩，求平均分、最高分、最低分。 分析: 求最大值、最小值方法 Private Sub Form_Load() For i = 1 To 10 a(i)=Val(InputBox(请输入第 i 个学生的成绩, 成绩统计,)) Next i s = 0 Max = a(1) Min = a(1) 通过循环依次比较，求最大、最小值；求总和 For i = 1 To 10 If a(i) Max Then Max = a(i) If a(i) Min Then Min = a(i) s= s + a(i) Next i Average = s / 10 求平均值 Text1.Text = Format(Average, 0.00) Text2.Text = Max Text3.Text = Min End Sub 【例2 】生成20个10到100之间的随机整数，存于一维整型数组A中，同时显示于第一个文本框中，单击窗体将这20个数以相反的次序显示于另一个文本框中。 Option Base 1 Private Sub Form_Click() Dim A(20) As Integer Text1.Text = For i = 1 To 20 A(i) = Int(Rnd * 91 + 10) Text1.Text = Text1.Text A(i) Next i Text2.Text = For i = 20 To 1 Step -1 Text2.Text = Text2.Text A(i) Next i End Sub 思考: 如果是要求按逆序重放到数组A中,应该怎么办呢? 分析: A(1)与A(20)交换 A(2)与A(19)交换 A(3)与A(17)交换 … A(10)与A(11)交换 【例3】输入5名同学的成绩，显示于文本框Text1中，按成绩从高到低的次序排列，并将结果显示于另一个文本框Text2中。 冒泡法排序: 对N个数从小到大排序 (1)依次将a(1)-a(n)中每对相邻元素进行比较，使两数中的小数上冒、大数下沉，本趟结束时a的最大数沉到了最后面a(n)； (2)依次将a(1)-a(n-1)中每对相邻元素进行比较，使两数中的小数上冒、大数下沉，本趟结束时当前的最大数沉到了a(n-1)； (3)重复以上方法，最后一趟，将a(1)- a(2)中的两个元素进行比较，使小数上冒、大数下沉。 用冒泡法从小到大排序的基本思路是，从前到后扫描数据序列，比较相邻两个数的大小，将小的数调到前