VB实验7.docVIP

安徽机电职业技术学院实验报告 课程名称 VB程序设计 实验名称 实验七 数组 班级 电子商务3112 姓名 许芳 学号 1505113066 实验时间 2012-11-15 地点 电子阅览室 指导教师 黄珊 成绩 实验目的 1. 掌握数组的声明、数组元素的引用 2．掌握静态数组和动态数组的使用差别 3. 应用数组解决与数组有关的常用算法 实验内容 输入某小组5个同学的成绩，计算总分和平均分（取小数后一位）。P73 输入5名学生的成绩，求出最高分和最低分。P74 随机产生10个10~100的整数，用“选择排序法”按值从小到大顺序排序，最后输出结果。P75 实验环境 1. windows XP操作系统 2. Visual Basic 6.0 实验学时 2学时 实验步骤（包括截图） 代码编写 程序运行结果如图： 2、输入5名学生的成绩，求出最高分和最低分： Option Base 1 Dim score(5) As Integer Private Sub Form_Load() Label1.Caption = 单击“输入成绩”按钮输入学生成绩 End Sub Private Sub command1_click() For i = 1 To 5 score(i) = InputBox(输入学生成绩, 学生成绩) Next i Label1.Caption = 单击“查找”按钮开始查找最高分和最低分 End Sub Private Sub command2_click() Dim max As Integer, min As Integer max = score(1) min = score(1) For i = 2 To 5 If max score(i) Then max = score(i) End If If min score(i) Then min = score(i) End If Next i Label1.Caption = 最高分: + Str(max) + Chr(13) + 最低分: + Str(min) End Sub 运行程序： 3、随机产生10个10~100的整数，用“选择排序法”按值从小到大顺序排序，最后输出结果。 程序编写： 运行结果：