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

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

Randomize

Label1.Caption = "幸運中獎的號碼是：" & Int(Rnd * 64 + 1)

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

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

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

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

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

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