[例题] 电动扑克比大小问题

 

原题目：

我想仿制一个像游戏机室里的扑克牌机一样游戏
游戏时每次发5张牌,(共有54张牌)有两张王,大王和小王可以当作52张牌中任意的一张牌,这五张牌的中奖方式和大小顺序如下:
五个相同的(比如:五个A)
同花顺(比如:A.K.Q.J.10,五张牌的花色是一样的)
四个相同的,带一张其他的牌(比如:四个A带一个2)
三个相同的,带一对其他的牌(比如:三个A带一对2)
同花(比如:五张牌的花色都是一样的)
顺子(比如:A.K.Q.J.10,五张牌的花色是不相同的)
三个相同的,带两张其他的牌(比如:三个A带   2   .3)
两对相同的带一张其他的牌(比如:一对A和一对K带一张2)
一对相同的带四张其他的牌(比如:一对A和3,4,5,6) 

=============cike   例题==========
例题名字：牌
窗体2个     form1   form2
form1   包括   1个text   3个list   3个command
form2   包括   1个command   1个label   1个list
例题执行步骤：把各控件放入各自窗体内   复制各自窗体代码   运行既可
================================
form1   代码：

VBScript code

   
   

    
    
    
    Private
    
     
    
    Sub
    
     Command1_Click()

    
    Call
    
     发牌

    
    End Sub
    
    


    
    Private
    
     
    
    Sub
    
     Command2_Click()

    
    Call
    
     王的分配    
    
    '
    
    先把王变成可分辨的牌
    
    

    
    List2.Clear      
    
    '
    
    用这个存储花色
    
    

    
    List3.Clear      
    
    '
    
    用这个存储牌码 把花色和牌码分开处理比较方便后来的判断
    
    

    
    a 
    
    =
    
     
    
    Split
    
    (Text1.Text, 
    
    "
    
    ,
    
    "
    
    )    
    
    '
    
    分割成5 段
    
    
'
    
     下面这个的判断认识吧！若5个相等则 一等奖
    
    

    
    If
    
     a(
    
    1
    
    ) 
    
    =
    
     a(
    
    2
    
    ) 
    
    And
    
     a(
    
    2
    
    ) 
    
    =
    
     a(
    
    3
    
    ) 
    
    And
    
     a(
    
    3
    
    ) 
    
    =
    
     a(
    
    4
    
    ) 
    
    And
    
     a(
    
    4
    
    ) 
    
    =
    
     a(
    
    0
    
    ) 
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    抽取的5张牌相等 恭喜您中了一等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    


    
    For
    
     i 
    
    =
    
     
    
    0
    
     
    
    To
    
     
    
    4
    
                        
    
    '
    
    这个循环的作用是把5张牌的花色和号码区分出来
    
    

    
    List2.AddItem 
    
    Left
    
    (a(i), 
    
    2
    
    )
