抽奖程序（用vb编写）

在窗体上添加一个command1，一个timer1，label1(0~5)

控件数组（添加一个label1,然后再复制5个，共6个，用来显示数字），代码如下：

Private

Sub

Command1_Click()

If

Command1Caption

=

"抽奖"

Then

Command1Caption

=

"停止"

Timer1Enabled

=

True

Else

Timer1Enabled

=

False

Command1Caption

=

"抽奖"

End

If

End

Sub

Private

Sub

Form_Load()

Command1Caption

=

"抽奖"

Timer1Interval

=

50

Timer1Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

Randomize

For

i

=

0

To

5

Label1(i)

=

Int(10

Rnd)

Select

Case

Label1(i)Caption

Case

0

Label1(i)BackColor

=

RGB(0,

0,

0)

Label1(i)ForeColor

=

RGB(255,

255,

255)

Case

1

Label1(i)BackColor

=

RGB(128,

42,

42)

Label1(i)ForeColor

=

RGB(127,

213,

213)

Case

2

Label1(i)BackColor

=

RGB(255,

0,

0)

Label1(i)ForeColor

=

RGB(0,

255,

255)

Case

3

Label1(i)BackColor

=

RGB(255,

97,

0)

Label1(i)ForeColor

=

RGB(0,

158,

255)

Case

4

Label1(i)BackColor

=

RGB(255,

255,

0)

Label1(i)ForeColor

=

RGB(0,

0,

255)

Case

5

Label1(i)BackColor

=

RGB(0,

255,

0)

Label1(i)ForeColor

=

RGB(255,

0,

255)

Case

6

Label1(i)BackColor

=

RGB(0,

0,

255)

Label1(i)ForeColor

=

RGB(255,

0,

0)

Case

7

Label1(i)BackColor

=

RGB(160,

32,

240)

Label1(i)ForeColor

=

RGB(95,

223,

15)

Case

8

Label1(i)BackColor

=

RGB(192,

192,

192)

Label1(i)ForeColor

=

RGB(63,

63,

63)

Case

9

Label1(i)BackColor

=

RGB(255,

255,

255)

Label1(i)ForeColor

=

RGB(0,

0,

0)

End

Select

Next

End

Sub

这个和你要的比较相似

258互联抽奖程序11版本

1、此抽奖程序适合商场抽奖、超市抽奖、商店抽奖、购物中心抽奖等使用销售小票号的场所进行营销抽奖；

2、抽奖使用了顾客的销售小票和小票金额，顾客根据小票号和小票金额进行抽奖，同一小票号不能抽奖两次；小票金额每满100元顾客就可抽奖一次。

3、此抽奖程序带有自主的后台配置界面：

可配置每轮的抽奖基数，配置奖项，配置每个奖项的数量；完成这些配置后可以很好的掌控抽奖过程个奖项的出现比例，掌控活动的预算成本。

4、可设置抽奖页面的背景，抽奖过程中的字体颜色，背景用于表现每次活动的主题，字体颜色可以使抽奖的记过显示的更加醒目。

5、每轮抽奖数量达到基数数量后会d出提示框，并自动开始下一轮抽奖，下一轮自动抽奖开始奖项配置与上轮奖项配置相同。

6、每日抽奖完成后可以统计出不同商户的今日消费金额；商场的用户可以统计出不同楼层的销售金额。

7、每日抽奖结束后可以统计处今日各个奖项的抽出数量。

>

为了帮助网友解决“如何设计一个可以电脑随机抽奖程序？”相关的问题，中国学网通过互联网对“如何设计一个可以电脑随机抽奖程序？”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:如何设计一个可以电脑随机抽奖程序？，具体解决方案如下：

解决方案1：

如果你是对编程一窍不通，又想快速学会做小程序的话，建议学flash+as3。因为flash本来就是动画软件，有简单易懂的界面绘制系统，不像java之类的语言需要用代码来解决界面问题。相对来说，初学者要做小程序，学这个会比较速成。

以下我列举一些你制作这个程序应该要用到的一些基本知识，你搞懂这些大概就可以做出这个程序了。不过，这样速成的学习方法，也会有弊端，我会在下面补充说明。

首先你可以熟悉一下flash的界面。为编程做准备，至少要了解库和属性面板，要了解影片剪辑或按钮。

然后应该学习一下编程的基本知识，比如变量(Variable)、数据类型(Datatype)、方法(Method)的概念，还有if、for等常见语句的用法。你可以把这些当关键词在百度搜索一下（如果直接搜搜不到相关内容，可以多加一个关键词，比如编程或as3之类的，如果中文搜不到就搜英文关键词）。

