新建一個標準的EXE工程。在Form1窗體中放置一個定時器（Timer1）、兩個文本框（Label1，Label2）、兩個命令按鈕（Command1，Command2）和包含7個元素的控件數組（Label3（0）-Label3（6））。
二、屬性設置
Label3控件數組中的所有元素皆采用相同設置。
三、代碼編寫
本程序的實現原理是：當用戶單擊"開始"按鈕時，打開定時器，利用定時器控件同時產生兩個隨機數sj1、sj2，sj1的范圍是1～32，sj2的范圍是0～49。當sj1=24的時侯，用sj2與前面產生的中獎號碼作比較，若與前面的中獎相同，則退出本過程；若與前面的中獎號碼不同，則將此隨機數作為中獎號碼。當產生了7個中獎號碼時，關閉定時器控件，停止產生隨機數。
本程序用到的函數簡介：
(1)Randomize：初始化隨機數的種子數。
(2)Int（）：返回一個非整形數字取整后的整數。
(3)Rnd：產生一個0～1之間的隨機數（大于等于0，但小于1）。
(4)Qbcolor（）：返回參數（0～15）對應的顏色。
(5)Val：將一個字符形變量轉化為一個數值型變量。
(6)Format：格式化一個表達式。
以下是程序的完整代碼：
Dim sy As Integer
′命令按鈕1的單擊事件
Private Sub Command1_Click（）
′清除Label3控件數組的內容
For i=0 To 6
Label3（i）.Caption=″″
Next
Timer1.Enabled=True′打開定時器
Command1.Enabled=False′使開始按鈕失效
sy=－1′索引值初始化為－1
End Sub
′命令按鈕2的單擊事件
Private Sub Command2_Click（）
Unload Me ′卸載本窗體
End Sub
′定時器1的定時事件
Private Sub Timer1_Timer（）
Dim sj1,sj2,ys As Integer
Randomize′初始化隨機數
sj1=Int（Rnd＊32）＋1
sj2=Int（Rnd＊50）
Label1.Caption=sj1′設置標簽1的內容
ys=Int（Rnd＊6）＋9
Label1.ForeColor=QBColor（ys）
If sj2=24 Then′如果sj2等于24
sy=sy＋1′索引值加1
For a=o To sy
If sj1=Val（Label3（a）.Caption） Then
sy=sy － 1
Exit Sub
End If
Next
Label3（sy）.Caption=Format（sj1, ″00″）
Label3（sy）.ForeColor=QBColor（ys）
End If
If sy=6 Then′如果索引值等于6
Timer1.Enabled=False ′關閉定時器
Command1.Enabled=True ′使命令按鈕有效（即可重新開始抽獎）
End If
End Sub
單擊工具欄上的"啟動"按鈕，啟動抽獎程序。單擊"開始"按鈕，Label1控件將用五彩繽紛的顏色快速顯示1～32之間的數字，并在Label3控件數組中產生一組7個數字的中獎號碼。再次單擊"開始"按鈕，程序將自動清除Label3控件數組中的內容，并重新產生一組7個數字的中獎號碼（與前面的不相同）。
文章來源于領測軟件測試網 http://www.kjueaiud.com/