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

来源:百度知道 编辑:UC知道 时间:2024/06/16 02:35:07
我的程序如下:Private Sub Form_click()

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
Loop
Next j
Form1.Print a(i);
Next i

End Sub
请各位大侠帮我看一下,怎么运行不起啊?需要作哪些改动?

有很多错误!
修改如下:
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