第5章_数组题材.ppt

交通运输管理学院 管理科学与工程系薛大伸 教授;第5章 数 组 ;5.1 数组的概念 ;②统计高于平均分的人数,如何实现？;使用数组mark存放100个人的成绩： ;数组: 通常是相同类型的变量的集合， 系统为其分配了连续的存储区域。 作用：用一个数组名代表逻辑上相关的一批数据，用下标表示该数组中的各个元素，和循环语句结合使用，使得程序书写精炼。 使用：必须先声明后使用;例 Dim mark(99) As Integer 声明: 一个一维整型数组mark ，共有100个元素； 下标: 下标范围是0 To 99；数组的下标的下界默认为0 。 各元素: mark(0)，mark(1)，…，mark(99)； mark(i)表示由下标i的值决定是哪一个元素。 mark数组内存分配如下：;5.2 数组声明及初始化 ;例 对象类型数组的应用 Private Sub Form1_Click(…) Handles Me.Click Dim a(4) a(0) = Now : a(1) = 1 : a(2) = True a(3) = ABC : a(4) = 1.28 TextBox1.Text = a(0) : TextBox2.Text = a(1) TextBox3.Text = a(2) : TextBox4.Text = a(3) TextBox5.Text = a(4) End Sub ;二维数组声明;数组的初始化(不允许声明下标的上界) ;重定义数组大小 ;重定义数组大小注意事项：;例5.2 对例5.1改进，根据指定人数输入学生的成绩，计算的平均分和高于平均分的人数放入数组中。 Private Sub Button1_Click(…) Handles Button1.Click Dim i%, n%, aver! n = InputBox(输入学生的人数) Dim mark(n - 1) As Integer 存放n个学生成绩的数组 aver = 0 For i = 0 To n - 1 mark(i) = Int(Rnd() * 101) 通过随机数产生成绩 aver = aver + mark(i) ‘ 计算分数的和 Next i 增加两个元素，存放平均分和高于平均分的人数 ReDim Preserve mark(n + 1) ; mark(n) = aver / n 计算平均分 mark(n + 1) = 0 For i = 0 To n – 1 ‘高于平均分人数 If mark(i) mark(n) Then mark(n + 1) = mark(n + 1) + 1 Next i For i = 0 To n - 1 显示n 个人的分数 TextBox1.Text = mark( i )= mark(i) vbCrLf Next i 平均分和高于平均分人数 TextBox1.Text = 平均分= mark(n) 高于???均分= mark(n + 1) End Sub;5.3 数组的操作 ;2 数组的输出 ;本例题中所使用的函数说明： （1）Len(数值型数据)的值等于该类型数据占用空间的字节数。 Len(字符型数据)的值等于字符串的长度。 （2）Str(数值型数据)返回的字符串，左边有一位正负号位，正号以空格“ ”表示。 Trim(sc(i,j))等价于Trim(Str(sc(i,j))) （3）表达式：字符串 数值，是将数值自动转换成不包含空格的字符串。 ;方阵规律：5行5列，0≤i ≤4， 0≤j ≤4，第一行的元素为0~4，以后每一行是前一行对应元素增加5，即：sc(i,j)=i*5+j 控制输出的空格：Space(4-Len(Trim(sc(i,j)))) 每一列右对齐，Space(4-Len(Trim(sc(i,j)))) sc(i,j) 若左对齐，应改为： sc(i,j) Space(4-Len(Trim(sc(i,j))))