大家好,综合小编来为大家讲解下vb6.0怎么制作一个抽奖小程序，vb6.0抽奖器的制作方法这个很多人还不知道,现在让我们一起来看看吧！

1.首先启动vb6.0，执行file-new命令，弹出新建项目对话框。在对话框中选择标准exe，点击打开按钮，进入vb程序主界面。

2.在主界面中，按住鼠标左键，拖动表单周围的任何小方块，调整表单的大小，直到满意为止。

3.选择一个表单，在右边的属性中找到boderstyle属性，将属性值设置为none，然后找到startupposition属性，将属性值修改为2屏居中，将backcolor属性值再次修改为浅黄色。

4.在工具箱中选择frame1，然后将其拖放到比窗体小的窗体上，并调整其位置使其居中。在属性窗口中找到backcolor属性，并将其属性值更改为pink，这样设置看起来就有层次了。

5.在工具箱中双击label控件两次，在frame1中显示两个label控件。将标签1的caption属性名称修改为“幸运抽奖”，将标签2的caption属性修改为“0”。同时将这两个标签控件的backcolor属性修改为粉红色，与框架控件保持一致。

6.分别选择label1和label2，修改其字体属性，打开字体对话框，选择字体为王羲之书法字体，字体样式为普通，字号为3号，点击确定。

7.在工具箱中选择button控件，连续双击四次，frame1上将显示四个按钮。调整它们在frame1上的位置，使它们排列有序，并依次修改四个按钮的标题属性。属性值依次为“数字滚动”、“数字停止”、“数字复位”和“退出程序”。

8.然后在工具箱中选择timer控件并双击，该控件将显示在frame1上。控件对计时的作用很大，需要注意的是程序运行时控件不会显示。

9.双击数字滚动控件进入代码编辑区。选择command1作为对象，单击event作为流程，并输入代码

定时器1。启用=真

主要作用是触发器开始工作。

10.双击数字停止按钮，输入代码“定时器1”。Enabled=False，在停止触发器中起作用。

11.双击数字重置按钮，输入标签为1的代码。Caption='0 '在每次滚动后起到重置号码的作用，让每次开奖的开头都一样。双击退出程序按钮，输入代码作为end。

12.在代码定时器1的代码区，输入如下代码

使不规则化

标签1。Caption='幸运中奖号码是：' Int(Rnd * 64 1 '

主要功能是利用随机函数产生不同的随机值。

13.代码编程完成后，就可以运行调试了。单击开始符号进行编译。如果有错误，根据错误提示进行修改，继续调试，直到达到预期目的。提示要求对象说明控件名称有错误，并修改。提示子程序未定义，表示函数错误，即系统无法识别的函数，修改。

14.调试正确后，你会看到数字一直在滚动。点击数字停止，点击数字重置，数字将显示为0。点击退出程序，界面消失。这说明达到了预期的功能。

15.可执行文件-生成彩票。exe，这样编译后生成可执行文件，这样就可以跨平台操作，不依赖于原程序。然后执行file-save命令，保存所有源文件，以供以后修改和使用。

本文[高级伪原创标题]到此分享完毕，希望对大家有所帮助。