如何用vb随机从1—50中选5个不重复的数字，还有从1-9中选两个不重复的数字啊
完整点，怎么显示出结果啊
最新回答
遗留的忧伤
2025-06-27 04:44:45
dim a,b,c,d,e as integer
a=Int((50 - 1 + 1) * Rnd + 1)
do while b=a
b=Int((50 - 1 + 1) * Rnd + 1)
loop
do while c=a or c=b
c=Int((50 - 1 + 1) * Rnd + 1)
loop
do while d=a or d=b or d=c
d=Int((50 - 1 + 1) * Rnd + 1)
loop
do while e=a or e=b or e=c or e=d
e=Int((50 - 1 + 1) * Rnd + 1)
loop
从1-9中选两个不重复的数字
dim a,b as integer
a=Int((50 - 1 + 1) * Rnd + 1)
do while b=a
b=Int((50 - 1 + 1) * Rnd + 1)
loop
奈何桥寂寞
2025-06-27 00:49:55
Dim num(6) As Integer
Randomize
num(0) = Int(Rnd * 50 + 1)
k = 0
For i = 1 To 4
num(i) = Int(Rnd * 50 + 1)
flag = True
For j = 0 To k
If num(i) = num(j) Then
i = i - 1
flag = False
Exit For
End If
Next j
If flag Then k = k + 1
Next i
k = 4
For i = 5 To 6
num(i) = Int(Rnd * 9 + 1)
flag = True
For j = 0 To k
If num(i) = num(j) Then
i = i - 1
flag = False
Exit For
End If
Next j
If flag Then k = k + 1
Next i
For i = 0 To 5
Imin = i
For j = i + 1 To 6
If num(j) < num(Imin) Then
Imin = j
End If
Next j
t = num(i)
num(i) = num(Imin)
num(Imin) = t
Next i
热门标签
