你有啥制作抽奖小程序的小技巧？

1、注册一个小程序账号，注意这里需要用一个没注册过公众号的邮箱注册。2、注册过程中需要很多认证，有很多认证，比较繁琐，如果暂时只是开发测试，不进行提审、发布的话，只要完成营业执照号填写就可以了，不需要完成微信认证。

只要在窗体中做二个命令按钮、一个标签和一个定时器对象，复制以下代码，就可以运行了：
Private Sub Command1_Click()
If Command1Caption = "开始" Then
Command1Caption = "暂停"
Timer1Enabled = True
Else
Command1Caption = "开始"
Timer1Enabled = False
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Label1Caption = ""
Label1FontSize = 50
Timer1Interval = 50
Timer1Enabled = False
Command1Caption = "开始"
Command2Caption = "结束"
End Sub
Private Sub Timer1_Timer()
Label1Caption = Int(Rnd 50) + 1
End Sub

商场搞活动想要制作一个抽奖程序，今天我们就来看看使用vb60制作抽奖小程序的教程。

1、首先启动vb60，执行 文件-新建命令 ，d出新建工程对话框，在该对话框中选择 标准的exe 后点击打开按钮， 进入vb程序主界面。

2、在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽， 调节窗体的大小 ，直至自己满意为止。

3、选择窗体，在其右边的属性中找到 boderstyle属性 ，设置 属性值为none， 接着再找到 startupposition属性 ，修改属性值为2-屏幕中心，再次修改 backcolor属性 值为淡。

4、在工具箱里选择frame1，然后在窗体上进行拖拽，大小比窗体小一些，并调整其位置，使其居中，在属性窗口找到 backcolor属性 修改其属性值为粉红色，这样设置看起来就有层次感了。

5、在工具箱里双击标签控件两次，在frame1中显示两个标签控件， 修改lable1的caption属性名称为“幸运抽奖”， 修改label2的caption属性为“0”，同时修改这两个标签控件的backcolor属性为粉色，和 frame 控件保持一致。

6、分别选择 label1和label2 ，修改其font属性，打开字体对话框选择字体为王羲之书法字体，字形为常规，字号为三号，点击确定按钮。

7、选择工具箱里按钮控件，连续双击四次，在frame1上显示四个按钮，调整他们在frame1上的位置，使排列整齐，并依次修改四个按钮的caption属性，属性值依次为“ 号码滚动”、“号码停止”、“号码重置”、“退出程序”。

8、接着选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

9、双击号码滚动控件，进入代码编辑区域，对象选择 command1， 过程选择click事件，在其输入代码为

Timer1Enabled = True

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

10、双击号码停止按钮，输入代码为 Timer1Enabled = False ，起到的作用是触发器停止工作。

11、双击号码重置按钮输入代码 为Label1Caption = "0"， 起到的作用是每次号码滚动后都要重新置0让每次抽奖的起始都是一样的。并双击退出程序按钮输入代码为end。

12、代码timer1的代码区域，输入代码为

Randomize

Label1Caption = "幸运中奖的号码是：" & Int(Rnd 64 + 1)

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

13、代码编程完成后就可以运行调试了，点击启动标志，进行编译，如果出现错误根据错误提示进行修改，并不断调试直至通过达到预期目的为止。提示出现要求对象说明控件名称有错误，修改过来，提示出现子程序未定义则说明函数不对，即系统不能认识的函数，进行修改。

14、调试无误后，你会看到号码在不停的滚动， 点击号码停止即可停止 ，点击号码重置就会出现号码为0，点击退出程序即可界面消失，这说明已经达到所预期的功能了。

15、执行文件-生成抽奖exe，这样经过编译就生成了可执行文件，这样就可以跨平台 *** 作了，不再依赖原始程序。接 着执行文件-保存命令， 把所有的源文件进行保存即可，以方便以后修改使用。

以上就是vb60中设计抽奖器的教程，希望大家喜欢，请继续关注我们。

用datatxt文件保存以下内容：
13725528132 李桂荣
13725528131 李二来
13725528133 张荣刚
13725528130 荣南
13725528137 王三
13725528138 吴立
13725528139 郭德纲
13725528140 周星驰
13725528141 张曼玉
13725528142 张艺谋
13725528152 秦香莲
13725528162 潘金莲
13725528172 李大嘴
13725528182 展堂
//源代码如下
#include <stdioh>
#include <stdlibh>
#include <timeh>
#define MAX_NUM 9999
//定义保存人名和电话的数据结构
struct Person
{
char name[20];
char telno[15];
char award;
};
int num = 0; //统计人数
FILE fp; //文件指针
Person persons[MAX_NUM]; //定义数组
int awarder_1[1] = {-1}; //一等奖
int awarder_2[2] = {-1, -1}; //二等奖
int awarder_3[5] = {-1, -1, -1, -1, -1};//三等奖
//读取文件
void readdata()
{
int i = 0; //数组下标
Person person;
//文件打开
fp = fopen("datatxt", "r");
if (fp == NULL)
{
printf("打开文件datatxt失败!\n");
return;
}
//当文件不为空
while (!feof(fp))
{
num ++;
fscanf(fp, "%s", persontelno);
fscanf(fp, "%s", personname);
personaward = 'F';
persons[i++] = person;
}
}
//初始化标识
void init()
{
for(int i = 0; i < num; i++)
{
persons[i]award = 'F';
}
}
//显示单个中奖信息
void info( int i)
{
printf("手机号码: %s 姓名: %s\n", persons[i]telno, persons[i]name);
}
void main()
{
char again = 'Y';
//读取文件
readdata();
printf("简单抽奖程序\n");
srand((long)time(0));
while(again == 'Y' || again == 'y')
{
//初始化标识
init();
printf("\n开始抽第一等奖(1名)，按任意键开始\n");
getchar();
awarder_1[0] = abs(rand() % num);
while (persons[awarder_1[0]]award == 'T')
{
awarder_1[0] = rand() % num;
}
persons[awarder_1[0]]award = 'T';
info(awarder_1[0]);
printf("\n开始抽第二等奖(2名)\n");
for (int i = 0; i < 2; i++)
{
printf("\n第%d个二等奖,按任意键开始\n", i+1);
getchar();
awarder_2[i] = rand() % num;
while (persons[awarder_2[i]]award == 'T')
{
awarder_2[i] = rand() % num;
}
persons[awarder_2[i]]award = 'T';
info(awarder_2[i]);
}
printf("\n\n开始抽第三等奖(5名)\n");
for (i = 0; i < 5; i++)
{
printf("\n第%d个三等奖,按任意键开始\n", i + 1);
getchar();
awarder_3[i] = rand() % num;
while (persons[awarder_3[i]]award == 'T')
{
awarder_3[i] = rand() % num;
}
persons[awarder_3[i]]award = 'T';
info(awarder_3[i]);
}
printf("\n是否重新开始抽奖(Y or N)\n");
again = getchar();
}
getchar();
return;
}

