VB用随机函数给数组赋值，并且使每个随机数为不同的值，为何我的程序运行不了？

有很多错误！
修改如下：
Private Sub Form_click()
Fom1.Autoredraw=True '为打印增加
For i = 0 To 9
a(i) = Int(Rnd * 90 + 10)
For j = 0 To i - 1
'x = j 去掉
'Do While x >= 0 去掉
'If a(x) = a(i) Then Exit For 换成下面四句
If a(x) = a(i) Then 增加
i=i-1 增加
Exit For 增加
End If 增加
'Loop 去掉
Next j
'Form1.Print a(i); 去掉，不能在这儿打印，移下，格式也有所变化
Next i
For i = 0 To 9 本句及以下两句是打印用的
Print a(i);
next
End Sub

再修改如下：
Private Sub Form_click()
Dim a(9) As Integer
Form1.AutoRedraw = True
Cls
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 90 + 10)
For j = 0 To i - 1
If a(x) = a(i) Then
i = i - 1
Exit For
End If
Next j
Next i
For i = 0 To 9
Print a(i);
Next
End Sub

Private Sub Form_click()
dim a(10)
For i = 0 To 9
a(i) = Int(Rnd * 90 + 10)
For j