randomize
for i =1 to 10
a(i)=int(rnd*10)
print a(i)
出来的数有的相同，怎样才能出来10个不同的数字啊
谢谢了

rnd只是伪随机数，是会有重复的。
如果想得到不重复的数，
那就要产生了一个随机数之后，与之前所产生的随机数比较，如果发现相同的，则重新得到随机数。

偶知道啊麻烦你把代码写下偶不会啊

现在应该没有重复了吧。
[CODE]Private Sub Command1_Click()
Cls
Randomize
Dim i As Integer, j As Integer
Dim a(10) As Integer

For i = 0 To 9
start:
a(i) = Int(Rnd * 90)
For j = 0 To i - 1
If a(j) = a(i) Then
GoTo start
End If
Next
Next

For i = 0 To 9
Print a(i)
Next
End Sub[/CODE]

呵呵对呀
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a(10) As Integer
For i = 0 To 9
a(i) = Int(Rnd * 90)
For j = 0 To i - 1
If a(j) = a(i) Then
GoTo start
End If
Next
Next
For i = 0 To 9
Print a(i)
Next
End Sub

楼上的。你的不对，
抄也应该要抄对吧。

你可以把产生随机数的种子做大点就行了
这是一个概率的问题
如
random(1000)

呵呵，原来是用VB写的啊

牛人呀，试一下就知道对错了．．

太简单了吧