Joe的學習筆記

撲克牌是一種流行的遊戲排具，其中大老二也深受許多國人喜愛。在打牌之前，我們會先洗牌，然後將牌依序發給玩家。這個動作是否能用Visual Basic執行呢？

Step 1：產生一副牌

 '產生一副牌
        Dim poker As String() = New String(51) {}
        For i As Integer = 1 To poker.Length
            poker(i - 1) = i.ToString()
        Next

Step 2：洗牌

'洗牌
        Dim t As Integer = 0
        Dim tmp As String = ""
        Dim r As New Random
        For i As Integer = 0 To poker.Length - 1
            t = r.[Next](0, 52)
            tmp = poker(i)
            poker(i) = poker(t)
            poker(t) = tmp
        Next

Step 3：發牌

'發牌
        Dim p1 As String = "", p2 As String = "", p3 As String = "", p4 As String = ""
        For i As Integer = 0 To poker.Length - 1
            Select Case i Mod 4
                Case 0
                    p1 += "<img src='poker_img/" + poker(i) + ".gif' />"
                    Exit Select
                Case 1
                    p2 += "<img src='poker_img/" + poker(i) + ".gif' />"
                    Exit Select
                Case 2
                    p3 += "<img src='poker_img/" + poker(i) + ".gif' />"
                    Exit Select
                Case 3
                    p4 += "<img src='poker_img/" + poker(i) + ".gif' />"
                    Exit Select
            End Select
        Next
        Response.Write("玩家1:" + p1 + "<br>玩家2:" + p2 + "<br>玩家3:" + p3 + "<br>玩家4:" + p4)

Step 4：執行畫面