Question

求一个vb作业，具体如下：

 编写输入高考成绩的过程，通过循环，利用输入函数将学生的高考成绩存入数组。
 编写用于求高考成绩之平均值的过程。
 编写用于找出最高成绩的过程。
 编写输出高考成绩的过程。
 在主程序中声明一个保存高考成‘绩的动态数组，输入学生人数，确定数组的大小，然后调用这些过程，完成对高考成绩的管理。
很急，希望有朋友能发给我，邮箱是479198534 @qq.com
谢谢
参照《VB实验教程》85页例7-1中动态数组的使用、《VB教程》141页例5.12的过程的使用，编写一程序，实现对高考成绩的管理，要求如下：
n 编写输入高考成绩的过程，通过循环，利用输入函数将学生的高考成绩存入数组。
n 编写用于求高考成绩之平均值的过程。
n 编写用于找出最高成绩的过程。
n 编写输出高考成绩的过程。
n 在主程序中声明一个保存高考成绩的动态数组，输入学生人数，确定数组的大小，然后调用这些过程，完成对高考成绩的管理。

Answer 1

Dim a() As Single, n As Integer, av As Single, max As Single

Private Sub Command1_Click()

  n = CInt(InputBox("请输入有几名考生？"))

  ReDim a(n)

  inputdata

  Call cal_av(av)

  Picture1.Print "高考平均成绩="; av

  Call findmax(max)

  Picture1.Print "最高分="; max

  output_cj

End Sub

Sub inputdata()

  For i = 1 To n

    a(i) = Val(InputBox("第 " & i & "名考生的成绩："))

  Next i

End Sub

Sub findmax(ByRef max)

  max = a(1)

  For i = 2 To n

    If a(i) > max Then max = a(i)

  Next i

End Sub

Sub cal_av(ByRef av)

  av = 0

  For i = 1 To n

    av = av + a(i)

  Next i

  av = av / n

End Sub

Sub output_cj()

  List1.AddItem "编号  成绩"

  For i = 1 To n

    List1.AddItem Format(i, "@@@") & "    " & a(i)

  Next i

End Sub

Answer 2

什么时候要呢
我可以给你写这样的程序

追问

如果可以明天之前