用vb写楼主

我试着做了一个类似的程序，我已经做了判断牌是否符合规则的部分。方法如下，仅供参考。

先自己做一个“品牌”控件，这个控件有一个属性“值”。比如A卡的值是1，J是11，Q是12，K是13，小王是14，王达是15...

第二，制作多个字符数组。数组的每一个元素玩牌都是合法的，也就是不在数组里的玩牌都是非法的。例如，一个单卡数组有15个元素，它们是每个单卡的值。

第三，在玩家选择一张牌(即点击一张牌)的情况下，扫描所有选择的牌，以获得选择的牌的值的顺序。

4.将获得的值字符串与步骤2中创建的数组的所有元素进行比较。如果相同，说明选中的牌符合规则。

示例:

对于i = 1到13

DuiZi(I)= Trim(Hex(I))& amp；Trim(Hex(i))'子卡的所有可能性，二王属于弹卡，不属于对子。

接下来我

至于我这里为什么要把数字转换成十六进制，是因为我选卡Q的时候，比如它的值是12，和我选A和2两张卡的时候生成的选卡字符串是一样的，会造成混淆。换算成十六进制后，Q的值是十六进制数“C”，而A和2两张卡的值的字符形式仍然是“65438”

判断功能:

public Function is right(ByVal selected card As String)为布尔值

IsRight = False

对于i = 1到13

如果SelectedCard =DuiZi(i ),则

IsRight = True

Card_Style = CS_DUIZI

退出功能

如果…就会结束

接下来我

结束功能

当然，这只是判断功能的一部分。你可以把所有的判断写在一个函数里，这样当你的函数返回true的时候，你不仅会知道你选择的卡符合要求，还会知道它是一个什么样的卡。