VB实验三-实验报告---2016

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

2、SubCommand1_Click()DimiAsIntegerFori=1To10A(i)=2*i-1NextiEndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To10PrintA(i)NextiEndSubPrivateSubForm_Load()EndSub【实验1典型结果】【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分）掌握一维动态数组的定义及使用实验结果：【实验2代码】OptionBase1DimaPrivateSubCommand1_Click()a=Array(1,3,5,7,9,11,13,15,17

3、,19)EndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To10Printa(i);NextiEndSubPrivateSubForm_Load()EndSub【实验2典型结果】【实验3】动态数组声明及输入输出，程序运行界面如下图所示。（10分）&款级定义瞩直可出in2030用ReDzmPreservemtO改变魏组大小后1D况3040ir1reinm-iiiiBsaiira-ii!-!rnurr,-动态教组定义哦值输出LJ掌握动态数组的使用实验结果：【实验3代码】PrivateSubCommand1_Click()Dima()As

4、Integern=3ReDima(n)a(1)=10a=20a(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典型结果】2口30serveaCn改变教蛆大小2030一矗碗萩诡前'"IBu4，BIIHA-3IB"|"BI311d,&3痛fiSbim!3Ina3IBaMaaAIB"3IJ【实验4】静态声明一个二维数组，输入和输出该数组各元素的值（10分

5、）要求：1.计算并输出数组主对角线和次对角线元素的和。I 交换1、3行后输出整个数组的值交换数组的行与列后输出整个数组的值2345678910II 1213141516171819202122232425掌握二维数组的定义及使用实验结果：【实验4代码】【实验4典型结果】【实验5】利用控件数组模拟电话拨号程序，界面设计如图4-4所示。要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的号码。建立Commandl控件数组，索引为09;Command2和Commands分别为"重拨”、“清屏”按钮；Timerl控件为“重拨”服务。（10分）掌握控

6、件组的使用实验结果：【实验5代码】DimnoAsString,iAsIntegerPrivateSubCommand1_Click(IndexAsInteger)Textl.Text=Text1.Text&IndexEndSubPrivateSubCommand2_Click()no=Text1.TextText1.Text=""i=1Timer1.Interval=200Timerl.Enabled=TrueEndSubPrivateSubCommand3_Click()Textl.Text=""Timer1_Timer()PrivateSub

7、Timer1_Timer()Text1.Text=Text1.text&mid(no,i,1)i=i+1Ifi>Len(no)ThenTimer1.Enabled=FalseEndSub【实验5典型结果】【实验6】随机产生10个100999之间的数以递增顺序存放在列表框中，并实现对列表框内数据插入、删除等操作，使得列表框内数据还是有序。程序运行界面如下图所示(10分)生成有序列表*!成用20179047352u3637565762巴T37an33掌握数组插入与删除操作实验结果:【实验6代码】【实验6典型结果】【实验7】设计一个利用简单组合框对各省、直辖市名称维护的应用程序。要求：

8、添加不重复的省或直辖市到组合框中，对不正确的可修改，以按汉字内码顺有序显示。运行效果如下图所示。（10分）0掌握数组常用算法：插入与删除操作实验结果：【实验7代码】【实验7典型结果】【实验8】用比较法对数组中的元素按升序排列，程序运行界面如下图所示。（10分）掌握数组常用算法：数组排序实验结果：【实验8代码】【实验8典型结果】【实验9】选择法对数组中的元素按升序排列，程序运行界面如下图所示。（10分）掌握数组常用算法：数组排序实验结果：【实验9代码】【实验9典型结果】【实验10】用冒泡对数组中的元素按升序排列，程序运行如下图所示。（10分）'a冒泡荏排序9回999gggg999999Q

9、e99Qw-956009090*90905585off6s883w-3&-O768DQ06SS9&5TTTTTT8_y76333331865TTTTT9887&77TT81765666-63883T&&&&77176S555367373183636363636S66B308S0TnJTu3-1*JIJI1a1x222222222掌握数组常用算法：数组排序实验结果：【实验10代码】【实验10典型结果】【选做1】利用一维数组，统计一个班学生成绩059,6069,7079,8089,90100各分数段的人数，生成一个各分数段的柱状图。人数为运行时输入，成绩给定方法要求为键盘输入。（5分）掌握控件数组的