vb编程10个随机函数

Ⅰ VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序

Dim a(10)
x = Rnd '第一个随机数总是2
Randomize Timer

'找出随机数
'***********************************************************
For i = 1 To 10
a(i) = Fix(1 + ((100 - 1 + 1) * Rnd)) '公式：Fix(m + (n-m+1 * Rnd))
Randomize Timer

Next i
'**************************************************************
'排序
For i = 1 To 10 - 1
For j = i + 1 To 10
If a(i) > a(j) Then
m = a(i)
a(i) = a(j)
a(j) = m
End If
Next j
Next i
abc = 0
Do While abc = 1
abc = 1
For i = 1 To 10 - 1
For j = i + 1 To 10
If a(i) > a(j) Then
a(j) = Fix(1 + ((100 - 1 + 1) * Rnd))
Randomize Timer
abc = 0
End If
Next j
Next i
Loop
'**************************************************
For i = 1 To 10
MsgBox a(i)
Next i
End

Ⅱ VB编10个随机数，不重复怎么做啊刚才我没说明白

具体的程序你可以看看下面的
Dim j As Single, num(1 To 10) As Long
Private Sub Command1_Click()
Dim i As Double, min As Long, max As Long
max = 100
min = 10
j = j + 1
If j <= 10 Then
If j > 1 Then
Do
i = Rnd(1)
num(j) = min + i * (max - min)
For i = 1 To j - 1
If num(j) = num(i) Then
Exit For
Else
Exit Do
End If
Next i
Loop
Else
i = Rnd(1)
num(j) = min + i * (max - min)
End If
Print num(j)
End If
End Sub
其中的min及max分别为随机数的下限和上限，你可以自己设置，Rnd函数可以产生0-1之间的随机数，num()数组储存产生的随机数