Question

求vb 作弊抽奖程序源代码.

在1000-9999之间随机抽取，点抽奖时出现的是设定范围1234-1243之间的一个

Answer 1

做好了

代码如下，两个按钮，一个开始，一个结束，

Private Flag As Boolean

Private Sub Command1_Click()

Dim A(10000) As Integer

Flag = False

Do Until Flag = True

A(i) = Int(Rnd() * 8999 + 1000)

Label1.Caption = A(i)

DoEvents

Loop

End Sub

Private Sub Command2_Click()

Flag = True

Dim A(10000) As Integer

A(10000) = Int(Rnd() * 10 + 1233)

Label1.Caption = A(10000)

End Sub

点开始，数字在1000至9999间跳动（如图1

点结束，数字停止，结果只在1234-1243间（如图2 

已经编译成 "抽奖.exe“，要的话发给你