vb。net取隨機數(shù)

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

成都創(chuàng)新互聯(lián)是一家專業(yè)提供開陽企業(yè)網(wǎng)站建設,專注與成都網(wǎng)站建設、網(wǎng)站設計、H5場景定制、小程序制作等業(yè)務。10年已為開陽眾多企業(yè)、政府機構(gòu)等服務。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站制作公司優(yōu)惠進行中。

給定10個數(shù)的話，可以把這10個數(shù)放在一個數(shù)組里，然后取0~9的范圍內(nèi)的隨機數(shù)，用它當數(shù)組下標取數(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

vb.net中產(chǎn)生三位正整數(shù)的隨機數(shù)的程序?qū)懛?/h2>

'項目：VB中產(chǎn)生在一定正整數(shù)范圍內(nèi)的不重復的隨機數(shù)'作者：qq15495835Private Sub Command1_Click() Max = 100 '隨機數(shù)上限值 Min = 1 '隨機數(shù)下限值 Amount = 10 '產(chǎn)生號碼數(shù)量(數(shù)量值應小于隨機數(shù)上限值-隨機數(shù)下限值)否則會產(chǎn)生死循環(huán) ReDim a(Amount) Randomize For i = 0 To Amount a(i) = Int((Max - Min + 1) * Rnd + Min) For j = 0 To i If i j And a(i) = a(j) Then i = i - 1 Next Next Text1 = Join(a, vbCrLf)End Sub'請采納參考！謝謝！

VB.NET中隨機產(chǎn)生十個數(shù)字

添加listbox1,label1,command1

Public Class Form1

Dim N(10) As Integer

'生成隨機數(shù)

Private Sub CreatRand()

Dim I As Integer

Dim Strarr As String

Strarr = ""

ListBox1.Items.Clear()

Dim R As New System.Random

For I = 0 To 9

N(I) = R.Next(30, 100)

ListBox1.Items.Add(Str(N(I)))

Strarr = Strarr Str(N(I)) " "

Next

'添加標簽的橫向數(shù)字序列

Label1.Text = Strarr

End Sub

'獲取最大值

Private Function GetMax() As Integer

Dim I As Integer

Dim intMax As Integer

intMax = 0

For I = 0 To 9

intMax = IIf(intMax N(I), intMax, N(I))

Next

Return intMax

End Function

'獲取最小值

Private Function GetMin() As Integer

Dim I As Integer

Dim intMin As Integer

intMin = 101

For I = 0 To 9

intMin = IIf(intMin N(I), intMin, N(I))

Next

Return intMin

End Function

'獲取平均值

Private Function GetAve() As Single

Dim I As Integer

Dim Sum As Integer

Sum = 0

For I = 0 To 9

Sum = Sum + N(I)

Next

Return Sum / 10

End Function

'生成隨機數(shù)，顯示各種值

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

Call CreatRand()

MsgBox("最大值=" Str(GetMax()) ",最小值=" Str(GetMin()) ",平均值=" Str(GetAve()))

End Sub

End Class

文章題目：vb.net取隨機值,vb隨機數(shù)取最大值
文章來源：http://chinadenli.net/article32/hesjpc.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供服務器托管、網(wǎng)站建設、自適應網(wǎng)站、動態(tài)網(wǎng)站、電子商務、ChatGPT

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)