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