Private
Sub
Command1_Click()
Dim
Dizi(-5
To
15, -10
20) AsInteger
Print
"Dizinin ;"
"-------------------------------------------"
"1. Boyutunun Alt Sınırı : "
& LBound(Dizi, 1)
"1. Boyutunun Üst Sınırı : "
& UBound(Dizi, 1)
"2. Boyutunun Alt Sınırı : "
& LBound(Dizi, 2)
"2. Boyutunun Üst Sınırı : "
& UBound(Dizi, 2)
End