請問在vb.net中如何實現(xiàn)隨機取數(shù)??

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

創(chuàng)新互聯(lián)專注于企業(yè)營銷型網(wǎng)站、網(wǎng)站重做改版、宿松網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5響應(yīng)式網(wǎng)站、購物商城網(wǎng)站建設(shè)、集團公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù)，價格優(yōu)惠性價比高，為宿松等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

Dim p1 As Integer

Random r = new Random();

int p1 = k(r.Next(5)) '隨機出現(xiàn)0~5之間的數(shù)。

vb。net取隨機數(shù)

取隨機數(shù)可以用 Random 類。

給定10個數(shù)的話，可以把這10個數(shù)放在一個數(shù)組里，然后取0~9的范圍內(nèi)的隨機數(shù)，用它當(dāng)數(shù)組下標(biāo)取數(shù)組成員即可。

vb.net產(chǎn)生隨機數(shù)

方法名稱：next()；功能描述：返回一個0~2147483647之間的整數(shù)

方法名稱：next(i)；功能描述：返回一個0~i之間的整數(shù)

方法名稱：next(i，j)；功能描述：返回一個i~j之間的整數(shù)

方法名稱：Nextdouble()；功能描述：返回一個0~1之間的隨機小數(shù)

================

使用方法：

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

==========================

產(chǎn)生N個不同數(shù)的話，我給你個我寫的VB的代碼，你稍微改下：

產(chǎn)生0-10的數(shù)：

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