請問該怎麼判別同花順跟同花

看板Visual_Basic作者bluezero0000 (神無月-影)時間19年前 (2007/04/15 03:54)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

以下是我的程式除了同花順跟同花之外其他的判別都ＯＫ了請問同花順跟同花的判別應該怎麼寫謝謝 Dim card As String Dim num As Integer Private Sub Command1_Click() Dim cbox(13), two, three, four As Integer For n = 0 To 4 give_card cbox(num - 1) = cbox(num - 1) + 1 Image1(n).Picture = LoadPicture(App.Path & "\Picture\" & card & ".jpg") Next n For n = 0 To 12 If cbox(n) = 2 Then two = two + 1 ElseIf cbox(n) = 3 Then three = 1 ElseIf cbox(n) = 4 Then four = 1 ElseIf cbox(n) = 5 Then MsgBox "詐賭" End If Next n If four = 1 Then MsgBox "鐵支" ElseIf three = 1 And two = 1 Then MsgBox "葫蘆" ElseIf three = 1 Then MsgBox "三條" ElseIf two = 2 Then MsgBox "二撇" ElseIf two = 1 Then MsgBox "一對" Else MsgBox "無賴" End If End Sub Sub give_card() Randomize Timer 卡片的數字 = Int(2 * Rnd) + 1 花色調配 = Int(3 * Rnd + 1) Select Case 花色調配 Case 1 卡片的花色 = "h" Case 2 卡片的花色 = "c" Case 3 卡片的花色 = "s" Case 4 卡片的花色 = "d" End Select num = 卡片的數字 card = 卡片的花色 & 卡片的數字 End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.225.207.13 ※ 編輯: bluezero0000 來自: 61.225.207.13 (04/15 10:52)