请高人帮做一个抽奖小程序

发布网友 发布时间：2022-04-23 07:54

我来回答

共5个回答

热心网友 时间：2022-06-18 00:00

'加一个命令按钮
Private Sub Command1_Click()
Dim a As Integer, myStr As String
Randomize (Timer)
a = Int(Rnd * 100) + 1
Select Case a
Case 1 To 4
myStr = "QQ会员一个月"
Case 5 To 8
myStr = "QQ游戏蓝钻一个月"
Case 9 To 12
myStr = "QQ秀红钻一个月"
Case 13 To 16
myStr = "QQ宠物粉钻一个月"
Case 17 To 20
myStr = "QQ黑钻一个月"
Case 21 To 24
myStr = "QQ空间黄钻一个月"
Case 25 To 28
myStr = "QQ紫钻一个月"
Case 29 To 32
myStr = "迅雷会员一个月"
Case 33
myStr = "CF会员一个月"
Case Else
myStr = "谢谢参与"
End Select
MsgBox myStr
End Sub
'各个项目的图片是啥意思？

热心网友 时间：2022-06-18 00:01

要代码还是完整的程序,闲着没事,我来试试???
==,有点不明白,刚看了2楼的,他的程序符合你的要求吗???我的意思是
你有多少人抽奖...是100人(确定人数)还是不确定人数,如果是不确定人数,你用二楼的就可以了啊,,,,,呵呵,只要你运气不是那么那么背,,,,,基本上没问题``如果运气不好,连续抽出n个大奖也是有可能滴`````

热心网友 时间：2022-06-18 00:01

你说的开5个问题是什么意思？说清楚了我就开始做
我已经发样版过去了。

热心网友 时间：2022-06-18 00:02

不会是从邮件里看的把?

如果是邮件的话..

那告诉你.. 不要相信.,.

全是骗人的..

任何活动和奖品都是通过 反恐精英的官方网站进行的...

热心网友 时间：2022-06-18 00:03

程序已发，主要查收