vb.net程序，利用隨機函數(shù)產(chǎn)生100個1到100之間的整數(shù)，求其中的最大最小值。

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

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設,蘭山企業(yè)網(wǎng)站建設,蘭山品牌網(wǎng)站建設,網(wǎng)站定制,蘭山網(wǎng)站建設報價,網(wǎng)絡營銷,網(wǎng)絡優(yōu)化,蘭山網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

Randomize() '產(chǎn)生隨機數(shù)種子 以防止每次生成結果都一樣

Dim a(100) As Integer '聲明數(shù)組存放數(shù)據(jù) 用來保存隨機數(shù)結果

Dim max As Integer, min As Integer '聲明兩個變量存最大值和最小值

min = 1000 : max = 0 '設置初值

For i = 0 To 99 '循環(huán)100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一個隨機數(shù) 由于rnd范圍為0-1之間的小數(shù).所以*1000設置他的范圍為0到999之間 加1變成1到1000之間

If a(i) = max Then max = a(i) '如果當前數(shù)值大于最大值的變量就保存

If a(i) = min Then min = a(i) '如果當前數(shù)值小于最小值的變量就保存

Next

MsgBox("最大值為" max)

MsgBox("最小值為" min)

End Sub

如何用VB.NET生成一個隨機字符串

用法 RndString(xx) xx為隨機數(shù)字長度

比如12位長度的隨機字符串 則為 RndString(12)

字符串包含數(shù)字和大小寫字母，函數(shù)如下：

Function RndString(ByVal l As Integer) As String

Randomize()

Dim R, i As Integer

Dim S As Char

Dim returnStr As String

returnStr = ""

'a-z 的ASCII碼是：97-122

'A-Z 的ASCII碼是：65-90

'0-9 的ASCII碼是：48-57

For i = 1 To l

R = Int(Rnd() * 62) '隨機生成的字符有大小寫字母和數(shù)字，共有26個

If R 10 Then '如果小于10，則是數(shù)字 數(shù)字的ASCII是48-57 對應 隨機數(shù)字 0-9 所以要將隨機數(shù)字加48

S = Chr(R + 48) 'Chr 是將把數(shù)字按Ascii碼轉換為對應的字符

ElseIf R 36 Then '如果小于36，則是大寫字母 大寫字母的ASCII是65-90 對應 隨機數(shù)字10-35 所以要將隨機數(shù)字加55

S = Chr(R + 55)

Else '如果大于36，則是小寫字母 小寫字母的ASCII是97-122 對應 隨機數(shù)字36-62 所以要將隨機數(shù)字加61

S = Chr(R + 61)

End If

returnStr = returnStr + S

Next

RndString = returnStr

End Function

VB.net如何讓按鈕在窗體隨機移動

按鈕對象.left=rnd*100

按鈕對象.top=rnd*100

把100這個值替換成實際窗體大小即可

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

網(wǎng)站標題：vb.net隨機操作,vbs隨機
網(wǎng)站地址：http://chinadenli.net/article0/heegio.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設計、定制網(wǎng)站、搜索引擎優(yōu)化、外貿(mào)網(wǎng)站建設、ChatGPT、做網(wǎng)站

廣告

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