实验十 一维数组程序设计
1
实验十 一维数组程序设计
【实验目的】
（1）掌握一维数组的定义及初始化 （2）掌握一维数组的赋值及引用
（3）掌握一维数组的输入及输出方法及有关的算法 （4）掌握动态数组的定义和使用
（5）掌握利用赋值函数Array()为数组赋值 （6）了解掌握自定义类型的使用
【实验内容】 1、尝试编写下列程序
【10-1】求一个班10个学生的平均成绩，然后统计高于平均分的人数。程序运行界面如图10-1所示：
图 10-1 运行结果界面
源代码：
Private Sub Command1_Click() Dim score(1 To 10) As Integer Dim average!, count%, i% average = 0
For i = 1 To 10
score(i) = InputBox(\请输入第\位学生的成绩：\ average = average + score(i) Next i
average = average / 10 count = 0 For i = 1 To 10
实验十 一维数组程序设计
If score(i) > average Then count = count + 1 Next i
Print \平均分=\高于平均分的人数\End Sub
2
?举一反三
【10-1】利用InputBox函数输入十个数，求其中偶数的平均值，并求小于平均值的偶数个数。
【10-2】打印斐波那契数列的前20项（斐波那契数列是这样的一个数列：1、1、2、3、5、8、13，……，这个数列从第三项开始，每一项都等于前两项之和）。程序运行界面如图10-2所示：
图 10-2 运行结果界面
源代码： Option Base 1
Private Sub Command1_Click() Dim f(20) As Integer
Dim i As Integer
Text1.text= \ f(1) = 1 f(2) =1 For i = 3 To 20 f(i) = f(i - 1) + f(i - 2) Next i For i = 1 To 20
Text1.Text = Text1.Text + Str(f(i)) If i Mod 5 = 0 Then
实验十 一维数组程序设计
Text1.Text = Text1.Text + vbCrLf ?vbCrLf相当于chr(13)+chr(10) End If Next i End Sub
3
?举一反三
【10-2】打印斐波那契数列前20项中的奇数，每5个数占一行。已知前两项的值都为1。 【10-3】利用InputBox函数输入10个整数，求出这10个整数中的最大值以及它的下标。程序运行界面如图10-3所示：
图 10-3 运行结果界面
源代码：
Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i%, max%, imax%
For i = 1 To 10
a(i) = InputBox(\请输入第\个数\Next i max = a(1) imax = 1
For i = 2 To 10 If a(i) > max Then max = a(i) imax = i
End If Next i
Print \最大的数是\，下标为\End Sub
?举一反三
【10-3】随机产生10个1~10之间的整数，求出这10个整数中的最小值以及它出现的次
实验十 一维数组程序设计
数。
4
【10-4】利用inputbox函数输入10个数，对这10个数用冒泡法进行降序排序。程序运行界面如图10-4所示：
图 10-4 运行结果界面
源代码：
Private Sub Command1_Click()
Dim a(9) As Integer
Dim i As Integer, j As Integer, t As Integer Print “排序前：”
For i = 0 To 9 a(i) = Val(inputbox(“输入”)) print a(i); Next i print
For i = 0 To 8
For j = 0 To 8 - i If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i
Print “排序后：” For i = 0 To 9 Print a(i); Next i End Sub
?举一反三
实验十 一维数组程序设计
【10-4】随机产生10个100以内的正数，对这10个数用冒泡法进行升序排序。
5
【10-5】利用inputBox函数输入10个数，对这10个数用选择法进行升序排序。程序运行界面如图10-5所示：
图 10-5 运行结果界面
源代码：
Private Sub Command1_Click()
Dim a(9) As Integer
Dim i As Integer, j As Integer, t As Integer, p As Integer Print \排序前：\
For i = 0 To 9 a(i) = Val(InputBox(\输入\Print a(i); Next i Print
For i = 0 To 8 p = i
For j = i + 1 To 9 If a(p) > a(j) Then p = j End If
Next j
t = a(i): a(i) = a(p): a(p) = t Next i
Print \排序后：\For i = 0 To 9 Print a(i); Next i End Sub