這個需要應用以下幾個步驟：
寫壹個獲取隨機學號函數。
將這個函數綁定在某個控件上觸發抽學號的事件。
在某個輸出界面顯示這個隨機學號。
首先，學號肯定是整數，所以在窗體代碼區定義壹個整型的變量來存放
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事件中寫下：
…
Timer1.Interval=50 ’讓定時器50秒運行壹次
Timer1.Enabel=True ?‘讓定時器允許運作
…
2.雙擊定時器Timer1,在它的事件裏寫下：
…
StudentNum=GetNum(1，30) ?
'假設學生學號從1號到30號，如果經常變動可以從外部獲取，用變量表示。Text1.Text=StudentNum & "號"
'把取到的隨機數顯示在文本框裏面
…
3.雙擊按鈕Command1,在它的點擊事件裏寫下
IF?Timer1.Enable=True
Timer1.Enable=False '計時器停止運作
Msgbox "選中了" &?StudentNum & "號",26,"選中了該學號" ? '把結果彈出對話框
Else
Timer1.Enable=True ? ’啟用已經停止的計時器，可以進行下壹次選號
End IF
…