《VB 程序设计》实验单元二
实验报告
专业班级: 姓名 学号
实验五 数组(1)
一、实验目的
1、 掌握数组的常用操作和常用算法。
二、实验环境
VB6.0
三、实验内容
1、假设 Dim Num(9) as integer 语句定义了一个数组,并且在该数组中存储
了 10 个学生的成绩,请编写代码在窗体上打印出最高分与最低分。
四、实验步骤
绘制一个 command,程序代码为:
Private Sub Command1_Click()
Dim Min As Integer
Max = Num(0)
Min = Num(0)
For i = 1 To 9
If Num(i) > Max Then Max: Num (i)
If Num(i) < Max Then Min: Max (i)
Next i
Print "最高分是:" & Max;
Print "最低分是:" & Min;
End Sub
五、实验结果