Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Arrays 如何在vb.net控制台中打印二维阵列网格_Arrays_Vb.net_Multidimensional Array - Fatal编程技术网

Arrays 如何在vb.net控制台中打印二维阵列网格

Arrays 如何在vb.net控制台中打印二维阵列网格,arrays,vb.net,multidimensional-array,Arrays,Vb.net,Multidimensional Array,我如何打印出一个二维数组,它是一个4乘4的网格,第一行包含值1,2和3,第一列包含值1,2,3?到目前为止,我已经制作了2d阵列,但我不确定如何将其打印到控制台 以下是我迄今为止完成的代码: Module Module1 Dim OXGrid(3, 3) As String Sub Main() Initialise() Console.Read() End Sub Sub Initialise()

我如何打印出一个二维数组,它是一个4乘4的网格,第一行包含值1,2和3,第一列包含值1,2,3?到目前为止,我已经制作了2d阵列,但我不确定如何将其打印到控制台

以下是我迄今为止完成的代码:

    Module Module1

    Dim OXGrid(3, 3) As String

    Sub Main()
        Initialise()
        Console.Read()

    End Sub

    Sub Initialise()

        Dim col, row As Integer

        'label the columns
        Console.WriteLine(OXGrid(0, 0) = "")

        For col = 1 To 3
            Console.WriteLine(OXGrid(0, col) = "" & col & "")
        Next
        'label the rows
        For row = 1 To 3
            Console.WriteLine(OXGrid(row, 0) = row & "")
        Next
        'initialise the grid 
        For row = 1 To 3
            For col = 1 To 3
                Console.WriteLine(OXGrid(row, col) = "")

            Next

        Next

    End Sub
End Module