内容发布更新时间 : 2024/11/19 17:39:36星期一 下面是文章的全部内容请认真阅读。

实验十 一维数组程序设计

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个整数中的最小值以及它出现的次