十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
Private Sub Command1_Click()

十多年專注成都網(wǎng)站制作,成都定制網(wǎng)頁設(shè)計,個人網(wǎng)站制作服務(wù),為大家分享網(wǎng)站制作知識、方案,網(wǎng)站設(shè)計流程、步驟,成功服務(wù)上千家企業(yè)。為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計及定制高端網(wǎng)站建設(shè)服務(wù),專注于成都定制網(wǎng)頁設(shè)計,高端網(wǎng)頁制作,對成都戶外休閑椅等多個方面,擁有多年的營銷推廣經(jīng)驗。
Dim a(1 To 100) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 100 '給數(shù)組a一百個元素賦值,并換每行十個數(shù)字輸出來窗體上
a(i) = Int(Rnd * 101)
k = k + 1
Print Tab((k - 1) * 5); a(i);
If k = 10 Then k = 0: Print
Next i
For i = 100 To 2 Step -1 '用冒泡排序法對數(shù)組進行排序
For j = 1 To i - 1
If a(j) a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To 100 '輸出排好序的數(shù)組
k = k + 1
Print Tab((k - 1) * 5); a(i);
If k = 10 Then k = 0: Print
Next i
End Sub
返回大于等于0小于1之間的隨機數(shù)。
Visual Basic中隨機函數(shù)
格式:Rnd(數(shù)值表達式)
功能:求[0,1)之間的一個隨機數(shù)
語法:
Rnd[(number)]
如果 number 的值是 Randomize 生成
小于 0 ,每次都使用 number 作為隨機數(shù)種子得到的相同結(jié)果。
大于 0 ,以上一個隨機數(shù)為種子產(chǎn)生下一個隨機數(shù)。
等于 0 ,產(chǎn)生與最近生成的隨機數(shù)相同的隨機數(shù)。
省略, 以上一個隨機數(shù)為種子產(chǎn)生下一個隨機數(shù)。
說明
Rnd 函數(shù)返回小于 1 但大于或等于 0 的值。
number 的值決定了 Rnd 生成隨機數(shù)的方式。
對最初給定的種子都會生成相同的數(shù)列,因為每一次調(diào)用 Rnd 函數(shù)都用數(shù)列中的前一個數(shù)作為下一個數(shù)的種子。
在調(diào)用 Rnd 之前,先使用無參數(shù)的 Randomize語句初始化隨機數(shù)生成器(若帶參數(shù),則產(chǎn)生由參數(shù)對應(yīng)的一個特定序列的隨機數(shù)),該生成器具有根據(jù)系統(tǒng)計時器得到的種子。
為了生成某個范圍內(nèi)的隨機整數(shù),可使用以下公式:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
這里,upperbound 是隨機數(shù)范圍的上限,而 lowerbound 則是隨機數(shù)范圍的下限。
注意 若想得到重復的隨機數(shù)序列,在使用具有數(shù)值參數(shù)的 Randomize 之前直接調(diào)用具有負參數(shù)值的 Rnd。使用具有同樣 number 值的 Randomize 是不會得到重復的隨機數(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
取隨機數(shù)可以用 Random 類。
給定10個數(shù)的話,可以把這10個數(shù)放在一個數(shù)組里,然后取0~9的范圍內(nèi)的隨機數(shù),用它當數(shù)組下標取數(shù)組成員即可。