計(jì)算機(jī)二級(jí)輔導(dǎo):用VB編寫抽獎(jiǎng)程序
用VB編寫抽獎(jiǎng)程序
一、界面設(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)用戶單擊“開(kāi)始”按鈕時(shí),打開(kāi)定時(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′打開(kāi)定時(shí)器
Command1.Enabled=False′使開(kāi)始按鈕失效
sy=-1′索引值初始化為-1
End Sub
′命令按鈕2的單擊事件
Private Sub Command2_Click()
Unload Me ′卸載本窗體
End Sub
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |