Visual Basic程序设计第7章.pptVIP

程序如下： Private Sub Command1_Click() Dim a(4, 3) As Single, xm(4) As String * 10, i%, j%, aver! Print Tab(25); 成绩表 Print Print 姓名; Tab(15); 英语; Tab(25); 数学; Print Tab(35); 法律; Tab(45); 平均分 Print For i = 1 To 4 aver = 0 xm(i) = InputBox(输入姓名) Print xm(i); For j = 1 To 3 a(i, j) = InputBox(输入 xm(i) 的一个成绩 ) aver = aver + a(i, j) Next j aver = aver / 3 Print Tab(15); a(i, 1); Tab(25); a(i, 2); Print Tab(35); a(i, 3); Tab(45); aver Print Next i End Sub 7.4 可调数组 在实际应用中，有时事先无法确定到底需要多大的数组，如果定义的数组“足够大”，显然又会造成内存空间的浪费。 可调数组提供了一种灵活有效的管理内存机制，能够在程序运行期间可以根据用户的需要随时改变数组的大小。 7.4.1 可调数组的定义 可调数组的定义分为两步： 第一步：声明一个没有下标参数的数组。 格式为： 说明符 数组名( ) [As 类型] 第二步：引用数组前用 ReDim语句重新定义。 格式为： ReDim [Preserve] 数组名([下界 to ] 上界[, [下界 to ] 上界……]) [As 类型] 例如： Private Sub Command1_Click() Dim a() As Integer Dim n% …… n = Val(InputBox(input n)) ReDim a(n) …… End Sub 说明： （1）格式中的“说明符”、“ 数组名”、“ 类型”等说明同一维数组的定义。 （2）下界、上界可以是常量，也可以是有了确定值的变量。 b(i) = InputBox(请输入一个整型数) Next i For i = 1 To 20 Print b(i); If i Mod 5 = 0 Then Print Next i End Sub 【例7.2】编写程序，把输入的10个整数按逆序输出。 Private Sub Command1_Click() Dim a(10) As Integer, i% Print 输入的数据为 For i = 1 To 10 a(i) = InputBox(请输入一个整型数) Print a(i), Next i Print Print 逆序输出为 For i = 10 To 1 step -1 Print a(i), Next i End Sub 7.2.3 一维数组的应用举例 【例7.3】从键盘上输入40人的考试成绩，输出高于平均成绩的分数。 分析：该问题可分三部分处理：一是输入40个人的成绩；二是求平均分；三是把这40个分数逐一和平均成绩进行比较，若高于平均成绩，则输出。 程序如下： Private Sub Command1_Click() Dim score(40) As Single, aver!, i% aver = 0 For i = 1 To 40 score(i) = InputBox(请输入成绩) aver = aver + score(i) Next i aver = aver / 40 For i = 1 To 40 If score(i) aver Then Print score(i) Next i End Sub 【例7.4】从键盘上输入10个整数，把这些数按由小到大的顺序排序输出。 排序的方法很多，如选择法、冒泡法等。这里介绍最容易理解的“比较排序法”。 设10