-1

だから私はビジュアルベーシック2010でカードゲームのWARを作ろうとしています。次のコードがあり、次に何をする必要があるかはわかっていますが、次のステップに進むことができません.

Public Class form1
'throws an error unless this is the first class in the file

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'click the button currently labled "loop"
        Dim Cards() As String = {"Ace", "2", "3", "4", "5", "6", "7", "8", "9", "10", "Jack"} 'spades,hearts/diamonds,clubs
        Dim Values() As String = {"11", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11"} 'faces is a term meaning a card that depicts a person
        Dim suits() As String = {"H", "D", "C", "S"}
        Dim p1deck()() As String '
        'first (0) is the number of the array
        'second(0) is the string
        p1deck(0)(0) = "Ace"
        p1deck(0)(1) = "11"
        p1deck(0)(2) = "Hearts"

        TextBox1.Text = p1deck(0)(0) & " of " & p1deck(0)(2)

        'Cards.ToList().  add/removeAt
    End Sub
End Class
4

1 に答える 1

0

p1deck アレイを初期化していません。

次のようなことを試してください:

Dim p1deck(2, 3) As String 

p1deck(0, 0) = "Ace"
p1deck(0, 1) = "11"
p1deck(0, 2) = "Hearts"

TextBox1.Text = p1deck(0, 0) & " of " & p1deck(0, 2)
于 2012-05-14T02:52:45.280 に答える