List3.AddItem 
    
    Right
    
    (a(i), 
    
    Len
    
    (a(i)) 
    
    -
    
     
    
    2
    
    )

    
    If
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    J
    
    "
    
     
    
    Then
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    11
    
    "
    
        
    
    '
    
    把J 他们全部还原成数字
    
    

    
    If
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    Q
    
    "
    
     
    
    Then
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    12
    
    "
    
    

    
    If
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    K
    
    "
    
     
    
    Then
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    13
    
    "
    
    

    
    If
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    A
    
    "
    
     
    
    Then
    
     List3.List(i) 
    
    =
    
     
    
    "
    
    14
    
    "
    
        
    
    '
    
    注意A 要当14 处理 因为它最大
    
    

    
    Next
    
     i


    
    ReDim
    
     花色次数(
    
    4
    
    ) 
    
    As
    
     
    
    Integer
    
         
    
    '
    
    用这个打算记录同样的花色出现的次数
    
    

    
    ReDim
    
     牌号次数(
    
    4
    
    ) 
    
    As
    
     
    
    Integer
    
         
    
    '
    
    用这个打算记录同样牌出现的次数
    
    

    
    

    
    For
    
     i 
    
    =
    
     
    
    0
    
     
    
    To
    
     
    
    4
    
                       
    
    '
    
    这个循环获得它们各自出现的次数 也许有点复杂请仔细研究
    
    

    
        
    
    For
    
     j 
    
    =
    
     
    
    4
    
     
    
    To
    
     i Step 
    
    -
    
    1
    
    
        
    
    If
    
     List2.List(i) 
    
    =
    
     List2.List(j) 
    
    Then
    
     花色次数(i) 
    
    =
    
     花色次数(i) 
    
    +
    
     
    
    1
    
    
        
    
    If
    
     List3.List(i) 
    
    =
    
     List3.List(j) 
    
    Then
    
     牌号次数(i) 
    
    =
    
     牌号次数(i) 
    
    +
    
     
    
    1
    
    
    
    
    Next
    
     j

    
    Next
    
     i


    
    Dim
    
     b 
    
    As
    
     
    
    String
    
          
    
    '
    
    用来存储出现的次数 用字符辨别比较方便
    
    

    
    Dim
    
     c 
    
    As
    
     
    
    String
    
    
b 
    
    =
    
     
    
    ""
    
                   
    
    '
    
    给初值
    
    

    
    c 
    
    =
    
     
    
    ""
    
    


    
    For
    
     i 
    
    =
    
     
    
    0
    
     
    
    To
    
     
    
    4
    
               
    
    '
    
    数组元素化为字串
    
    

    
    If
    
     花色次数(i) 
    
    <>
    
     
    
    1
    
     
    
    Then
    
    
b 
    
    =
    
     b 
    
    &
    
     花色次数(i)

    
    End
    
     
    
    If
    
    


    
    If
    
     牌号次数(i) 
    
    <>
    
     
    
    1
    
     
    
    Then
    
     
    
    '
    
    数组元素化为字串
    
    

    
    c 
    
    =
    
     c 
    
    &
    
     牌号次数(i)

    
    End
    
     
    
    If
    
    

    
    Next
    
     i


    
    Dim
    
     min 
    
    As
    
     
    
    Integer
    
       
    
    '
    
    用来记录5张牌中最小的数
    
    

    
    Dim
    
     max 
    
    As
    
     
    
    Integer
    
       
    
    '
    
    用来记录5张牌中最大的数
    
    

    
    min 
    
    =
    
     List3.List(
    
    0
    
    )   
    
    '
    
     下面是具体获得他们的方法
    
    

    
    max 
    
    =
    
     List3.List(
    
    0
    
    )

    
    For
    
     i 
    
    =
    
     
    
    1
    
     
    
    To
    
     
    
    4
    
    

    
    If
    
     max 
    
    <
    
     List3.List(i) 
    
    Then
    
    
    max 
    
    =
    
     List3.List(i)

    
    Else
    
    
    max 
    
    =
    
     max

    
    End
    
     
    
    If
    
    

    
    If
    
     min 
    
    >
    
     List3.List(i) 
    
    Then
    
    
    min 
    
    =
    
     List3.List(i)

    
    Else
    
    
    min 
    
    =
    
     min

    
    End
    
     
    
    If
    
    

    
    Next
    
     i


    
    '
    
    有了花色的出现的次数 最大 最小值 等信息后就可以判断出所有的条件了
    
    
'
    
    应该从高往下一个一个判断 记得有返回就要退出了 别让它还继续做下面奖项的判断
    
    
