VB 抽奖程序 可设置每次抽奖显示数量与每个等级的抽奖次数

时间：2012-02-05 09:40:58
【文件属性】：

文件名称：VB 抽奖程序 可设置每次抽奖显示数量与每个等级的抽奖次数

文件大小：2.89MB

文件格式：ZIP

更新时间：2012-02-05 09:40:58

VB 抽奖 公司抽奖 年会抽奖

一些说明： 1、给公司年终会，开发的程序；参考了网上的例子，一并现行感谢！ 2、背景图可以根据b2.jpg修改，替换此文件即可，修改背景图 3、抽奖时的背景音乐，可以替换n.mp3 4、一等奖默认抽一次，每次显示3个；二等奖默认抽2次，每次显示6个；三等奖默认抽三次，每次显示10个 说明： 获取N个不重复的随机数，是借用了 xsfhlzh 编制的函数，尤其感谢 Public Function GetRndNotRepeat(ByVal NumMin As Integer, ByVal NumMax As Integer, ByVal n As Integer) '编制:xsfhlzh '功能:取NumMin到NumMax间的n个随机整数 '说明:取数标志数组是Byte，每一位表示NumMin到NumMax间某个数的状态

立即下载

【文件预览】：
gift.frm
gift.vbp
MSSCCPRJ.SCC
抽奖.exe
n.mp3
gift.frx
main.frx
Query.frm
giftsetup.frm
b2.jpg
readme.txt
gift.vbw

网友评论

  • 不错，值得学习，很好的资源
  • 感觉还不错，使用方便。
  • 感觉还不错。
  • 可以用的，不错，界面很美观
  • 总体上还行，就是随机的算法不太好。
  • 挺不错的东西
  • 可以用，还不错
  • 程序非常好，对于新手是一个不错的例子，谢谢
  • 使用起来感觉一般
  • 可以用 给了我思路 还是很好的
  • 可以用，只是设计上不是很人性化。
  • 还不错！就是简单了点
  • 用着还行，设置稍微欠缺点
  • 总体上还行，就是随机的算法不太好。
  • 修复了几个BUG后就可以用了。虽然最后没排上用场。呵呵谢谢
  • 怎么用不了？一直报错误。
  • 这个似乎有点简单哦，我的用不起来。不过要重新设置下了。
  • 还不错，但是有些东西不好设置
  • 不好意思，“抽奖.exe“运行不起来，打开出错，我的系统是xp xp3。
  • 这个有点小Bug呀，不过总体上是不错的

相关文章