Mega Code Archive
Store data in a multivalue array
<![CDATA[
Public Class Tester
Public Shared Sub Main
Dim multiValue(2)() As String
Dim counter1 As Integer
Dim counter2 As Integer
' ----- Build the multivalue array.
multiValue(0) = New String() {"alpha", "beta", "gamma"}
multiValue(1) = New String() {"A", "B", "C", "D", "E", "F", "G", "H"}
multiValue(2) = New String() {"Yes", "No"}
' ----- Format the array for display.
For counter1 = 0 To multiValue.Length - 1
For counter2 = 0 To multiValue(counter1).Length - 1
Console.WriteLine(multiValue(counter1)(counter2))
Next counter2
Console.WriteLine("")
Next counter1
End Sub
End Class
alpha
beta
gamma
A
B
C
D
E
F
G
H
Yes
No
]]>