'项目：VB中产生在一定正整数范围内的不重复的随机数'作者：qq15495835Private 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'请采纳参考！谢谢！
成都创新互联公司服务项目包括迎泽网站建设、迎泽网站制作、迎泽网页制作以及迎泽网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，迎泽网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到迎泽省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
取随机数可以用 Random 类。
给定10个数的话，可以把这10个数放在一个数组里，然后取0~9的范围内的随机数，用它当数组下标取数组成员即可。
方法名称：next()；功能描述：返回一个0~2147483647之间的整数
方法名称：next(i)；功能描述：返回一个0~i之间的整数
方法名称：next(i，j)；功能描述：返回一个i~j之间的整数
方法名称：Nextdouble()；功能描述：返回一个0~1之间的随机小数
================
使用方法：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rand = New System.Random()
MsgBox(rand.next().ToString())
End Sub
==========================
产生N个不同数的话，我给你个我写的VB的代码，你稍微改下：
产生0-10的数：
Private Sub Command1_Click()
Randomize
Dim a(10) As Long
n = 10
For i = 0 To n
a(i) = Int(Rnd() * (n + 1))
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next
Next
For i = 0 To n
Print a(i)
Next
End Sub
