Private Sub cmdhfjf_Click()
hffs = hffs + jfl
Dim a, b
a = hffs Mod 10
b = hffs \ 10
If a = 0 Then Call xsoh
If a = 1 Then Call xs1h
If a = 2 Then Call xs2h
If a = 3 Then Call xs3h
If a = 4 Then Call xs4h
If a = 5 Then Call xs5h
If a = 6 Then Call xs6h
If a = 7 Then Call xs7h
If a = 8 Then Call xs8h
If a = 9 Then Call xs9h
If b = 0 Then Call xs0sh
If b = 1 Then Call xs0sh
If b = 2 Then Call xs0sh
If b = 3 Then Call xs0sh
If b = 4 Then Call xs0sh
If b = 5 Then Call xs0sh
If b = 6 Then Call xs0sh
If b = 7 Then Call xs0sh
If b = 8 Then Call xs0sh
If b = 9 Then Call xs0sh
If hffs >= 11 Then
MsgBox ("红方胜")
End If
End Sub