如何用VB製作隨機學號抽取器

這個需要應用以下幾個步驟：

寫一個獲取隨機學號函數。

將這個函數綁定在某個控件上觸發抽學號的事件。

在某個輸出界面顯示這個隨機學號。

首先，學號肯定是整數，所以在窗體代碼區定義一個整型的變量來存放

Dim StudentNum as Integer

然後，新建一個模塊，在模塊中書寫隨機數函數，該函數有個整型的返回值。

該函數傳入2個參數，用於界定隨機數的上界和下界(也就是最大最小值)

Public Function GetNum (Byval L，Byval U) as Integer

Randomize '重置隨機種子

GetNum=Int((U - L + 1) * Rnd + L) '將範圍內獲得一個隨機整數賦值給該函數的返回值

End Function

寫完了這個函數，記下它的表達式 接收變量=GetNum(最小值，最大值)

最後，在窗體中畫一個按鈕(Command1)，一個文本框(名為Text1)，一個定時器(Timer1)

1、雙擊這個窗體Form1，在它的Load事件中寫下：

…

rval=50 ’讓定時器50秒運行一次

el=True ‘讓定時器允許運作

…

2、雙擊定時器Timer1，在它的事件裏寫下：

…

StudentNum=GetNum(1，30)

'假設學生學號從1號到30號，如果經常變動可以從外部獲取，用變量表示。

=StudentNum & "號"

'把取到的隨機數顯示在文本框裏面

…

3、雙擊按鈕Command1，在它的點擊事件裏寫下

IF le=True

le=False '計時器停止運作

Msgbox "選中了" & StudentNum & "號"，26，"選中了該學號" '把結果彈出對話框

Else

le=True ’啟用已經停止的計時器，可以進行下一次選號

End IF

…