Dim a As Integer = CInt(Int((9999 - 1000 + 1) * Rnd() + 1000))
成都创新互联公司长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为铜官企业提供专业的做网站、成都网站建设，铜官网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。
注：randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
这里，upperbound 是此范围内最大的数，lowerbound 是此范围内最小的数。
方法名称：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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize() '产生随机数种子 以防止每次生成结果都一样
Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer '声明两个变量存最大值和最小值
min = 1000 : max = 0 '设置初值
For i = 0 To 99 '循环100次
a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间
If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存
If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存
Next
MsgBox("最大值为" max)
MsgBox("最小值为" min)
End Sub
想要生成多少个都行。
Randomize()随机打乱
dim a1 as integer=cint(rnd()*32))+1
dim a2 as integer=cint(rnd()*32))+1
dim a3 as integer=cint(rnd()*32))+1
dim a4 as integer=cint(rnd()*32))+1
dim a5 as integer=cint(rnd()*32))+1
只要在代码中使用随机函数即可实现随机抽取功能
一、vb随机数生成的方法
vb随机数生成函数是 Rnd[(number)]，number 参数为可选项。在调用 Rnd 生成随机数之前，先使用 Randomize 初始化随机数生成器来产生种子，该生成器是根据系统计时器来产生种子的。
1、生成100以内的随机数
Randomize
Int(Rnd() * 100)//生成 0 - 99 之间的随机数
Int(Rnd() * 101)//生成 0 - 100 之间的随机数
2、生成指定范围随机数
由于 vb 没有提供直接生成指定范围随机数的函数，所以要把 Rnd 变通一下，方法如下：
Int((上限 - 下限 + 1) * Rnd + 下限);
把它封装成可直接调用的函数如下：
Function GetRandom(under, over As Integer) As Integer
If under over Then
temp = under;
under = over;
over = temp;
End If
Randomize
GetRandom = Int((under - over + 1) * Rnd + over);
End Function
调用方法：
GetRandom(10, 100);//生成10到100的随机数
二、vb.net生成随机数的方法
1、方法：Random.Next(int minValue, int maxValue);
2、说明：
若 minValue 和 maxValue 都没有提供，则生成一个 0 - 2147483647 之间的随机数；
若 minValue 和 maxValue 只提供一个，则生成一个 0 - maxValue 之间的随机数；
若 minValue 和 maxValue 两个都提供，则生成一个 minValue - maxValue 之间的随机数；
3、举例
Dim ran = New System.Random()
ran.Next()//生成 0 - 2147483647 之间的随机数
ran.Next(100)//生成 0 - 100 之间的随机数
ran.Next(10, 100)//生成 10 - 100 之间的随机数
Dim ran = New Random(DateTime.Now.Millisecond)//通过日期的微秒生成随机数
0、前提条件：有一个数字列表，或者数字段范围（1~100）；
1、Randomize '初始化随即函数；
2、用列表或者数组存放待选数据，比如长度为60；
3、利用随机函数抽取数字对应的数据 num=Rnd*60，Ret_Value=List(num)，将选取结果存入结果单元；
4、然后从列表或者数组中去掉这个数据，（避免重复选中）；
5、然后再运行3；
6、直到满意为止。
重庆分公司
重庆分公司
