资源描述：
《vb实验三实验报告-leifeng》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
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分）掌握一维静态数组的定义及使用实验结果：【实验1代码】OptionBase1DimA(1To1
2、0)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerFori=1To10A(i)=2*i-1NextiEndSub17PrivateSubCommand2_Click()DimiAsIntegerFori=1To10PrintA(i);NextiEndSub【实验1典型结果】【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分）掌握一维动态数组的定义及使用实验结果：【实验2代码】OptionBase1DimAPrivateSubCommand1_Click()A=Array(2,4,6,8,10,12,14,16,18,20)
3、17EndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To10PrintA(i);NextiEndSub【实验2典型结果】【实验3】动态数组声明及输入输出，程序运行界面如下图所示。（10分）掌握动态数组的使用实验结果：【实验3代码】PrivateSubCommand1_Click()Dima()AsInteger17n=3ReDima(n)a(1)=10a(2)=20a(3)=30Printa(1);a(2);a(3)Print"用ReDimPreservea(n)改变数组大小后"n=4ReDimPreservea(n)a(4)=40Pri
4、nta(1);a(2);a(3);a(4)EndSub【实验3典型结果】【实验4】静态声明一个二维数组，输入和输出该数组各元素的值（10分）要求：1.计算并输出数组主对角线和次对角线元素的和。2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值17掌握二维数组的定义及使用实验结果：【实验4代码】PrivateSubCommand1_Click()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
5、)Ifi+j=6Thent=t+a(i,j)NextjPrintNextiPrint"主对角线元素的和为："&sPrint"次对角线元素的和为："&tPrint"1,3行交换后的数组为"Fori=1To5Forj=1To5Ifi=1Then17b(i,j)=a(3,j)ElseIfi=3Thenb(i,j)=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
6、典型结果】17【实验5】利用控件数组模拟电话拨号程序，界面设计如图4-4所示。要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的号码。建立Command1控件数组，索引为0－9；Command2和Command3分别为“重拨”、“清屏”按钮；Timer1控件为“重拨”服务。（10分）掌握控件组的使用实验结果：【实验5代码】【实验5典型结果】17【实验6】随机产生10个100－999之间的数以递增顺序存放在列表框中，并实现对列表框内数据插入、删除等操作，使得列表框内数据还是有序。程序运行界面如下图所示（10分）掌握数组插入与删除操作实验结果：【实验
7、6代码】PrivateSubCommand1_Click()Dimi%,j%Fori=1To10j=Int(Rnd*900+100)List1.AddItemjNextiEndSubPrivateSubCommand2_Click()Dimx%,y%x=Val(Text1.Text)Fory=0ToList1.ListCount-1Ifx
