vb实验三实验报告-leifeng

vb实验三实验报告-leifeng

ID:8821808

大小:393.50 KB

页数:17页

时间:2018-04-08

vb实验三实验报告-leifeng_第1页
vb实验三实验报告-leifeng_第2页
vb实验三实验报告-leifeng_第3页
vb实验三实验报告-leifeng_第4页
vb实验三实验报告-leifeng_第5页
资源描述:

《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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。