VB实验三实验报告-2016

1、实 验 报 告 三课 程VB程序设计实验项目VB数组应用(6学时)成 绩专业班级国际经济与贸易1501姓 名邓成元学 号201531100828实验日期实验目的（1）掌握一维数组（静态、动态）定义及使用（2）掌握二维数组（静态、动态）定义及使用（3）掌握“控件数组”的使用（4）掌握数组相关算法（求最值，排序，查找）（5）通过数组巩固循环及多重循环程序设计实验内容【实验1】对一维数组A(1 to 10)先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。程序运行界面如下图所示。（5分）掌握一维静态数组的定义及使用实验结果：【实验1 代码】Option Base 1Dim A(1

2、To 10) As IntegerPrivate Sub Command1_Click() Dim i As Integer For i = 1 To 10 A(i) = 2 * i - 1 Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer For i = 1 To 10 Print A(i) Next iEnd SubPrivate Sub Form_Load()End Sub【实验1 典型结果】【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分）掌握一维动态数组的定义及使用实验结果：【实验2 代码】Op

3、tion Base 1Dim aPrivate Sub Command1_Click() a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)End SubPrivate Sub Command2_Click() Dim i As Integer For i = 1 To 10 Print a(i); Next iEnd SubPrivate Sub Form_Load()End Sub【实验2 典型结果】【实验3】动态数组声明及输入输出，程序运行界面如下图所示。（10分）掌握动态数组的使用实验结果：【实验3 代码】Private Sub Command1_

4、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行后输出整个数

5、组的值 3.交换数组的行与列后输出整个数组的值掌握二维数组的定义及使用实验结果：【实验4 代码】【实验4 典型结果】【实验5】利用控件数组模拟电话拨号程序，界面设计如图4-4所示。要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的号码。建立Command1控件数组，索引为09；Command2和Command3分别为“重拨”、“清屏”按钮；Timer1控件为“重拨”服务。（10分）掌握控件组的使用实验结果：【实验5 代码】Dim no As String, i As IntegerPrivate Sub Command1_Click(Index A

6、s Integer) Text1.Text = Text1.Text & IndexEnd SubPrivate Sub Command2_Click() no = Text1.Text Text1.Text = "" i = 1 Timer1.Interval = 200 Timer1.Enabled = TrueEnd SubPrivate Sub Command3_Click() Text1.Text = ""Timer1_Timer()Private Sub Timer1_Timer() Text1.Text=Text1.text&

7、;mid(no,i,1) i=i+1 If i >Len(no) Then Timer1.Enabled=False End Sub【实验5 典型结果】【实验6】随机产生10个100999之间的数以递增顺序存放在列表框中，并实现对列表框内数据插入、删除等操作，使得列表框内数据还是有序。程序运行界面如下图所示（10分）掌握数组插入与删除操作实验结果：【实验6 代码】【实验6 典型结果】【实验7】设计一个利用简单组合框对各省、直辖市名称维护的应用程序。要求：添加不重复的省或直辖市到组合框中，对不正确的可修改，以按汉字内码顺有序显示。运行效果如下图所示。（10分）掌握数组常用算法：插入与删除操

8、作实验结果：【实验7 代码】【实验7 典型结果】【实验8】用比较法对数组中的元素按升序排列，程序运行界面如下图所示。（10分）掌握数组常用算法：数组排序实验结果：【实验8 代码】【实验8 典型结果】【实验9】选择法对数组中的元素按升序排列，程序运行界面如下图所示。（10分）掌握数组常用算法：数组排序实验结果：【实验9 代码】【实验9 典型结果】【实验10】用冒泡对数组中的元素按升序排列，程序运行如下图所示。（10分）掌握数组常用算法：数组排序实验结果：【实验10 代码】【实验10 典型结果】【选做1】利用一维数组，统计一个班学生成绩059，6069，7079，8089，90100各分数段的人数，生成一个各分数段的柱状图。人数为运行时输入，成绩给定方法要求为键盘输入。（5分）掌握控件数组的使用实验结果：【选做1 代码】【选做1 典型