\(kindList = {"黑桃", "红桃", "梅花", "方块"}; kindList\)

\(numberList = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"}; 
    numberList\)

cardList = {};
For[i = 0, 
      i ≤ 
        51, i++, {
cardNum = 
          Mod[i, 13] + 1, 
kindNum = 
          Floor[i/13] + 1, 
pokerContent = 
          kindList[[kindNum]] <> 
            numberList[[cardNum]], 
AppendTo[cardList, 
          pokerContent]}
]; cardList

RandomRelist[x_List] := 
      Block[{n = x, p}, 
        Do[p = Random[Integer, {1, i}]; 
          n[[{p, i}]] = n[[{i, p}]], {i, Length[x]}]; n]

randomCard = RandomRelist[cardList]; randomCard

players = Partition[randomCard, 13]; players