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

Question

如题所述

Answer 1

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

参考资料：原创

本回答被网友采纳

Answer 2

private sub command1_click()
dim a(1 to 10) as integer,i,j
for i=1 to 10
a(i)=int(rnd*100)+1
print a(i);
next
print
for i=1 to 10
for j=1 to i
if a(i)<a(j) then t=a(i):a(i)=a(j):a(j)=t
next
next
for i=1 to 10
print a(i);
next
end sub本回答被提问者采纳