求一个vb题的答案？？？

Private Sub Form_Click()
Dim S(50) As Integer, Gu(1 To 9) As Integer
Dim I As Integer, J As Integer, K As Integer
Dim Cf As Boolean
Randomize
K = 0
For I = 1 To 50
S(I) = Int((99 - 10 + 1) * Rnd + 10)
Cf = False
For J = 0 To I - 1
If S(I) = S(J) Then
I = I - 1
Cf = True
Exit For
End If
Next J
If Not Cf Then
Print S(I);
K = K + 1
If K = 10 Then
K = 0
Print
End If
Gu(S(I) \ 10) = Gu(S(I) \ 10) + 1
End If
Next
For I = 1 To 9
Print I * 10 & "-" & I * 10 + 9 & "范围内的数字为："; Gu(I); "个"
Next I
End Sub

一会再帮你想。先占个位

dim a(50) ,b(10)as integer
dim