VB-骰子隨機下注問題 我下注程式碼打不出來(2)

Question

我們只會if 跟then的語法 我們已經寫出 擲骰子跟大小的判別
接下來就是壓賭金 會增加錢跟賠錢的問題
只是我們寫出小的程式
寫出大的賠錢程式 就會衝突
請高手救救我


If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) < 11 Then
Label4.Text = "小"
End If
If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) > 10 Then
Label4.Text = "大"
End If
If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) < 11 Then
Label8.Text = Int(Int(TextBox2.Text) + Int(Label8.Text))
End If

If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) < 11 Then
Label8.Text = Int(Int(Label8.Text) - Int(TextBox1.Text))
End If

If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) > 10 Then
Label8.Text = Int(Int(TextBox1.Text) + Int(Label8.Text))
End If

If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) > 10 Then
Label8.Text = Int(Int(Label8.Text) - Int(TextBox2.Text))
End If

check()
謝謝

Answer 1

你的程式有許多可以改良的地方
1. 同樣都是 ....<11 (或 .... > 10) 的情形 應該放在一起
2. 如果不是 < 11 就一定是 > 10 所以用 else 就好了
3. int +- int 一定是 int 所以不必再加 int (...)
4. Label8 的值是加上贏的賭注 減去輸的賭注 所以可以 (應該) 合併計算
最後 從你的程式看不出有什麼錯
你也沒說 衝突是什麼 恐怕沒辦法幫你改了
對了 check( ) 是什麼 會不會造成錯誤?
If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) < 11 Then
Label4.Text = "小"
Label8.Text = Int(TextBox2.Text) + Int(Label8.Text)
' Label8.Text = Int(Int(TextBox2.Text) + Int(Label8.Text))
Label8.Text = Int(Int(Label8.Text) - Int(TextBox1.Text))
' End If
' If (Int(Label1.Text) + Int(Label2.Text) + Int(Label3.Text)) > 10 Then
else
Label4.Text = "大"
' Label8.Text = Int(Int(TextBox1.Text) + Int(Label8.Text))
' Label8.Text = Int(Int(Label8.Text) - Int(TextBox2.Text))
Label8.Text = Int(Label8.Text) + Int(TextBox1.Text) - Int(TextBox2.Text)
End If

check()
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.

Answer 2

您期待已久的 8891遊樂網 熱烈開幕囉!

8891遊戲館以優質的服務領先業界

多位美女客服24小時即時線上為您服務!

8891休閒網有優於市面所有運動下注遊戲的 賠 ~ 率

以及免下載專業美女 百家樂、21點、骰寶、各國賓果、餐廳賓果、彩球遊戲

另有數百位真人視訊聊天辣妹與您進行互動聊天還有"精彩"電影喔!

心動了嗎!! 快來體驗市面上最完質最高品質的服務

現在有開放免費試玩喔! 官網 : 8891.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

說真的，這很爆笑哩...會使用 Int(Label1.Text) + Int(Label2.Text) 簡單的加減，卻不會寫 壓賭金 會增加錢跟賠錢的問題
這是什麼道理咧？
用數學角度來看，會寫 1 + 1 = 2 卻不會寫 1 - 1 = 0 ？會寫 1 + 1 卻不會回答 2 + 2 ？
看來版主腦袋不動一下，真的會生鏽。而且同樣的問題問了三次，上次就給過你提示了。
電腦不會去思考，只會執行而已。
所以，你寫程式時，就得一步一步幫他先想好。

2007-01-16 10:00:08 補充：
更正，是出現了四次...
另外在知識＋內搜尋【豹子 vb】也出現很五次（其中三次是你的問題）
http://tw.knowledge.yahoo.com/question/question?qid=1205080904772
http://tw.knowledge.yahoo.com/question/question?qid=1306043015593
搜尋【骰子 vb】也出現了 22 次，其中四次是你的發問。
我想，使用搜尋應該是沒什麼難度吧？