vb.net返回随机数 vb 随机数

请问在vb.net中如何实现随机取数??

Dim k() As Integer = New Integer() {1, 2, 3, 4, 5, 6}

创新互联专注于企业营销型网站、网站重做改版、宿松网站定制设计、自适应品牌网站建设、H5响应式网站、购物商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为宿松等各大城市提供网站开发制作服务。

Dim p1 As Integer

Random r = new Random();

int p1 = k(r.Next(5)) '随机出现0~5之间的数。

取随机数可以用 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

For i = 0 To n

Print a(i)

End Sub

当前名称：vb.net返回随机数 vb 随机数
分享地址：http://pwwzsj.com/article/doissgs.html