VB上机实验报告 详细易懂_vb上机实验报告5

VB上机实验报告 详细易懂由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb上机实验报告5”。

实验五

数组的应用

一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。

2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计

3．加深对循环控制结构的理解和使用

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤

3．学会使用一维数组实现简单的应用程序

四、实验内容和步骤

1.实验内容

随机产生10个两位整数，找出其中的最大值、最小值和平均值。2.实验步骤

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；

考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：

Dim a(1 To 10)As Integer 随机整数的生成由窗体的Load事件代码完成：

Private Sub Form_Load()

Dim p As String

Randomize

p = “”

For i = 1 To 10

a(i)= Int(Rnd * 90)+ 10

p = p & Str(a(i))& “,”

Next

Label1.Caption = LTrim(Left(p, Len(p)– 1))End Sub 求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：

Private Sub Command2_Click()

Dim n As Integer, m As Integer, s As Single

min = 100: max = 10: s = 0

For i = 1 To 10

If a(i)> n Then max = a(i)

If a(i)

s = s + a(i)

Next

Text1.Text = max

Text2.Text = min

Text3.Text = s / 10 End Sub “重置”按钮Command1的Click事件代码：

Private Sub Command1_Click()

Form_Load

Text1.Text = “”

Text2.Text = “”

Text3.Text = “” End Sub 最后是“关闭”按钮Command3的Click事件代码：

Private Sub Command3_Click()

Unload Me End Sub

（5）运行程序，观察结果；（6）保存窗体，保存工程。五、小结实验心得体会