实验报告三
实验目的
（1）掌握一维数组（静态、动态）定义及使用
（2）掌握二维数组（静态、动态）定义及使用
（3）掌握“控件数组”的使用
（4）掌握数组相关算法（求最值，排序，查找）
（5）通过数组巩固循环及多重循环程序设计
实验内容
【实验1】对一维数组A(1 to 10)先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。

程序运行界面如下图所示。

（5分）
掌握一维静态数组的定义及使用
实验结果：
【实验1 代码】
Option Base 1
Dim A(1 T o 10) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 1 T o 10
A(i) = 2 * i - 1
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1 T o 10
Print A(i)
Next i
End Sub
Private Sub Form_Load()
End Sub
【实验1 典型结果】
【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分）
掌握一维动态数组的定义及使用
实验结果：
【实验2 代码】
Option Base 1
Dim a
Private Sub Command1_Click()
a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1 T o 10
Print a(i);
Next i
End Sub
Private Sub Form_Load()
End Sub
【实验2 典型结果】
【实验3】动态数组声明及输入输出，程序运行界面如下图所示。

（10分）
掌握动态数组的使用
实验结果：
【实验3 代码】
Private Sub Command1_Click()
Dim a() As Integer
n = 3
ReDim a(n)
a(1) = 10
a(2) = 20
a(3) = 30
Print a(1), a(2), a(3)
Print "用Redim Preserve a(n)改变数组大小"
n = 4
ReDim Preserve a(n)
a(4) = 40
Print a(1), a(2), a(3), a(4)
End Sub
【实验3 典型结果】
【实验4】静态声明一个二维数组，输入和输出该数组各元素的值 （10分） 要求：1.计算并输出数组主对角线和次对角线元素的和。

2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值
12345678910111213141516171819202122232425⎡⎤
⎢⎥⎢
⎥⎢⎥⎢
⎥⎢⎥⎢⎥⎣⎦
掌握二维数组的定义及使用
实验结果：
【实验4 代码】
【实验4 典型结果】
【实验5】利用控件数组模拟电话拨号程序，界面设计如图4-4所示。

要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的号码。

建立Command1控件数组，索引为0－9；Command2和Command3分别为“重拨”、“清屏”按钮；Timer1控件为“重拨”服务。

（10分）
掌握控件组的使用
实验结果：
【实验5 代码】
Dim no As String, i As Integer
Private Sub Command1_Click(Index As Integer)
T ext1.T ext = T ext1.T ext & Index
End Sub
Private Sub Command2_Click()
no = T ext1.T ext
T ext1.T ext = ""
i = 1
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
T ext1.T ext = ""
Timer1_Timer()Private Sub Timer1_Timer()
T ext1.T ext=T ext1.text&mid(no,i,1)
i=i+1
If i >Len(no) Then Timer1.Enabled=False
End Sub
【实验5 典型结果】
【实验6】随机产生10个100－999之间的数以递增顺序存放在列表框中，并实现对列表框内数据插入、删除等操作，使得列表框内数据还是有序。

程序运行界面如下图所示（10分）
掌握数组插入与删除操作
实验结果：
【实验6 代码】
【实验6 典型结果】
【实验7】设计一个利用简单组合框对各省、直辖市名称维护的应用程序。

要求：添加不重复的省或直辖市到组合框中，对不正确的可修改，以按汉字内码顺有序显示。

运行效果如下图所示。

（10分）
掌握数组常用算法：插入与删除操作
实验结果：
【实验7 代码】
【实验7 典型结果】
【实验8】用比较法对数组中的元素按升序排列，程序运行界面如下图所示。

（10分）
掌握数组常用算法：数组排序
实验结果：
【实验8 代码】
【实验8 典型结果】
【实验9】选择法对数组中的元素按升序排列，程序运行界面如下图所示。

（10分）
掌握数组常用算法：数组排序
实验结果：
【实验9 代码】
【实验9 典型结果】
【实验10】用冒泡对数组中的元素按升序排列，程序运行如下图所示。

（10分）
掌握数组常用算法：数组排序
实验结果：
【实验10 代码】
【实验10 典型结果】
【选做1】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。

人数为运行时输入，成绩给定方法要求为键盘输入。

（5分）
掌握控件数组的使用
实验结果：
【选做1代码】
【选做1典型结果】
【选做2】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……（5分）
掌握一维数组的使用
实验结果：
【选做2代码】
【选做2典型结果】
实验小结
1.遇到的问题：
2.对课程的建议：。