Imports System
Imports System.Text
Class Program
Public Shared Sub Main()
Dim matrix As Integer(,) = {
{4, 7, 9, 18, 29, 0},
{1, 9, 18, 99, 4, 3},
{9, 17, 89, 2, 7, 5},
{19, 49, 6, 1, 9, 8},
{29, 4, 7, 9, 18, 6}}
Dim result As String = MatrixToString(matrix)
Console.WriteLine(result)
End Sub
Private Shared Function MatrixToString(ByVal matrix As Integer(,)) As String
Dim sb As StringBuilder = New StringBuilder()
For i As Integer = 0 To matrix.GetLength(0) - 1
For j As Integer = 0 To matrix.GetLength(1) - 1
sb.Append(matrix(i, j))
If j < matrix.GetLength(1) - 1 Then sb.Append(" ")
Next
If i < matrix.GetLength(0) - 1 Then sb.AppendLine()
Next
Return sb.ToString()
End Function
End Class
' run:
'
' 4 7 9 18 29 0
' 1 9 18 99 4 3
' 9 17 89 2 7 5
' 19 49 6 1 9 8
' 29 4 7 9 18 6
'
