Private Sub Commandl—Click()
D.im a(3,3)
F.or m=1 T0 3
F.0r n=1 To 3
If n=m Or n=4-m Then
a(m,n)=m+n
E.lse
a(m,n):0
E.nd If
Print a(m,n);
Next n
Prim
Next m
E.nd Sub
运行程序,单击命令按钮,窗体上显示的内容为
A.2 0 0
B.2 0 4
C.2 3 0
D.2 0 0