資訊科作業Project1 Micorosof(BV)拉霸

Question

請問各位資訊科的學長們學姊們
拉霸的程式碼要怎樣打
老師規定說拉霸一次要出現3張圖片
但是我每次都只出現一遍
Private Sub Command1_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If Label1 = 7 Then
Picture1.Visible = True
ElseIf Label2 = 7 Then
Picture2.Visible = True
ElseIf Label3 = 7 Then
Picture3.Visible = True
End If
End Sub
拜託會的人幫忙了

一個7出現一張圖片

兩個7出現兩張圖片

三個7出現三張圖片

Answer 1

以下是我想的程式碼，不知對你有沒有幫助
以下
Private Sub Command1_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If Label1 = 7 Then
Picture1.Visible = True
End If
If Label2 = 7 Then
Picture2.Visible = True
End If
If Label3 = 7 Then
Picture3.Visible = True
End If
End Sub

Answer 2

推薦您前往黃金俱樂部遊戲網！

提供您詳盡的說明

您可以先進行遊戲下載：
網址：http://99點5888th點net

誠心服務！會員溫馨！永久服務！
第一：全程直播遊戲的公平與公正性【亞洲唯一直屬會員代理】
第二：點數儲值和託售皆在十分鐘之內完成【全台娛樂城速度最快24小時不分周末】
第三：二十四小時專業客服務線上服務全年無休【大大小小問題都可以馬上做詳細解答喔】
電子機台．真人遊戲和你一同玩樂
麻將 百家樂 5PK 德州撲克 水果盤 賓果
輪盤 21點 10點半 骰盅 牌九 鬥地主 13支

全年網站優惠活動不間斷！
快去註冊會員！免費：http://99點5888th點net

Answer 3

線上遊戲天堂 http://ts999.tw

運動遊戲
實況棒球、籃球、足球、冰球、網球等多種經典賽事

即時遊戲
百家、21點、牌九、二八杠、骰寶、龍虎、輪盤、牛牛、番攤

對戰遊戲
麻將、德州撲克、二八杠、吹牛、鬥地主、13支、暗棋、接龍

電子遊戲
5PK、7PK、水果盤遊戲、5輪遊戲、極限飆速、趙雲救主、西遊戲、金瓶梅、中國美人、英雄

彩球遊戲
大樂透、六合、時時彩、今彩539、3星彩、4星彩

最新優惠活動
1. 運動遊戲連過5關,彩今再加碼10%
2. 新會員加入,有機會獲得500元禮券與精美讀卡機
3. 遊戲積分可兌換汽機車、3C、精品等多種大獎

****體驗試玩喔~!
線上遊戲天堂 http://ts999.tw

Answer 4

台灣首家合法娛樂城開幕囉!

體育博彩、真人對戰、現場遊戲、彩球

投注高賠率，歡迎您來體驗!

官方網站 aa777.net

Answer 5

不知道是不是看錯，怎麼感覺二個解答是一樣的東西....也許在下眼拙，看不出什不同，莫怪莫怪~

Answer 6

Private Sub Command1_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
'這裡改一下
'-----------------------------------------------------
If Label1 = 7 Then Picture1.Visible = True
If Label2 = 7 Then Picture2.Visible = True
If Label3 = 7 Then Picture3.Visible = True
'------------------------------------------------------
End Sub