11、雙擊號(hào)碼重置按鈕輸入代碼為Label1.Caption = "0"，起到的作用是每次號(hào)碼滾動(dòng)后都要重新置0.讓每次抽獎(jiǎng)的起始都是一樣的。并雙擊退出程序按鈕輸入代碼為end。

12、代碼timer1的代碼區(qū)域，輸入代碼為

Randomize

Label1.Caption = "幸運(yùn)中獎(jiǎng)的號(hào)碼是：" & Int(Rnd * 64 + 1)

主要功能是使用隨機(jī)函數(shù)產(chǎn)生不同的隨機(jī)數(shù)值

13、代碼編程完成后就可以運(yùn)行調(diào)試了，點(diǎn)擊啟動(dòng)標(biāo)志，進(jìn)行編譯，如果出現(xiàn)錯(cuò)誤根據(jù)錯(cuò)誤提示進(jìn)行修改，并不斷調(diào)試直至通過達(dá)到預(yù)期目的為止。提示出現(xiàn)要求對(duì)象說明控件名稱有錯(cuò)誤，修改過來，提示出現(xiàn)子程序未定義則說明函數(shù)不對(duì)，即系統(tǒng)不能認(rèn)識(shí)的函數(shù)，進(jìn)行修改。

14、調(diào)試無誤后，你會(huì)看到號(hào)碼在不停的滾動(dòng)，點(diǎn)擊號(hào)碼停止即可停止，點(diǎn)擊號(hào)碼重置就會(huì)出現(xiàn)號(hào)碼為0，點(diǎn)擊退出程序即可界面消失，這說明已經(jīng)達(dá)到所預(yù)期的功能了。

15、執(zhí)行文件-生成抽獎(jiǎng).exe，這樣經(jīng)過編譯就生成了可執(zhí)行文件，這樣就可以跨平臺(tái)操作了，不再依賴原始程序。接著執(zhí)行文件-保存命令，把所有的源文件進(jìn)行保存即可，以方便以后修改使用。

以上就是vb6.0中設(shè)計(jì)抽獎(jiǎng)器的教程，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注腳本之家。 上一頁 1 2下一頁閱讀全文

關(guān)鍵詞： vb6.0