资源描述：
《实验五：数组的运用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、实验扌艮告学院：专业：年级：姓名：学号：实验室号：计算机号：-实验H期：—年—月_H指导教师签字：成绩:报告退发（订正、重做）实验五：数组的运用一、实验目的（1）学握：数组的声明以及数组元索的引用（2）掌握：静态数组和动态数组的使用差别（3）掌握：与数组有关的常用算法二、实验内容I輪.Forml-口
2、冈输入的数据为565239逆序输出为932556厂确定•““}图11、设计如图1所示的窗体Forml,耍求程序运行后，单击“确定”命令按纽，通过输入对话框输入5个整数并存在数组a（lTo5）中，然后将输入的5个整数按逆序输出。注意:以窗体文件名为lxoutput.frm
3、,工程文件名为lxoutput.vbp保存在D:VB程序。图22、设计如图2所示的窗体Form1,要求程序运行后，单击“排序”命令按纽，自动牛成10个整数将产生1-100Z间的随机数存放在数组aflto10］中，然示将这10个整数按从小到人的顺序输岀。注意:以窗体文件名为sort.frm,工程文件名为sort.vbp保存在D:VB程序。图33、设计如图3所示的窗体Form1,要求程序运行后，单击“确定”命令按纽，白动牛成10个整数将产生10〜99之间的随机数存放在数组a［lto10］中，然后求出这10个整数的最大值和最小值，并在文本框Tcxtl和Tcxt2中显示出
4、来。注意:以窗体文件名为maxarKimin.fiTn,工程文件名为maxandniin.vbp保存在D:VB程序。图44、设计如图4所示的窗体Forml,要求程序运行后，在文本框text1—个口然数N(大丁7小于30),要求单击“S=”命令按纽则求出Fibonacci数列：1,1,2,3,5,8,……的前N项保存于数组Fib(),并求出前N项的和显示在文本框text2屮。注意：以窗体文件名为fibsum.frm,工程文件名为fibsum.vbp保存在D:VB程序。三、实验环境(1)硬件：PC机(2)软件：Windows操作系统、VisualBasic6.0四、实
5、验步骤1、启动VisualBasic,在窗体上画一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下:(1)启动VisualBASIC,在窗体上画一•个命令按钮，调整窗体和命令按钮到适当人小。(3)控件布局如下:(2)控件属性设置如下:控件名称属性Command1Command1.Caption="确定”确定(4)双击命令按钮，打开代码窗口，输入如下代码:PrivateSubCommandl_Click()Dima(lTo5)AsInteger,i%CisPrint”输入的数据为”Fori=1To5a(i)
6、=InputBoxC"请输入一个整型数”)Printa(i);Spc(2);NextiPrintPrint”逆序输出为“Fori=5To1Step-1Printa(i);Spc(2);NextiEndSub（5）单击“文件”/“保存工程”菜单项，保存工程和窗体文件。2、启动VisualBasic,在窗体上画一■个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下：（1）动VisualBASIC,在窗体上画一个命令按钮，调整窗体和命令按钮到适当大小。（3）控件布局如下:（2）控件属性设置如下:控件名称属性Com
7、mand1Command1.Caption="排序”排序(4)双击命令按钮，打开代码窗口，输入如下代码：PrivateSubCommandl_Click()Dimt%,i%,j%,a(lTo10)AsIntegerFori=1To10a(i)=Int(Rnd*100+1)NextiPrint”生成的10个整数为：”Fori=1To10Printa(i);Spc(2);NextiPrintFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)EndIfNextjNextiPrint”排序后的结果为：“Fori=
8、1To10Printa(i);Spc(2);NextiEndSub⑸单击“文件”/“保存工程”菜单项，保存工程和窗体文件。3、启动VisualBasic,在窗体上画两个标签，两个文本框和一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下：（1）启动VisualBASIC,在窗体上画两个标签，两个文本框，一个命令按钮，调整窗体和各控件到适当大小，并把各控件放到适当的位置。（2）控件属性设置如下：控件名称属性Command1Command1.Caption="确定”Label1Labell.
