dim arr(0 to 9, 0 to 2) as integer



sub test( a() as integer )

    for i as integer = lbound(a,1) to ubound(a,1)
        for j as integer = lbound(a,2) to ubound(a,2)
            print i, j, a(i,j)
        next
    next

end sub




test(arr())