用VB如何从0到33中选出6个随机数并按升序排列

Question

如题所述

Answer 1

Randomize
Dim a(1 To 6), d(1 To 6)
For x = 1 To 6
d(x) = Int((33 * Rnd) + 1)
Next
For y = 1 To 6
b = d(1)
c = 1
For x = 1 To 6
If d(x) > b Then
b = d(x)
c = x
End If
Next
d(c) = -1
a(y) = b
'xxxxxxxxxxxxxxxx = b,从大到小排序,输出到哪自己改下
Next

Answer 2

dim i%, j%, t%
dim a(5) as integer
privete sub command1_click()
randomize
for i= 0 to 5
a(i)=int(rnd*6)
next i

for i= 0 to 4
for j= i+1 to 5
if a(i)>a(j) then t=a(i):a(i)=a(j):a(j)=t
next j
next i
end sub
有段时间没写了，不知道对不对
试试看吧本回答被网友采纳