VB抽奖程序,求高手给个完整的程序,按人名抽,十分感谢

wyljames 2009-12-21 09:58:19

A:130人的抽奖
B:人名不会重复中奖
C:抽奖结束有提示
小弟非常菜,高手请给个可运行的程序,十分感谢,十分感谢
24701995@qq.com
我邮箱

...全文

91 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

king06 2009-12-22

打赏
举报

回复

孤独剑_LPZ 2009-12-22

打赏
举报

回复

君子动口不动手

threenewbee 2009-12-22

打赏
举报

回复

呵呵，很简单，Rnd函数。

年会抽奖，用VB写了个抽奖程序，随机产生100个姓名（50男50女），然后抽取10个，包括些excel，dataview操作，咋感觉越写越low，大家将就看看

VB编写。随机抽奖软件，可以确保vip人员一定随机中奖。适合于一些小聚会、晚会等场合，抽个奖玩一玩，也可以用于正式场合。主办方可以设置vip名单，vip名单人员一定中奖，随机中奖。软件运行时，可以编辑界面等等。说明：程序需要读取这些文件的内容，文件名要严格一致。 0奖项设置.txt————后面解释。 1群众信息.txt————参与抽奖的人员名单。如果存在重名，程序会自动剔除。 2中奖名单.txt———保存已经中奖人员的名单。此文件如果已存在，会有提示。背景.jpg——————替换了文件内容就更换了背景，文件名不可改。奖.jpg———————替换了文件内容就更换了“奖”字按钮标志，文件名不可改。一等奖.jpg————后面解释。二等奖.jpg 三等奖.jpg 四等奖.jpg ============0奖项设置.txt============= 每个奖项对应一张照片，照片文件的命名必须与奖项前三个字一致！如某奖项名为：a5马拉大大，则对应照片的文件名称就是：a5马.jpg 奖品照片的扩展名也必须是jpg，多少个奖项就对应多少张奖品图片。先抽小奖，再抽大奖。在这个文件中，请把最重要的奖项写在最前面，每个奖项占一行。这个文件system.sys，可以用记事本打开，里面存放vip人名，确保他们一定中奖，而且是随机奖，你懂的！

简单好用的多类型抽奖PPT，支持随机抽取数字、姓名等文字内容。附有记录框，可连续抽取多次。抽奖过程有滚动动画，抽奖更加真实透明。只需简单修改Excel文件便可轻松完成数据录入，并附有贴心的使用说明。同时，每次抽奖的记录都会被写入txt格式的文本文件，方便随时查询。简单好用的多类型抽奖PPT，支持随机抽取数字、姓名等文字内容。附有记录框，可连续抽取多次。抽奖过程有滚动动画，抽奖更加真实透明。只需简单修改Excel文件便可轻松完成数据录入，并附有贴心的使用说明。同时，每次抽奖的记录都会被写入txt格式的文本文件，方便随时查询。 PS: 仅建议装配Office电脑的用户下载使用如果是2016版本则更佳 WPS用户请勿轻易下载这个抽奖PPT文件经过了数百用户的实践测试改进数版而来基本可以正常使用（有问题可以向我反馈代码问题我会跟进解决）为方便大家上手文件夹“【必看】使用说明”里作了操作方法的详细描述有需要的可以详细看看

一个公司的抽奖软件，很好用的。希望大家支持下，看看我这个怎样，我收vb初学者，多给指导意见哈

VB004-2春梅抽奖源代码，可以把人名输入到txt文件中，随机抓阄。

742

社区成员

26,925

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章