Imports System
Imports System.Text
Public Class ConvertSpecificRowOfMatrixToString_VB
Public Shared Function ConvertRowOfMatrixToString(ByVal matrix As Integer(,), ByVal row As Integer) As String
Dim cols As Integer = matrix.GetLength(1)
Dim sb As StringBuilder = New StringBuilder()
For j As Integer = 0 To cols - 1
sb.Append(matrix(row, j))
sb.Append(" ")
Next
Return sb.ToString().Trim()
End Function
Public Shared Sub Main(ByVal args As String())
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 row As Integer = 3
Dim str As String = ConvertRowOfMatrixToString(matrix, row)
Console.WriteLine(str)
End Sub
End Class
' run:
'
' 19 49 6 1 9 8
'