16年年会抽奖网上有人对公司的抽奖结果又偏见，于是全员进行了抽奖代码的review，好像是爱奇艺公司的，下面用python来实现一个抽奖程序。
主要功能有
1从一个csv文件中读入所有员工工号
2将这些工号初始到一个列表中
3用random模块下的choice函数来随机选择列表中的一个工号
4抽到的奖项的工号要从列表中进行删除，以免再次抽到
初级版
这个比较简单，缺少定制性，如没法设置一等奖有几名，二等奖有几名
import csv#创建一个员工列表emplist = []#用with自动关闭文件with open('c://empscsv') as f:
empf = csvreader(f) for emp in empf:
emplistappend(emp)
print("进行一等奖抽奖，共有一名")import random#利用random模块的chice函数来从列表中随机选取一个元素e1 = randomchoice(emplist)#将中奖的员工从列表中剔除emplistremove(e1)
print('一等奖得主的号码是 %s' % e1)
print('进行三个二等奖的号码抽奖')
e2_1 = randomchoice(emplist)
emplistremove(e2_1)
e2_2 = randomchoice(emplist)
emplistremove(e2_2)
e2_3 = randomchoice(emplist)
emplistremove(e2_3)
print('获得3个二等奖是 %s %s %s',(e2_1,e2_2,e2_3))#下面依次类推可以设置三等奖的抽奖123456789101112131415161718192021222324
改进版
上面的那个初级版，假如要设置个三等奖一百名那么将要重新维护几百行代码，下面用比较高级点的办法实现
我们考虑用面向对象来实现，设计一个抽奖类，类中包含一个属性（号码来源），一个方法：产生所有抽奖层次指定个数的抽奖号码。
用到如下知识点：
1 csv模块部分函数用法
2 sys模块读取输入
3 random模块函数choice函数用法
4 列表和字典元素的添加、删除
6 for循环中range用法
7 类和面向对象
8 字符打印，print中的计算
9open中with
#!/usr/bin/python#coding=utf-8import csvimport sysimport random
reload(sys)
syssetdefaultencoding('utf8')#coding=utf-8print("开始进行抽奖")#定义个抽奖类，功能有输入抽奖级别和个数，打印出每个级别的抽奖员工号码class Choujiang:
#定义scv文件路径
def __init__(self,filepath):
selfempfile = filepath def creat_num(self):
emplist = [] with open(selfempfile) as f:
empf = csvreader(f) for emp in empf:
emplistappend(emp)
print('共有%s 人参与抽奖' % len(emplist))
levels = int(input('抽奖分几个层次，请输入：')) #定义一个字典
level_dict = {} for i in range(0,levels):
print('请输入当前获奖层次 %s 对应的奖品个数' % ( i + 1))
str_level_dict_key = sysstdinreadline()
int_level_dict_key = int(str_level_dict_key)
level_dict[i] = int_level_dict_key #循环完成后抽奖层次字典构造完毕
#进行抽奖开始
print('抽奖字典设置为: %s' % level_dict) for i in range(0,len(level_dict)):
winers = [] #产生当前抽奖层次i对应的抽奖个数
for j in range(0,int(level_dict[i])): #利用random模块中的choice函数从列表中随机产生一个
winer = randomchoice(emplist)
winersappend(winer)
emplistremove(winer)
print('抽奖层次 %s 下产出的获奖人员有：' % (i + 1 ))
print(winers)#类功能定义完毕，开始初始化并使用if __name__ == '__main__':
peoples = Choujiang('c://empscsv')
peoplescreat_num()1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
该段程序在python 26 以上及 3中均可以运行，运行结果如下图：
Python 343 (v343:9b73f1c3e601, Feb 24 2015, 22:44:40) [MSC v1600 64 bit (AMD64)] on win32
Type "copyright", "credits" or "license()" for more information>>> ================================ RESTART ================================>>> 开始进行抽奖
共有24790 人参与抽奖
抽奖分几个层次，请输入：2请输入当前获奖层次 1 对应的奖品个数1请输入当前获奖层次 2 对应的奖品个数3抽奖字典设置为: {0: 1, 1: 3}
抽奖层次 1 下产出的获奖人员有：
[['张三19826']]
抽奖层次 2 下产出的获奖人员有：
[['张三18670'], ['张三23235'], ['张三15705']]>>> 1234567891011121314151617

---