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

寫一個獲取隨機學號函式。將這個函式繫結在某個控制元件上觸發抽學號的事件。在某個輸出介面顯示這個隨機學號。首先，學號肯定是整數，所以在窗體程式碼區定義一個整型的變數來存放Dim StudentNum as Integer然後，新建一個模組，在模組中書寫隨機數函式，該函式有個整型的返回值。該函式傳入2個引數，用於界定隨機數的上界和下界(也就是最大最小值)Public Function GetNum (Byval L,Byval U) as IntegerRandomize "重置隨機種子GetNum=Int((U - L + 1) * Rnd + L) "將範圍內獲得一個隨機整數賦值給該函式的返回值End Function寫完了這個函式，記下它的表示式 接收變數=GetNum(最小值，最大值)最後，在窗體中畫一個按鈕(Command1)，一個文字框(名為Text1),一個定時器(Timer1)1.雙擊這個窗體Form1，在它的Load事件中寫下：…Timer1.Interval=50 ’讓定時器50秒執行一次Timer1.Enabel=True ‘讓定時器允許運作…2.雙擊定時器Timer1,在它的事件裡寫下：…StudentNum=GetNum(1，30) "假設學生學號從1號到30號，如果經常變動可以從外部獲取，用變量表示。Text1.Text=StudentNum & "號""把取到的隨機數顯示在文字框裡面…3.雙擊按鈕Command1,在它的點選事件裡寫下IF Timer1.Enable=TrueTimer1.Enable=False "計時器停止運作Msgbox "選中了" & StudentNum & "號",26,"選中了該學號" "把結果彈出對話方塊ElseTimer1.Enable=True ’啟用已經停止的計時器，可以進行下一次選號End IF…