求vb 作弊抽獎程序源代碼.

做好了

代碼如下，兩個按鈕，壹個開始，壹個結束，

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“，要的話發給妳