资源描述：
《VB实验三实验报告-LEIFENG.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、实验报告三课程VB程序设计实验项目VB数组应用(6学时)成绩专业班级经济学2015级姓名雷锋学号6666666666666666666实验日期2015.5.1实验目的（1）掌握一维数组（静态、动态）定义及使用（2）掌握二维数组（静态、动态）定义及使用（3）掌握“控件数组”的使用（4）掌握数组相关算法（求最值，排序，查找）（5）通过数组巩固循环及多重循环程序设计实验内容【实验1】对一维数组A(1to10)先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。程序运行界面如下图所示。（5分）掌握一维静态数组的定义及使用实
2、验结果：【实验1代码】OptionBase1DimA(1To10)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerFori=1To10A(i)=2*i-1NextiEndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To10PrintA(i);NextiEndSub【实验1典型结果】【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分）掌握一维动态数组的定义及使用实验结果：【实验2代码】OptionBase1DimA
3、PrivateSubCommand1_Click()A=Array(2,4,6,8,10,12,14,16,18,20)EndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To10PrintA(i);NextiEndSub【实验2典型结果】【实验3】动态数组声明及输入输出，程序运行界面如下图所示。（10分）掌握动态数组的使用实验结果：【实验3代码】PrivateSubCommand1_Click()Dima()AsIntegern=3ReDima(n)a(1)=10a(2)=20a
4、(3)=30Printa(1);a(2);a(3)Print"用ReDimPreservea(n)改变数组大小后"n=4ReDimPreservea(n)a(4)=40Printa(1);a(2);a(3);a(4)EndSub【实验3典型结果】【实验4】静态声明一个二维数组，输入和输出该数组各元素的值（10分）要求：1.计算并输出数组主对角线和次对角线元素的和。2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值掌握二维数组的定义及使用实验结果：【实验4代码】PrivateSubCommand1_Click(
5、)Dima(5,5)AsInteger,b(5,5)AsInteger,s%,t%Print"原数组为"Fori=1To5Forj=1To5a(i,j)=(i-1)*5+jPrinta(i,j),Ifi=jThens=s+a(i,j)Ifi+j=6Thent=t+a(i,j)NextjPrintNextiPrint"主对角线元素的和为："&sPrint"次对角线元素的和为："&tPrint"1,3行交换后的数组为"Fori=1To5Forj=1To5Ifi=1Thenb(i,j)=a(3,j)ElseIfi=3Thenb(i,j)
6、=a(1,j)Elseb(i,j)=a(i,j)EndIfPrintb(i,j),NextjPrintNextiPrintPrint"行列交换后的数组为"Fori=1To5Forj=1To5b(i,j)=a(j,i)Printb(i,j),NextjPrintNextiEndSub【实验4典型结果】【实验5】利用控件数组模拟电话拨号程序，界面设计如图4-4所示。要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的号码。建立Command1控件数组，索引为0－9；Command2和Comm
7、and3分别为“重拨”、“清屏”按钮；Timer1控件为“重拨”服务。（10分）掌握控件组的使用实验结果：【实验5代码】【实验5典型结果】【实验6】随机产生10个100－999之间的数以递增顺序存放在列表框中，并实现对列表框内数据插入、删除等操作，使得列表框内数据还是有序。程序运行界面如下图所示（10分）掌握数组插入与删除操作实验结果：【实验6代码】PrivateSubCommand1_Click()Dimi%,j%Fori=1To10j=Int(Rnd*900+100)List1.AddItemjNextiEndSubPriva
8、teSubCommand2_Click()Dimx%,y%x=Val(Text1.Text)Fory=0ToList1.ListCount-1Ifx
