Или вручную:
Dim a(3,3)
a(1,1)=15
a(1,2)=25
a(1,3)=32
a(2,1)=24
a(2,2)=53
a(2,3)=1
a(3,1)=4
a(3,2)=3
a(3,3)=2
или что-нибудь придумываем:
Dim a(3,3)
Restore massiv_a
For x=1 to 3
For y=1 to 3
Read a(x,y)
Next
Next
.massiv_a
Data 15,25,32,24,53,1,4,3,2
__________________
AMD Sempron(tm) 1.41Ггц, 1024МБ ОЗУ, GeForce 6200 128МБ, WinXP SP3.