vb彩票摇奖 编写一个简易的30选五彩票摇奖程序。

Dim a(0 To 4) As Integer

Private Sub Command1_Click()

For i = 1 To 30

If i = 30 Then

t = t &i

Else

t = t &i &","

End If

Next

For i = 0 To 4

j = Split(t, ",")

Randomize

temp = Int(Rnd * (UBound(j) + 1) + 0)

Text1(i) = j(temp)

If temp <>UBound(j) Then

t = Replace(t, "," &j(temp) &","御带, ",")

Else

t = Replace(t, "," &j(temp) &","颂段, "")

End If

Next

End Sub

Private Sub Command2_Click()

For i = 1 To 30

If i = 30 Then

t = t &i

Else

t = t &i &","

End If

Next

For i = 0 To 4

j = Split(t, ",")

Randomize

temp = Int(Rnd * (UBound(j) + 1) + 0)

a(i) = j(temp)

If temp <>UBound(j) Then

t = Replace(t, "," &j(temp) &",", ",")

Else

t = Replace(t, "," &j(temp) &",", "")

End If

Next

Print "中奖号码为："镇樱芦 &a(0) &vbTab &a(1) &vbTab &a(2) &vbTab &a(3) &vbTab &a(4)

For i = 0 To 4

For k = 0 To 4

If a(i) = Text1(k) Then n = n + 1

Next

Next

If n <>0 Then

MsgBox "恭喜你中了" &6 - n &"等奖"

Else

MsgBox "很遗憾，您没中奖"

End If

End Sub

首先宏喊厅图片的名字呢 最好有规律 象 img1，img2....img10

如渗橘何让图片切换：在方法里要有setTimeout(“该方法名（）”，时间)，

再用Math.floor(Math.random()*10)+1产生3个随机数

分别给img显示

如何停下来，就判断按钮的value值，取得各img的图片名，再把全局的3个目标图片名比较

结果 就出来了 ，蔽隐以上是思路，我觉得

q炫舞网页版梦工厂抽奖网址:

网页链接

QQ炫舞梦工厂网页版抽奖活动：

1、玩家在11月4日前（提示：门票有限，售完完止），每抽奖1次可累计1幸运值，使用幸运值可进行兑换

2、达到20幸运值可进行“小幸运”兑换，达指埋败到88幸运值可进行“好幸运”兑换，达到288幸运值可进行“很幸运”兑换，达到688幸运值可进行“超幸运”兑换，达到1088幸运值可进行“极幸运”兑换；

3、兑换时，可在奖池中选择想获得的道具完成兑换；

4、幸运值达到1088为一轮，每轮只能依次唯颤兑换“小幸运”“好幸液扮运”“很幸运”“超幸运”“极幸运”且只能各兑换一次，如果点击“重置”则幸运值清零，重新开始累计，达到对应幸运值后可重新依次兑换“小幸运”“好幸运”“超幸运”“极幸运”；

---