VB实验3数组

本科实验报告
课程名称：人机界面程序设计基础实验项目：三、数组
实验地点：北区多学科楼
专业班级：学号：
学生姓名：
指导教师：
年月日
一、实验目的和要求
1、掌握数组的声明、数组元素的引用。

2、掌握固定长度数组和动态数组的使用差别。

3、掌握数组常用的操作和常用算法。

4、掌握列表框和组合框的使用。

二、实验内容和原理
1、随机产生30~100(包括30、100)的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。

2、随机产生20个学生的成绩，统计各分数段人数并显示结果。

产生的数据在List1显示，统计结果在List2显示。

提示：①、在通用声明段声明一个数组。

例如：Dim mark%（19）；在Command2声明一个数组s（9）,分别存放分数段的人数。

②、统计时的关键在于确定每个人的分数mark（i）与数组s下标之间的关系。

3、窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键后加入到组合框的列表框内，单击“交换”按钮，将列表框中最小值项目和第0个项目交换；最大值项目与最后项目交换。

三、主要仪器设备
计算机
四、实验结果与分析（必填）
1.随机产生30～100（包括30，100）的10个正整数，求最大值、最小值、
平均值，并显示整个数组的值和结果，。

代码：
Private Sub Form_Click()
Dim i%, s%(1 To 10), max%, min%, avg!
For i = 1 To 10
s(i) = Int(Rnd * 71 + 30)
Next i
max = s(1)
min = s(1)
avg = s(1)
For i = 2 To 10
If s(i) > max Then max = s(i)
If s(i) < min Then min = s(i)
avg = avg + s(i)
Next i
avg = avg / 10
For i = 1 To 10
Print s(i);
Next i
Print
Print "max="; max; "min="; min; "avg="; avg
End Sub
2.随机产生20个学生的成绩，统计各分数段人数。

即0～59，60～69，70～
79，80～89, 90~100, 并显示结果。

产生的数据在picture1显示，统计结果在picture2显示，如图E3所示。

代码：
Dim mark%(19), i%
Private Sub Command1_Click()
Me.Picture1.Cls
For i = 0 To 19
mark(i) = Int(Rnd * 101)
Me.Picture1.Print mark(i);
If (i + 1) Mod 5 = 0 Then Me.Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Me.Picture2.Cls
Dim s%(9)
For i = 0 To 19
k = mark(i) \ 10
Select Case k
Case 0 To 5
s(5) = s(5) + 1
Case 9 To 10
s(9) = s(9) + 1
Case 6 To 8
s(k) = s(k) + 1
End Select
Next i
For k = 5 To 9
If s(k) <> 0 Then
Me.Picture2.Print "s("; k; ")的人数有"; s(k); "个"
End If
Next k
End Sub
3.窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键
后加入到组合框的列表框内，如图E.8所示；单击“交换”按钮，将列表框中最小值项目和第0个项目交换；最大值项目与最后项目交换，如图E9所示。

代码：
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 13
Case Else
KeyAscii = 0
End Select
If KeyAscii = 13 Then
bo1.AddItem bo1.Text: bo1.Text = ""
End If
End Sub
Private Sub Command1_Click()
n = bo1.ListCount
imin = 0
imax = 0
For i = 0 To n - 1
If Val(bo1.List(i)) < Val(bo1.List(imin)) Then imin = i
If Val(bo1.List(i)) > Val(bo1.List(imax)) Then imax = i
Next i
t = bo1.List(n - 1)
bo1.List(n - 1) = bo1.List(imax)
bo1.List(imax) = t
m = bo1.List(0)
bo1.List(0) = bo1.List(imin)
bo1.List(imin) = m
End Sub
Private Sub Form_Load()
Dim a()
a = Array(23, 345, 9, 33, 98, 123, 77, 44) For i = 0 To UBound(a)
bo1.AddItem a(i)
Next i
End Sub。