怎么用vb做一个抽奖程序
1、首先启动vb0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。
2、第一步，在界面上放三个按钮、一个标签、一个计时器。第二步，把下面的代码复制过去。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
3、说几点编程建议给你就行了。定义一个模块级的整数变量 首先获得数据中的人名个数。将这个数赋给变量 定义一个数组。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
4、我后来发到qq邮箱了，你的yahoo邮箱给退回来了。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
抽奖程序(用vb编写)
首先启动vb0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
界面设计 新建一个标准的exe工程。在form1窗体中放置一个定时器（timer1）、两个文本框（label1，label2）、两个命令按钮（command1，command2）和包含7个元素的控件数组（label3（0）—label3（6）。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
我用多线程写的，你可以参考下。系统界面**如下：（注：重置功能为清除已经中奖号码，回归1-100都可以中奖状态。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
需要2个文件，界面你自己排一下，数据可以通过access导入excel再导入到txt，格式你一看就明白的，记个把list给hide掉，10000条数据读入时间不会超过2s，其它都是体力活，mp3及播放、停止的代码都给你写了。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
如果是在PPT里用，就直接用VBA了。在PPT上添加一个命令， 再加两个文本框，文本框1 输入你要产生的组数 按命令后则文本框2产生随机数：下面的例子是产生1~20的， 21~46的比照一下。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
用vb编写抽奖程序
1、双击号码重置按钮输入代码为LabelCaption = 0，起到的作用是每次号码滚动后都要重新置0.让每次抽奖的起始都是一样的。并双击退出程序按钮输入代码为end。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
2、我和楼上的差不多，只是觉得楼上的随机抽奖并非随机的，他是由前往后快速循环，人少没关系，人一多，这样有失游戏的公平性，并非绝对的随机抽奖。我就将他的程序进一步修改了一下。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
3、需要2个文件，界面你自己排一下，数据可以通过access导入excel再导入到txt，格式你一看就明白的，记个把list给hide掉，10000条数据读入时间不会超过2s，其它都是体力活，mp3及播放、停止的代码都给你写了。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
4、说几点编程建议给你就行了。定义一个模块级的整数变量 首先获得数据中的人名个数。将这个数赋给变量 定义一个数组。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
5、如果是在PPT里用，就直接用VBA了。在PPT上添加一个命令， 再加两个文本框，文本框1 输入你要产生的组数 按命令后则文本框2产生随机数：下面的例子是产生1~20的， 21~46的比照一下。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
VB中可用的抽奖程序的代码
双击号码重置按钮输入代码为LabelCaption = 0，起到的作用是每次号码滚动后都要重新置0.让每次抽奖的起始都是一样的。并双击退出程序按钮输入代码为end。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
我用多线程写的，你可以参考下。系统界面**如下：（注：重置功能为清除已经中奖号码，回归1-100都可以中奖状态。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
我和楼上的差不多，只是觉得楼上的随机抽奖并非随机的，他是由前往后快速循环，人少没关系，人一多，这样有失游戏的公平性，并非绝对的随机抽奖。我就将他的程序进一步修改了一下。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html
定义一个数组。数组上限数为人名数量，用Randomize 来防止重复人名 下面的是按空格运行，回车停止 如果你的窗体上没有什么按钮和文本框等能得到焦点的控件就将下面的代码放在窗体的Form_KeyUp（）过程中。文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html 文章源自麦子笔记-https://www.immaizi.com/22b84ed42194.html