输入：
cls
dim a(10，10)
for i=1 to 10
for j=1 to 10
read a(10,10)或(? ,input)
next j
next i
end
输出：
cls
for i=1 to 10
for j=1 to 10
？a(i,j);或不大
next j
?可以不用
next i