一、界面設計
新建一個標準的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()