实验五：数组的运用

《实验五：数组的运用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验报告学院：专业：年级：姓名：学号：实验室号：_______计算机号：实验日期：年月日指导教师签字：成绩：报告退发(订正、重做)实验五：数组的运用一、实验目的（1）掌握：数组的声明以及数组元素的引用（2）掌握：静态数组和动态数组的使用差别（3）掌握：与数组有关的常用算法二、实验内容图11、设计如图1所示的窗体Form1，要求程序运行后，单击“确定”命令按纽，通过输入对话框输入5个整数并存在数组a(1To5)中，然后将输入的5个整数按逆序输出。注意:以窗体文件名为lxoutput.frm，工程文件名为lxoutp

2、ut.vbp保存在D:VB程序。图22、设计如图2所示的窗体Form1，要求程序运行后，单击“排序”命令按纽，自动生成10个整数将产生1~100之间的随机数存放在数组a[1to10]中，然后将这10个整数按从小到大的顺序输出。注意:以窗体文件名为sort.frm，工程文件名为sort.vbp保存在D:VB程序。图33、设计如图3所示的窗体Form1，要求程序运行后，单击“确定”命令按纽，自动生成10个整数将产生10~99之间的随机数存放在数组a[1to10]中，然后求出这10个整数的最大值和最小值，并在文本框

3、Text1和Text2中显示出来。注意:以窗体文件名为maxandmin.frm，工程文件名为maxandmin.vbp保存在D:VB程序。图44、设计如图4所示的窗体Form1，要求程序运行后，在文本框text1一个自然数N（大于0小于30），要求单击“S=”命令按纽则求出Fibonacci数列：l，1，2，3，5，8，……的前N项保存于数组Fib()，并求出前N项的和显示在文本框text2中。注意：以窗体文件名为fibsum.frm，工程文件名为fibsum.vbp保存在D:VB程序。三、实验环境（1）硬

4、件：PC机（2）软件：Windows操作系统、VisualBasic6.0四、实验步骤1、启动VisualBasic，在窗体上画一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下：（1）启动VisualBASIC，在窗体上画一个命令按钮，调整窗体和命令按钮到适当大小。（2）控件属性设置如下：控件名称属性Command1Command1.Caption=“确定”（3）控件布局如下：确定（4）双击命令按钮，打开代码窗口，输入如下代码：PrivateSub

5、Command1_Click()Dima(1To5)AsInteger,i%ClsPrint"输入的数据为"Fori=1To5a(i)=InputBox("请输入一个整型数")Printa(i);Spc(2);NextiPrintPrint"逆序输出为"Fori=5To1Step-1Printa(i);Spc(2);NextiEndSub（5）单击“文件”/“保存工程”菜单项，保存工程和窗体文件。2、启动VisualBasic，在窗体上画一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单

6、击命令按钮，结果如图所示。操作步骤如下：（1）启动VisualBASIC，在窗体上画一个命令按钮，调整窗体和命令按钮到适当大小。（2）控件属性设置如下：控件名称属性Command1Command1.Caption=“排序”（3）控件布局如下：排序（4）双击命令按钮，打开代码窗口，输入如下代码：PrivateSubCommand1_Click()Dimt%,i%,j%,a(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*100+1)NextiPrint"生成的10个整数为："Fori=1

7、To10Printa(i);Spc(2);NextiPrintFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiPrint"排序后的结果为："Fori=1To10Printa(i);Spc(2);NextiEndSub(5)单击“文件”/“保存工程”菜单项，保存工程和窗体文件。3、启动VisualBasic，在窗体上画两个标签，两个文本框和一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令

8、按钮，结果如图所示。操作步骤如下：（1）启动VisualBASIC，在窗体上画两个标签，两个文本框，一个命令按钮，调整窗体和各控件到适当大小，并把各控件放到适当的位置。（2）控件属性设置如下：控件名称属性Command1Command1.Caption=“确定”Label1Label1.Caption=“最大值”Label2Label2.Caption=“最小值”Text