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

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

為西雙版納等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及西雙版納網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站設(shè)計、做網(wǎng)站、西雙版納網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

Dim p1 As Integer

Random r = new Random();

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

vb.net取隨機(jī)數(shù)vb.net里面怎么取去隨機(jī)數(shù)

與VB6里邊完全一樣：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Randomize()

MsgBox(Rnd() * 100)

End Sub

《VB.NET》中的“Randomize(x)”和“Rnd(x)”

Rnd[(number)]

number

的值決定了

Rnd

生成隨機(jī)數(shù)的方式

如果

number

的值

Rnd

生成

小于

每次都使用

number

作為隨機(jī)數(shù)種子得到的相同結(jié)果。

大于

序列中的下一個隨機(jī)數(shù)。

等于

最近生成的數(shù)。

省略

序列中的下一個隨機(jī)數(shù)。

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

先討論沒有加randomize時

X小于0

如

rnd(-1)

以-1為種的隨機(jī)數(shù)永遠(yuǎn)相同

X大于0

如

rnd(1)

系統(tǒng)會先生成隨機(jī)數(shù)列表

有N個隨機(jī)數(shù)

你每執(zhí)行一次rnd(1)就獲取列表中下一個隨機(jī)數(shù)

比如有這么個列表

程序開始時

得到0.7055475

執(zhí)行第二次rnd(1)得到0.533424

第三次0.5795186

你關(guān)閉程序重新打開

第一次得到還是0.7055475

.7055475

.533424

.5795186

.2895625

.301948

而你說的X0

X0沒差別

是錯的

Print

Rnd(1)

Debug.Print

Rnd(-2)

和

Debug.Print

Rnd(-2)

Print

Rnd(1)

結(jié)果是不一樣的

X等于0

最近生成的數(shù)

一般為科學(xué)型數(shù)值

這個值也是不變的

rnd(x)

省略x不寫

就和X0

效果一樣

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

Randomize

用

number

將

Rnd

函數(shù)的隨機(jī)數(shù)生成器初始化，該隨機(jī)數(shù)生成器給

number

一個新的種子值。如果省略

number，則用系統(tǒng)計時器返回的值作為新的種子值。

如果沒有使用

Randomize，則（無參數(shù)的）Rnd

函數(shù)使用第一次調(diào)用

Rnd

函數(shù)的種子值。

注意

若想得到重復(fù)的隨機(jī)數(shù)序列，在使用具有數(shù)值參數(shù)的

Randomize

之前直接調(diào)用具有負(fù)參數(shù)值的

Rnd。使用具有同樣

number

值的

Randomize

是不會得到重復(fù)的隨機(jī)數(shù)序列的。

一般在使用rnd獲取隨機(jī)數(shù)

都是

randomize

int(rnd*(上限-下限+1）+下限)

這2個函數(shù)的X都是省略不寫

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

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

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

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

方法名稱：Nextdouble()；功能描述：返回一個0~1之間的隨機(jī)小數(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