'
    
    最后一句代码的作用是 提示都没中奖 因为若中奖了已经退出该过程了！
    
    

    
    

    
    If
    
     
    
    InStr
    
    (b, 
    
    "
    
    5
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    And
    
     c 
    
    =
    
     
    
    ""
    
     
    
    And
    
     max 
    
    -
    
     min 
    
    =
    
     
    
    4
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    同花顺，小子行啊，二等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    If
    
     
    
    InStr
    
    (c, 
    
    "
    
    4
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    有4张相同，恭喜您中了三等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    If
    
     
    
    InStr
    
    (c, 
    
    "
    
    3
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    And
    
     
    
    InStr
    
    (c, 
    
    "
    
    2
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    有一对+三条 恭喜您中了四等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    If
    
     
    
    InStr
    
    (b, 
    
    "
    
    5
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    5个花色一样 恭喜您获得五等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    If
    
     c 
    
    =
    
     
    
    ""
    
     
    
    And
    
     max 
    
    -
    
     min 
    
    =
    
     
    
    4
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    顺子 恭喜您获得六等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    If
    
     
    
    InStr
    
    (c, 
    
    "
    
    3
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    有个三条 恭喜您获得七等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    If
    
     c 
    
    =
    
     
    
    "
    
    22
    
    "
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    有2对 恭喜您获得八等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    If
    
     
    
    InStr
    
    (c, 
    
    "
    
    2
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    有一对 恭喜您获得九等奖
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    

    
    MsgBox
    
     
    
    "
    
    sorry 没有中奖 请再接再厉 
    
    "
    
    


    
    End Sub
    
    



    
    Private
    
     
    
    Sub
    
     Command3_Click()

    
    Call
    
     洗牌

    
    End Sub
    
    


    
    Private
    
     
    
    Sub
    
     Form_Load() 
    
    '
    
     载入的一些设置
    
    

    
    Command3.Caption 
    
    =
    
     
    
    "
    
    洗牌
    
    "
    
    
Command1.Caption 
    
    =
    
     
    
    "
    
    发牌
    
    "
    
    
Command2.Caption 
    
    =
    
     
    
    "
    
    中奖情况
    
    "
    
    

    
    Call
    
     洗牌


    
    End Sub
    
    


    
    Private
    
     
    
    Sub
    
     洗牌()  
    
    '
    
    这个过程是重新把54张牌写到list中
    
    

    
    List1.Clear
Text1 
    
    =
    
     
    
    ""
    
    

    
    For
    
     i 
    
    =
    
     
    
    1
    
     
    
    To
    
     
    
    13
    
    
    
    
    For
    
     j 
    
    =
    
     
    
    1
    
     
    
    To
    
     
    
    4
    
    
        
    
    If
    
     i 
    
    =
    
     
    
    1
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    A
    
    "
    
    
        
    
    ElseIf
    
     i 
    
    =
    
     
    
    "
    
    11
    
    "
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    J
    
    "
    
    
        
    
    ElseIf
    
     i 
    
    =
    
     
    
    "
    
    12
    
    "
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    Q
    
    "
    
    
        
    
    ElseIf
    
     i 
    
    =
    
     
    
    13
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    K
    
    "
    
    
        
    
    Else
    
    
            a 
    
    =
    
     i
        
    
    End
    
     
    
    If
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    1
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    铁头
    
    "
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    2
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    红心
    
    "
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    3
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    梅花
    
    "
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    4
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    方块
    
    "
    
    
        List1.AddItem b 
    
    &
    
     a
    
    
    Next
    
     j

    
    Next
    
     i
List1.AddItem 
    
    "
    
    大王
    
    "
    
    
List1.AddItem 
    
    "
    
    小王
    
    "
    
    

    
    End Sub
    
    


    
    Private
    
     
    
    Sub
    
     发牌()  
    
    '
    
    这个过程负责把牌发到 text中 [随机的] 当然同时减掉list中的牌
    
    

    
    If
    
     List1.ListCount 
    
    <
    
     
    
    9
    
     
    
    Then
    
     
    
    MsgBox
    
     
    
    "
    
    牌不够发了：需要重新洗牌
    
    "
    
    : 
    
    Exit
    
     
    
    Sub
    
    
Text1 
    
    =
    
     
    
    ""
    
    

    
    Randomize
    
    

    
    For
    
     i 
    
    =
    
     
    
    1
    
     
    
    To
    
     
    
    5
    
    
a 
    
    =
    
     
    
    Int
    
    (
    
    Rnd
    
     
    
    *
    
     List1.ListCount)
Text1.Text 
    
    =
    
     Text1.Text 
    
    &
    
     List1.List(a) 
    
    &
    
     
    
    "
    
    ,
    
    "
    
    
List1.RemoveItem a

    
    Next
    
     i

    
    End Sub
    
    

    
    Private
    
     
    
    Sub
    
     王的分配()  
    
    '
    
    这个过程处理当遇到王时 如何替换要替换的牌 我用了另一个窗体来处理这个
    
    

    
    If
    
     
    
    InStr
    
    (Text1, 
    
    "
    
    大王
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    Or
    
     
    
    InStr
    
    (Text1, 
    
    "
    
    小王
    
    "
    
    ) 
    
    >
    
     
    
    0
    
     
    
    Then
    
    
Form2.Show 
    
    1
    
    

    
    End
    
     
    
    If
    
    
   

    
    End Sub
   
   

 

下面是form2   的代码：

VBScript code

   
   

    
    
    
    Private
    
     
    
    Sub
    
     Command1_Click()

    
    If
    
     List1.ListIndex 
    
    <>
    
     
    
    -
    
    1
    
     
    
    Then
    
       
    
    '
    
    如果选中状态 就执行
    
    

    
    Form1.Text1 
    
    =
    
     
    
    Replace
    
    (Form1.Text1, 
    
    "
    
    大王
    
    "
    
    , List1.List(List1.ListIndex))  
    
    '
    
    替换函数替换掉
    
    

    
    Form1.Text1 
    
    =
    
     
    
    Replace
    
    (Form1.Text1, 
    
    "
    
    小王
    
    "
    
    , List1.List(List1.ListIndex))
Me.Hide

    
    End
    
     
    
    If
    
    

    
    End Sub
    
    


    
    Private
    
     
    
    Sub
    
     Form_Load()

Command1.Caption 
    
    =
    
     
    
    "
    
    确定
    
    "
    
    
Label1.Caption 
    
    =
    
     
    
    "
    
    请选择要变换的牌
    
    "
    
    

List1.Clear
Text1 
    
    =
    
     
    
    ""
    
    

    
    For
    
     i 
    
    =
    
     
    
    1
    
     
    
    To
    
     
    
    13
    
               
    
    '
    
    这里把牌写到list 不用装入王了
    
    

    
        
    
    For
    
     j 
    
    =
    
     
    
    1
    
     
    
    To
    
     
    
    4
    
    
        
    
    If
    
     i 
    
    =
    
     
    
    1
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    A
    
    "
    
    
        
    
    ElseIf
    
     i 
    
    =
    
     
    
    "
    
    11
    
    "
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    J
    
    "
    
    
        
    
    ElseIf
    
     i 
    
    =
    
     
    
    "
    
    12
    
    "
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    Q
    
    "
    
    
        
    
    ElseIf
    
     i 
    
    =
    
     
    
    13
    
     
    
    Then
    
    
            a 
    
    =
    
     
    
    "
    
    K
    
    "
    
    
        
    
    Else
    
    
            a 
    
    =
    
     i
        
    
    End
    
     
    
    If
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    1
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    铁头
    
    "
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    2
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    红心
    
    "
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    3
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    梅花
    
    "
    
    
        
    
    If
    
     j 
    
    =
    
     
    
    4
    
     
    
    Then
    
     b 
    
    =
    
     
    
    "
    
    方块
    
    "
    
    
        List1.AddItem b 
    
    &
    
     a
    
    
    Next
    
     j

    
    Next
    
     i

    
    End Sub