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