VB实验3数组.doc
文本预览下载声明
本科实验报告
课程名称： 人机界面程序设计基础
实验项目： 三、 数组
实验地点： 北区多学科楼
专业班级： 学号：
学生姓名：
指导教师：
年 月 日
一、实验目的和要求
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个项目交换；最大值项目与最后项目交换。
三、主要仪器设备
计算机
四、实验结果与分析（必填）
随机产生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
随机产生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
窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键后加入到组合框的列表框内，如图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
Me.Combo1.AddItem Me.Combo1.Text: Me.Combo1.Text =
End If
End Sub
Private Sub
显示全部