如何在VB中产生在一定正整数范围内的不重复的随机数?

不要复制以前的答案。... 不要复制以前的答案。 展开
 我来答
willenhu
2013-09-16 · TA获得超过1773个赞
知道小有建树答主
回答量:865
采纳率:66%
帮助的人:305万
展开全部


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
忠成静0O
推荐于2017-11-26 · TA获得超过1049个赞
知道小有建树答主
回答量:1114
采纳率:100%
帮助的人:989万
展开全部
'项目: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
'请采纳参考!谢谢!
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式