ȫֱɹûֱ
Public NowValue As Integer   Ŀǰʾֵ
Public SelectValue As Integer   ûѡֵС
Public WinGate As Single   ûӮļ
Public NewValue As Integer   ϵͳֵ

Public Function Compare()
ֽΪA,2,3,10,J,Q,K
ӦֵΪ14,2,3,11,12,13

ʼ
Randomize
If Rnd<=WinRate Then
    ʾûӮ
    if SelectValue=1 Then
       ûѡСҪһNowValueСֵ
       NewValue=Int((NowValue-1)*Rnd)+2
       If NewValue=NowValue Then
         NewValue=NewValue-1
       EndIf
    Else
       ûѡҪһNowValueֵ
       NewValue=Int((13-NowValue)*Rnd)+NowValue+1
    EndIf
    ֵ1ʾûӮ
Compare=1

Else
    ʾû
    If SelectValue=1 Then
        ûѡСҪһNowValueֵ
        NewValue=Int((13-NowValue)*Rnd)+NowValue+1
    Else
       ûѡҪһNowValueСֵ
       NewValue=Int((NowValue-1)*Rnd)+2
    EndIf
    ֵ2ʾû
    Compare=2
EndIf
End Function
