
2个回答
展开全部
Dim ub As Integer '定义下界限
Dim db As Integer '定义上界限
ub = 100
db = 10
For i = 0 To 10
Randomize '生成随机种子
x = Int(Rnd() * (ub - db + 1)) + db '生成随机数
MsgBox x
Next i
展开全部
'项目:VB中产生在一定正整数范围内的不重复的随机数
'作者:qq15495835
Private Sub Command1_Click()
Max = 100 '随机数上限值
Min = 1 '随机数下限值
Amount = 10 '产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环
ReDim a(Amount)
Randomize
For i = 0 To Amount
a(i) = Int((Max - Min + 1) * Rnd + Min)
For j = 0 To i
If i <> j And a(i) = a(j) Then i = i - 1
Next
Next
Text1 = Join(a, vbCrLf)
End Sub
'请采纳参考!谢谢!
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询