大家好，小太来为大家解答以上问题。vb6.0怎么制作一个抽奖小程序，vb6.0抽奖器的制作方法这个很多人还不知道，现在让我们一起来看看吧！
商场想搞个抽奖节目。今天，我们来看看用vb6.0制作彩票程序的教程。
VB6.0中文企业版免费下载(206M)
类型：编译器工具大小：206MB语言：简体中文时间：2020-01-08查看详情
1、首先启动vb6.0，执行文件-新建命令,弹出新建项目对话框。在这个对话框中，选择标准的exe并点击打开按钮，进入vb程序主界面。.
2.在主界面中，按住鼠标左键并围绕窗体任意小方块进行拖拽，直到你满意为止调节窗体的大小,
3.选择表单，在其右侧属性中找到boderstyle属性，设置属性值为none，，然后找到startupposition属性,将属性值修改为2-screencenter，并将backcolor属性值再次修改为浅黄色。
4.在工具箱中选择frame1，然后将其拖放到比表单小的表单上，调整其位置使其居中。在属性窗口中找到backcolor属性，并将其属性值更改为粉红色，这样设置看起来就有层次了。
5.在工具箱中双击label控件两次，在frame1中显示两个label控件。修改lable1的caption属性名称为“幸运抽奖”，将label2的caption属性改为“0”，并将这两个label控件的backcolor属性改为粉红色，与frame控件一致。
6.分别选择label1和label2，修改其字体属性，打开字体对话框，选择字体为王羲之书法字体，字体为正体，字号为3号，点击确定。
7.在工具箱中选择button控件，连续双击四次，frame1上将显示四个按钮。调整它们在frame1上的位置，使它们排列整齐，依次修改四个按钮的标题属性，属性值为“号码滚动”、“号码停止”、“号码重置”、“退出程序”。”
8.然后，在工具箱中选择timer控件，并双击它以将其显示在frame1上。这种控制在计时中起着非常重要的作用。同时需要注意的是，程序运行时，控件不显示。
9.双击数字滚动控件进入代码编辑区。单击事件是在对象选择过程中选择了command1，,输入代码是
一、Timer1.Enabled=True
主要作用是触发器开始工作。
10.双击数字停止按钮，输入的代码是Timer1.Enabled=False,作为停止工作的触发器。
11.双击数字重置按钮输入代码。为Label1.Caption="0"，的功能是在每次滚动数字后将数字重置为0。让每一次抽奖的开始都一样。并双击退出程序按钮进入代码结束。
12.代码定时器1的代码区，输入代码为
二、Randomize
三、Label1.Caption="幸运中奖的号码是："Int(Rnd*64+1)
主要功能是用随机函数产生不同的随机值。
13.代码编程完成后，就可以运行调试了。单击开始符号并编译。如果有错误，根据错误提示修改，不断调试，直到达到预期目的。系统会提示您要求对象解释控件名称中存在错误，因此请对其进行修改。如果提示子程序未定义，说明函数错误，即系统无法识别函数，修改。
14.调试无误后，你会看到数字一直在滚动，点击号码停止即可停止.点击数字进行复位，数字就会为0。点击退出程序，界面消失。这说明达到了预期的功能。
15.执行文件——生成lottery.exe，使得编译后生成可执行文件，从而可以跨平台操作，不再依赖原程序。着执行文件-保存命令，可以保存所有的源文件供以后修改。
本文到此结束，希望对大家有所帮助。
