看下面得VB程序语句哪里出错了，为什么不能运行？（本人老是改不对，麻烦各位高手帮下忙）

来源：百度知道 编辑：UC知道 时间：2024/05/15 10:15:31
Dim a(20) As Integer
Private Sub Form_Click()
For i = 1 To 20
a(i) = Int(Rnd * 51 + 50)
Next
For i = 1 To 20
If a(i) > avearge Then
n = n + 1
Next
End Sub

Dim a(20) As Integer
Private Sub Form_Click()
For i = 1 To 20
a(i) = Int(Rnd * 51 + 50)
Next
For i = 1 To 20
If a(i) > avearge Then 'avearge是什么？若是变量则需事先赋值。
n = n + 1
end if '加一句
Next
End Sub