一、设计题目：运动员百米成绩管理程序
二、目的
培养学生综合利用VB语言进行程序设计的能力，主要通过学生学习教材中动态数组及过程的知识，学习使用动态数组及过程调用完成一个运动员百米成绩管理程序，培养学生综合使用过程及熟练使用数组操作等能力。
三、题目要求
1.基本要求：
参照科学出版社版《VB教程》150页例5.12的过程的使用、120页例4.11数组的排序（或铁道出版社《VB教程》119-121页排序算法），编写一程序，实现对运动员百米成绩的管理，要求如下：
编写输入百米成绩的过程，通过循环，利用输入函数将10名运动员的百米成绩存入数组。
编写求高于平均值人数的过程
编写对百米成绩排序的过程。
编写输出百米成绩的过程。
在主程序中声明一个保存10名运动员百米成绩的数组，然后调用这些过程，完成对运动员百米成绩的管理。
2.提高要求：在完成基本要求达到后，可进一步完善程序。提高要求方向提示如下：
★ 编写找出百米成绩最好的过程，通过调用该过程找出跑得最快的成绩。
★ 可以将运动员的百米成绩保存在一个文本文件中，然后参照科学出版社《VB教程》第9章，或铁道出版社《VB教程》第7章文件操作的例子，将数据导入到程序中。
四、参考资料
科学出版社：
Visual Basic程序设计
Visual Basic程序设计实验教程
中国铁道出版社：
Visual Basic程序设计基础
Visual Basic程序设计实验教程
五、设计要求
1.符合课题要求，实现相应功能；可以加以其他功能或修饰，使程序更加完善.合理；
2.要求界面友好美观，操作方便易行；
3.独立思考，独立完成。
附：科学出版社版《VB教程》150页例5.12源程序
例5.12 利用过程完成一维数组的基本操作，包括数组输入、数组元素求和、数组元素求最大值、数组输出等，在主程序中通过调用过程，完成对数组的操作。
Private Sub Command1_Click()
Dim a(1 To 5) As Integer, sum As Integer, amax As Integer
Call ArrayInput(a)
Call ArraySum(a, sum)
Call ArrayMax(a, amax)
Call ArrayOutput(a)
Print
Print "sum="; sum, "amax="; amax
End Sub
Sub ArrayInput(b() As Integer)
m = LBound(b) ' 得到数组下界
n = UBound(b) ' 得到数组上界
For i = m To n ' 输入形参数组元素
b(i) = InputBox("请输入第" & i & "个数")
Next
End Sub
Sub ArraySum(b() As Integer, bsum As Integer) ' 形参bsum用于求数组和
m = LBound(b) ' 得到数组下界
n = UBound(b) ' 得到数组上界
bsum = 0 ' 求形参数组元素之和
For i = m To n
bsum = bsum + b(i)
Next
End Sub
Sub ArrayMax(b() As Integer, bmax As Integer) ' 形参bmax用于求数组最大值
m = LBound(b) ' 得到数组下界
n = UBound(b) ' 得到数组上界
bmax = b(m) ' 求形参数组的最大元素
For i = m + 1 To n
If b(i) > bmax Then
bmax = b(i)
End If
Next
End Sub
Sub ArrayOutput(b() As Integer)
m = LBound(b) ' 得到数组下界
n = UBound(b) ' 得到数组上界
For i = m To n ' 输出形参数组元素
Print b(i);
Next
End Sub
例5.12非常好地体现了使用过程的好处。从这个例子可以看出，将一维数组所有的基本操作独立出来，做成子过程；在主程序中，像搭积木一样，根据功能的需要，去调用相应的过程，形成一个非常简洁、清晰的主程序结构。
è½æå ¨é¨ç¨åºæåºæ¥åï¼æ¬äººå°ç½ï¼è°¢è°¢