Two Dimension Array: Pass into a Function
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
' define an array to hold friends in...
Dim friends(2, 2) As String
' set the data...
friends(0, PersonDataIndex.Name) = "Name 1"
friends(0, PersonDataIndex.Email) = "Email 1"
friends(0, PersonDataIndex.Sex) = "Sex 1"
friends(1, PersonDataIndex.Name) = "Name 2"
friends(1, PersonDataIndex.Email) = "Email 2"
friends(1, PersonDataIndex.Sex) = "Ses 2"
friends(2, PersonDataIndex.Name) = "Name 3"
friends(2, PersonDataIndex.Email) = "Email 3"
friends(2, PersonDataIndex.Sex) = "Sex 3"
AddFriendsToList(friends)
End Sub
Shared Sub AddFriendsToList(ByVal friends(,) As String)
Dim row As Integer
For row = 0 To UBound(friends, 1)
Dim buf As String = ""
Dim column As Integer
For column = 0 To UBound(friends, 2)
buf &= friends(row, column) & ", "
Next
Console.WriteLine(buf)
Next
End Sub
End Class
Public Enum PersonDataIndex As Integer
Name = 0
Email = 1
Sex = 2
End Enum
Related examples in the same category
