简单VB设计，急急急急

按下面的题目做一个VB程序代码，一定要有用的

题目：通过键盘输入若干个成绩（取整数），并通过输入-1来结束成绩的输入，编写程序求平均成绩。程序要求：

（1） 用一个变量score临时存放当前输入的成绩

（2） 成绩用inputbox函数输入，用Do While----Loop结构。

（3） 在窗体上显示原始成绩、成绩个数及平均成绩

（4） 事件代码由窗体的单击事件触发。结果如图所示

虽说没有分，但还是帮你一下吧~~~

Private Sub Form_Click()
Dim i As Integer
Dim score As Integer
Dim ss As Integer

Do While score <> -1
score = Val(InputBox("请输入成绩(数字)，输入-1结束。", "成绩输入"))
If score <> -1 Then
Me.Print score & " ";
ss = ss + score
i = i + 1
End If
Loop

Me.Print ""
Me.Print i & " 位同学的平均成绩为 " & (ss / i)
End Sub

Dim a(1 To 100) As Integer Private Sub Command1_Click() n = Val(Text1) For i = 1 To n a(i) = InputBox("成绩", "请输入", b) b = b + a(i) Print a(i); Next Print Print n & "位同学的平均数为：" & b / n End Sub