alex2.bas

来自「VmBasic是一款基于虚拟机的结构化的编程语言」· BAS 代码 · 共 23 行

' 产生一个矩阵测试二维数组

DIM A(4,4)
Y=0
LOOP1:
X=0
LOOP2:
A(X,Y)=X+Y
X=X+1
IF X<4 THEN GOTO LOOP2
Y=Y+1
IF Y<4 THEN GOTO LOOP1
Y=0
LPY:
X=0
LPX:
PRINT A(X,Y),
X=X+1
IF X<4 THEN GOTO LPX
Y=Y+1
PRINT
IF Y<4 THEN GOTO LPY