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

12、代碼timer1的代碼區域，輸入代碼為

Randomize

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

主要功能是使用隨機函數產生不同的隨機數值

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

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

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

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

關鍵詞： vb6.0