Private Sub Form_Activate()
Const j As Integer=5
Dim Score As Single
Dim Average As Single
Dim i As Integer
Score=0
Average=0
Dim a(1 To 5) As Single
For i=1 To 5
a(i)=InputBox(\"请输入数\")
Score=Score a(i)
Next i
Average=Score/j
Print Score
Print Average
End Sub