VB 编程问题~~看看下面程序哪错了~~在线等

Dim a(19)
Dim w As Single
For w = 0 To 19
a(w) = Int(Rnd * 101)
Next w

Private Sub Command1_Click()
For i = 0 To 19
Picture1.Print a(i); Spc(3);
s = s + 1
If s = 4 Then
Picture1.Print
s = 0
End If
Next i

End Sub

Private Sub Command2_Click()
For i = 0 To 19
k = a(i) \ 10
Select Case k
Case 0 To 5
m = m + 1
Case 6
n = n + 1
Case 7
o = o + 1
Case 8
p = p + 1
Case 9 To 10
q = q + 1
End Select
Next i
Picture2.Print "0-59分的人有"; m; "个"
Picture2.Print "60-69分的人有"; n; "个"
Picture2.Print "70-79分的人有"; o; "个"
Picture2.Print "80-89分的人有"; p; "个"
Picture2.Print "90-100分的人有"; q; "个"

End Sub

flash编程问题,看看下面程序哪儿出错了? VB编程 程序启动问题 帮我看看下面的vb问题 求vb程序编程 vb程序编程 vb编程大家看看 VB编程，大家看看 vb问题，请教~~请问下面的编程世什么意思 关于VB编程独立生成程序的问题 VB编程问题问题