求大神帮忙，一个vb作业需要完成，急

Question

题目要求
参照《VB实验教程》85页例7-1中动态数组的使用、《VB教程》141页例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
求大神帮忙！

Answer 1

没有人会给你做作业的，作业是练习。。。。
给多点财富还可以考虑……追问

最高255

本回答被网友采纳

Answer 2

可以做啊

什么时候要呢追问

嗯今天下午之前

可以吗？

还在吗？