首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
[求助]如何用VB生成一个简单的抽奖程序
发表于: 2012-6-3 15:23 5693

[求助]如何用VB生成一个简单的抽奖程序

本师 活跃值
1
2012-6-3 15:23
5693
想用VB生成一个简单的抽奖程序，要求生成1到999之间的随机数字，现在确定可以用语句MyValue=Int((999 * Rnd) +1),现在如何能让让这些数字不断的在LABEL中滚动出现，应该使用循环，而且按下COMMAND时要求抽奖字样变成停止，当按下停止时，抽奖结束，在标签中随机出现的数字就是中奖号码，具体如何实现？

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

收藏
免费 ・0
支持
分享
最新回复 (8)
藍色風火
雪    币： 10146
活跃值： (2523)
能力值： ( LV7，RANK：115 )
在线值：
发帖
回帖
粉丝
私信
2 楼
今年年初我们公司的抽奖程序就是我VB写的，和你说的这个一样，你要的话，可以发给你
2012-6-3 15:50
0
本师
雪    币： 1585
活跃值： (190)
能力值： ( LV8，RANK：120 )
在线值：
发帖
回帖
粉丝
私信
3 楼
能否将源代码也给我 呵呵 如果不可以 成果给我也行 感激不尽
2012-6-3 15:54
0
本师
雪    币： 1585
活跃值： (190)
能力值： ( LV8，RANK：120 )
在线值：
发帖
回帖
粉丝
私信
4 楼
。。。。。。。。。。等待中
2012-6-3 15:58
0
藍色風火
雪    币： 10146
活跃值： (2523)
能力值： ( LV7，RANK：115 )
在线值：
发帖
回帖
粉丝
私信
5 楼
说明一下：这个是从mdb文件读取号码的，文件的位置你自己改下，你先把要抽奖的号码放到mdb文件里面，抽奖的快捷键是空格键，还有这个是可以作弊的哦，
上传的附件：
2012-6-3 16:01
0
本师
雪    币： 1585
活跃值： (190)
能力值： ( LV8，RANK：120 )
在线值：
发帖
回帖
粉丝
私信
6 楼
谢谢，具体我再看看
2012-6-3 16:03
0
本师
雪    币： 1585
活跃值： (190)
能力值： ( LV8，RANK：120 )
在线值：
发帖
回帖
粉丝
私信
7 楼
具体我该怎么操作？能否详细点呢？比如作弊环节？这个MDB要怎么弄?
2012-6-3 16:05
0
无聊的菜鸟
雪    币： 622
活跃值： (294)
能力值： ( LV13，RANK：410 )
在线值：
发帖
回帖
粉丝
私信
8 楼
MyValue=Int((999 * Rnd) +1)

把这句话丢入一个Timer控件里面使用，比如你是用TEXT控件来显示号码，那就再后面加上一个TEXT.caption = CSTR(MyValue)就可以了。
2012-6-3 20:21
0
本师
雪    币： 1585
活跃值： (190)
能力值： ( LV8，RANK：120 )
在线值：
发帖
回帖
粉丝
私信
9 楼
谢谢楼上的，就是这个样子
2012-6-4 04:38
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//