VB6.0制作的界面挺花哨的七星彩摇奖机,类似于电视节目中的摇奖画面,开始摇奖后,一串数字开始转动,变化很快,停止来的一串数字就是中奖号码了,可用于举办活动时的抽奖程序,关于程序的实现,可参考以下核心部分的代码:
Dim i As Integer
Randomize '初始化随机数产生器
For i = 0 To Lbl_LuckyNum.UBound
Lbl_LuckyNum(i).Caption = Int(Rnd * 10 0) ' Lbl_LuckyNum(i)中显示产生的一个0-10的随机数
Next i
完整代码请下载本源码哦。
1