漫遊於歷史與現代之間

以交互而非排序的方式呈現52張撲克牌，所以沒有辦法直接進行比大小。另外，本程式可呈現花色、A、J、Q、K。

Module Module1
    Sub Main()
        Dim v As Integer
        Dim m, f As String
        Randomize()
        v = (Rnd() * 51) + 1
        f = (v Mod 4) + 1
        f = Choose(f, Chr(5), Chr(6), Chr(3), Chr(4))
        m = (v Mod 13) + 1
        m = Choose(m, " k", "A", 2, 3, 4, 5, 6, 7, 8, 9, 10, "J", "Q")
        Console.WriteLine(v & "=" & f & m)
        Console.ReadKey()
    End Sub
End Module