Imports System.Collections
public class Test
public Shared Sub Main
Dim i As Integer
Dim j As Integer
Dim myArray4(2, 2) As Object '2 dimensional array with 9 elements
For i = myArray4.GetLowerBound(0) To myArray4.GetUpperBound(0)
For j = myArray4.GetLowerBound(1) To myArray4.GetUpperBound(1)
myArray4(i, j) = i + j
Next
Next
For i = myArray4.GetLowerBound(0) To myArray4.GetUpperBound(0)
For j = myArray4.GetLowerBound(1) To myArray4.GetUpperBound(1)
Console.WriteLine(myArray4(i, j))
Next
Next
End Sub
End class
|