Dim firstPrize As Integer = 3 Dim secondPrize As Integer = 5 Dim thirdPrize As Integer = 12 Dim souvenirPrize As Integer = 10 #39定義變量，存儲抽獎結果 Dim firstPrizeList As New ListOf IntegerDim second。

因此，我們可以生成一個09之間的隨機數(shù)，如果這個隨機數(shù)等于0，就表示中獎了具體代碼如下var probability = 10 中獎概率為10%var randomNum = MathfloorMathrandom * 10if randomNum === 0。

print#39獲得3個二等獎是 %s %s %s#39，e2_1，e2_2，e2_3#下面依次類推可以設置三等獎的抽獎024 改進版 上面的那個初級版，假如要設置個三等獎一百名那么將要重新維護幾百行代碼，下面。

Dim a1 To 100 As String Dim i As Integer， x As Integer Const n = 3 #39n的值可根據(jù)實際需要賦予不同的變量 Private Sub Command1_ClickTimer1Enabled = True End Sub Private Sub Command2_ClickTimer。

雙擊號碼停止按鈕，輸入代碼為Timer1Enabled = False，起到的作用是觸發(fā)器停止工作雙擊號碼重置按鈕輸入代碼為Label1Caption = #340#34，起到的作用是每次號碼滾動后都要重新置0讓每次抽獎的起始都是一樣的。

在窗體上添加一個command1，一個timer1，label10~5控件數(shù)組添加一個label1，然后再復制5個，共6個，用來顯示數(shù)字，代碼如下Private Sub Command1_ClickIf Command1Caption = quot抽獎quotThen Command1Caption =。

你的要求無法完成實現(xiàn)，但抽獎還是可以用EXCEL進行的，如下1在SHEET1里面A1D10寫上你的獎品，隨機寫 2在SHEET2里面A1D10涂成綠色，打上邊框，之后在SHEET2里面A12輸入公式 =Sheet1！A12 3復制SHEET2里面的。

代碼如下，已測試通過int mainint no，retprintfquot請輸入你猜測的號碼\nquotscanfquot%dquot，noret=rand%10printfquot本次開獎結果=%d\nquot，retifno==retprintfquot恭喜你猜中了，中獎10元\。

public class 抽獎游戲 extends JFrame static 抽獎游戲 frame public 抽獎游戲 setLayoutnew GridLayout3， 3， 3， 3 Border border = new LineBorderColorBLUE， 4 JButton l1 = new JButton JButton。

只要在窗體中做二個命令按鈕一個標簽和一個定時器對象，復制以下代碼，就可以運行了Private Sub Command1_ClickIf Command1Caption = quot開始quot Then Command1Caption = quot暫停quotTimer1Enabled = True Else Command1。

1~36個數(shù)取7個不同的，需要用while循環(huán)+隨機數(shù)去取出7個數(shù)在while循環(huán)里面，可以判斷取出來的數(shù)用switch，是否是28，18，8 如果有輸出相應的獎項，如果沒有，就輸出其它的然后將這7個數(shù)，打印出來就好了JavaScr。

3先判斷用戶是否已登陸是否存在會員卡 詢問是否進行抽獎，選Y，電腦隨機輸出5個4位 數(shù)字如果其中有一個數(shù)字與用戶卡號相同，則為中獎，獎勵 人民幣為卡號數(shù)字的金額否則，謝謝參與程序退出 *import。

這個我沒怎么考，具體多少不太清楚，但是給的不少\x0d\x0a4登錄翻牌抽獎\x0d\x0a每日登錄都可以抽獎，偶爾會抽到監(jiān)本印文，一般是10個，連續(xù)登陸5天可以抽獎獎品更大點，監(jiān)本是50個，不過這個看運氣了，有時候會抽。

這里是提問和回答用的寫的時候遇到什么困難可以問的用隨機數(shù)，抽中一個就不要再次抽中同樣的號碼，就可以了。

可以借助隨機函數(shù)，比如說你一共有100個人，你可以rand%100，這樣可以認為100個人是等概率的。