关于VB程序问题！

我想写关于彩票随机器，但我重复问题没有克服，请大家帮我看下哪里错了，谢谢！
Option Explicit
Dim r(10) As Integer, b As Integer
Dim i, j, temp

Private Sub Command1_Click()
Cls
Print "彩票随机号码为:"
For i = 1 To 6
Randomize
r(i) = Int(Rnd * 33 + 1)
For j = 1 To i
Do While a(j) = a(i)
Randomize
r(i) = Int(Rnd * 33 + 1)
Loop
Next j
Print "r("; i; ")="; r(i); Spc(1);
Next i
b = Int(Rnd * 16 + 1)
Print "b="; b;
End Sub
Private Sub Command2_Click()
Print
Print
Print "排序后的大小"
For i = 1 To 6
For j = (i + 1) To 6
If r(i) > r(j) Then
temp = r(i)
r(i) = r(j)
r(j) = temp
End If
Next j
Print "r("; i; ")="; r(i); Spc(1);
If i Mod 8 = 0 Then Print
Next i
Print "b="; b;
End Sub

Private Sub

关于VB程序问题！ 关于vb程序问题 关于vb写程序问题 关于VB程序问题，谢谢 关于VB的程序问题 关于VB程序的问题 一个关于VB程序的问题 一个关于vb编程序的问题 关于VB程序调用API的问题 vb 关于程序后台运行的问题