作者bluezero0000 (神无月-影)
看板Visual_Basic
标题[VB6]请问该怎麽判别同花顺跟同花
时间Sun Apr 15 03:54:32 2007
以下是我的程式
除了同花顺跟同花之外
其他的判别都ＯＫ了
请问同花顺跟同花的判别应该怎麽写
谢谢
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)