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间某个数的状态