一、界面設(shè)計(jì)
新建一個標(biāo)準(zhǔn)的exe工程。在form1窗體中放置一個定時器（timer1）、兩個文本框（label1，label2）、兩個命令按鈕（command1，command2）和包含7個元素的控件數(shù)組（label3（0）—label3（6））。
二、屬性設(shè)置
label3控件數(shù)組中的所有元素皆采用相同設(shè)置。
三、代碼編寫
本程序的實(shí)現(xiàn)原理是：當(dāng)用戶單擊“開始”按鈕時，打開定時器，利用定時器控件同時產(chǎn)生兩個隨機(jī)數(shù)sj1、sj2，sj1的范圍是1～32，sj2的范圍是0～49。當(dāng)sj1=24的時侯，用sj2與前面產(chǎn)生的中獎號碼作比較，若與前面的中獎相同，則退出本過程；若與前面的中獎號碼不同，則將此隨機(jī)數(shù)作為中獎號碼。當(dāng)產(chǎn)生了7個中獎號碼時，關(guān)閉定時器控件，停止產(chǎn)生隨機(jī)數(shù)。
本程序用到的函數(shù)簡介：
(1)randomize：初始化隨機(jī)數(shù)的種子數(shù)。
(2)int（）：返回一個非整形數(shù)字取整后的整數(shù)。
(3)rnd：產(chǎn)生一個0～1之間的隨機(jī)數(shù)（大于等于0，但小于1）。
(4)qbcolor（）：返回參數(shù)（0～15）對應(yīng)的顏色。
(5)val：將一個字符形變量轉(zhuǎn)化為一個數(shù)值型變量。
(6)format：格式化一個表達(dá)式。
以下是程序的完整代碼：
dim sy as integer
′命令按鈕1的單擊事件
private sub command1_click（）
′清除label3控件數(shù)組的內(nèi)容
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（）