实验五：数组的运用.doc

实 验 报 告学院： 专业： 年级： 姓名： 学号： 实验室号：_ 计算机号： 实验日期： 年 月 日 指导教师签字： 成绩： 报告退发 (订正 、 重做) 实验五：数组的运用一、实验目的（1）掌握：数组的声明以及数组元素的引用（2）掌握：静态数组和动态数组的使用差别（3）掌握：与数组有关的常用算法二、实验内容 图11、设计如图1所示的窗体Form1，要求程序运行后，单击“确定”命令按纽，通过输入对话框输入5个整数并存在数组a(1 To 5)中，然后将输入的5个整数按逆序输出。 注意:以窗体文件名为lxoutput.frm ，工程文件名为lxoutput.vbp保存在D:VB程序。图22、设计如图2所示的窗体Form1，要求程序运行后，单击“排序”命令按纽，自动生成 10个整数将产生1100之间的随机数存放在数组a1 to 10中，然后将这10个整数按从小到大的顺序输出。 注意:以窗体文件名为sort.frm ，工程文件名为sort.vbp保存在D:VB程序。图33、设计如图3所示的窗体Form1，要求程序运行后，单击“确定”命令按纽，自动生成 10个整数将产生1099之间的随机数存放在数组a1 to 10中，然后求出这10个整数的最大值和最小值，并在文本框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）硬件：PC机（2）软件：Windows 操作系统、Visual Basic 6.0四、实验步骤 1、启动Visual Basic，在窗体上画一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下：（1）启动Visual BASIC，在窗体上画一个命令按钮，调整窗体和命令按钮到适当大小。（2）控件属性设置如下：控件名称属性Command1Command1.Caption=“确定”（3）控件布局如下：确定（4）双击命令按钮，打开代码窗口，输入如下代码：Private Sub Command1_Click() Dim a(1 To 5) As Integer, i% Cls Print 输入的数据为 For i = 1 To 5 a(i) = InputBox(请输入一个整型数) Print a(i); Spc(2); Next i Print Print 逆序输出为 For i = 5 To 1 Step -1 Print a(i); Spc(2);Next iEnd Sub（5）单击“文件”/“保存工程”菜单项，保存工程和窗体文件。2、启动Visual Basic，在窗体上画一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下：（1）启动Visual BASIC，在窗体上画一个命令按钮，调整窗体和命令按钮到适当大小。（2）控件属性设置如下：控件名称属性Command1Command1.Caption=“排序”（3）控件布局如下：排序（4）双击命令按钮，打开代码窗口，输入如下代码： Private Sub Command1_Click() Dim t%, i%, j%, a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100 + 1) Next i Print 生成的10个整数为： For i = 1 To 10 Print a(i); Spc(2); Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next jNext iPrint 排序后的结果为：For i = 1 To 10 Print a(i); Spc(2);Next iEnd Sub(5) 单击“文件”/“保存工程”菜单项，保存工程和窗体文件。3、启动Visual Basic，在窗体上画两个标签，两个文本框和一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下：（1）启动Visual BASIC，在窗体上画两个标签，两个文本框，一个命令按钮，调整窗体和各控件到适当大小，并把各控件放到适当的位置。（2）控件属性设置如下：控件名称属性Command1Command1.Caption=“确定”Label1Label1.Caption=“最大值”Label2Label2.Caption=“最小值”Text1Text1.Text=“ ”Text2Text2.Text=“ ”（3）控件布局如下：确定最大值最小值（4）双击命令按钮，打开代码窗口，输入如下代码：Private Sub Command1_Click() Dim min%, max%, i%, a(1 To 10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Next i min = a(1): max = a(1) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) Next i Text1.Text = max Text2.Text = minEnd Sub(5) 单击“文件”/“保存工程”菜单项，保存工程和窗体文件。4、启动Visual Basic，在窗体上画一个标签，两个文本框和一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。操作步骤如下：（1）启动Visual BASIC，在窗体上画一个标签，两个文本框，一个命令按钮，调整窗体和各控件到适当大小，并把各控件放到适当的位置。（2）控件属性设置如下：控件名称属性Command1Command1.Caption=“S=”Label1Label1.Caption=“N=”Text1Text1.Text=“ ”Text2Text2.Text=“ ”（3）控件布局如下：N=S=（4）双击命令按钮，打开代码窗口，输入如下代码：Private Sub Command1_Click() Dim Fib(), i%, n%, sum As Long n = CInt(Text1.Text) ReDim Fib(n) Fib(1) = 1: Fib(2) = 1 For i = 3 To n Fi