vb.net产生随机数

如何让随机函数产生N(N>=1)个各不相同的随机数,产生一个新数后再和前面的数比较的方法应该怎么写代码在线等!... 如何让随机函数产生N(N>=1)个各不相同的随机数,产生一个新数后再和前面的数比较的方法应该怎么写代码
在线等!
展开
 我来答
verywzm
2009-03-26 · TA获得超过947个赞
知道小有建树答主
回答量:499
采纳率:0%
帮助的人:412万
展开全部
方法名称: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
zhaozyll
2009-03-25 · TA获得超过276个赞
知道答主
回答量:98
采纳率:0%
帮助的人:0
展开全部
system.random 命名空间里有个next的方法可以产生随机数.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式