Imports System
Imports System.Text
Public Class ColumnToStringConverter
Public Shared Function ConvertColumnToString(ByVal matrix As Integer(,), ByVal col As Integer) As String
Dim rows As Integer = matrix.GetLength(0)
Dim sb As StringBuilder = New StringBuilder()
For i As Integer = 0 To rows - 1
sb.Append(matrix(i, col))
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 col As Integer = 3
Dim str As String = ConvertColumnToString(matrix, col)
Console.WriteLine(str)
End Sub
End Class
' run:
'
' 18 99 2 1 9
'
