VBA 扑克牌

使用VBA扑克牌进行编程可以实现一些有趣的功能。下面我将介绍一些例子，展示如何使用VBA编写扑克牌相关的代码。

vba
Sub ShuffleAndDeal()
    Dim suits As Variant
    Dim ranks As Variant
    Dim deck As Variant
    Dim player1 As Variant
    Dim player2 As Variant
    Dim i As Integer
    Dim j As Integer
    Dim temp As Variant
    
    ' 定义花色和点数数组
    suits = Array("红桃", "方块", "黑桃", "梅花")
    ranks = Array("A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K")
    
    ' 生成一副扑克牌
    ReDim deck(1 To 52)
    For i = 1 To 4
        For j = 1 To 13
            deck((i - 1) * 13 + j) = suits(i - 1) & ranks(j - 1)
        Next j
    Next i
    
    ' 洗牌
    For i = 1 To 52
        j = Int((52 - i + 1) * Rnd + i)
        temp = deck(j)
        deck(j) = deck(i)
        deck(i) = temp
    Next i
    
    ' 发牌
    ReDim player1(1 To 5)
    ReDim player2(1 To 5)
    For i = 1 To 5
        player1(i) = deck(i)
        player2(i) = deck(i + 5)
    Next i
    
    ' 输出结果
    For i = 1 To 5
        Debug.Print "玩家1的牌：" & player1(i)
        Debug.Print "玩家2的牌：" & player2(i)
    Next i
End Sub