要了解一下as3的常用语法。比如声明变量、方法的语句。关于这个可以搜一下as3的var和function关键词。

最后，当你对编程有了一个大致的概念之后，你就可以着手准备你的这个小程序。

你可能需要用到的关键方法：

addEventListener() //你最可能用到的事件是MouseEventCLICK

Mathrandom()

Mathround()或Mathfloor()或Mathceil() //这三个都是可以用来数字取整的方法，有细微的不同

addChild()

因为你是初学者，即使是做这么简单的小程序，也有可能会遇到各种各样的情况。建议你一开始不要想得太复杂，把基本的效果做出来再说，否则很有可能在一些非关键的问题上屡屡碰壁，最后半途而废。而且有时因为自己想得太复杂，遇到问题连想问人都没法问，因为表达不清楚。

如果只是抽奖的程序，学会了以上这些之后，要做出来应该没有什么大问题。如果你要搞什么附加的模块，那就另当别论了——比如用户帐号、联网、界面特效等等，我列举的知识点不足以支持实现这些功能，那需要更多的学习。

那么，最后说一下这种速成学习法的弊端。

很明显的，速成=基础不扎实，这简直就是自然而然的逻辑关系。

有可能出现的结果是：学习花的时间少，但写代码的效率低，花的时间多；一旦出现错误，不知道该如何排错；跟别人交流的时候，听不懂各种术语；代码不规范，别人不好帮你修改……等等。

要解决这些问题，只有一个途径，就是系统、正规地学习编程。但是这样一来，跟你这个问题的出发点就相差十万八千里了。这就好比，本来你只是想自己做一艘船。但想做一艘正儿八经的船，而不是玩具船，不是破破烂烂的船，那就要费不少功夫。从它的材料开始，精心培育树木、采集矿物、打制零件……如此涉及到整个制船业的知识。看起来，你并没有打算走那么深。

如果我仅仅告诉你速成的学习方法，感觉上有点儿像害人。因为对于学习编程来说，这不是一个好的开始。但如果我告诉你“乖乖从基础开始学起吧”，似乎又有点儿强行替你做决定的感觉。

总而言之，现在我把两个选项都告诉你了。

从基础开始系统地学习，这样比较正规，但也比较枯燥，可能你自学了半天也做不出什么像样的东西，然后最初的那股兴趣就渐渐消失了。不过，如果是这样，flash+as3的建议就不一定合适了，或许你要仔细考虑一下职业规划什么的，再决定发展的方向——这样的话，就是比较严肃的话题了。

速成的学习法，如果你悟性好的话，能比较快地掌握一些重点的知识，对编程有一个大概的了解（但是悟性不好的话，说不定反而会搞得更烦躁），很快地做出一些小成果出来。不感兴趣的话，那就这样了。感兴趣的话，再往后发展。基础的缺乏、不良的书写代码习惯，这些也是可以后来再补充、纠正的。如果你不确定要往编程这条路上深入发展（比如打算以码农为职业），倒也可以用这种方法玩票，能走多远算多远。

解决方案2：

网赛有很多模版。没必要自己做

解决方案3：

不知道你会那些语言啊 做桌面的一般用C# Web的用J2EE 至于什么编程软件 ，，，，，建议还是自己补一补知识把，这个我不知道怎么回答你 貌似你好象什么都不知道

微信抽奖小程序本来就是随机的。

微信怎么抽奖的方法如下：

搜索“抽奖”，打开微信，在搜索页面输入“抽奖”，查找适合的抽奖小程序。

选定抽奖小程序，在搜索出的页面选择适合的抽奖小程序。

输入抽奖信息，点击进入抽奖小程序后，填写抽奖的具体要求；

发起抽奖，填写完成后，点击下方发起抽奖，并分享给抽奖对象。

题主是否想询问“qq群抽奖小程序怎样能抽奖”？

1、首先进入手机的QQ群，点击三横图标。

2、其次点击下面的更多，点击下面的搜索图标。

3、最后输入抽奖，进行搜索，选择抽奖程序，点击添加选项即可。

以上就是关于抽奖程序（用vb编写）全部的内容，包括:抽奖程序（用vb编写）、有没有一个软件，输入几十个人的头像，启动程序，头像滚动，进行抽奖、如何设计一个可以电脑随机抽奖程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！