UC知道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
请各位大侠帮我看一下，怎么运行不起啊？需要作哪些改动？
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