計(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)用戶單擊“開始”按鈕時(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)相同，則退出本過程;若與前面的中獎(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的單擊事件

　　Private Sub Command2_Click()

　　Unload Me ′卸載本窗體

　　End Sub

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程匯總