Question

QB习题：设有一个4*4的棋盘（即每行每列有四个正方形格的棋盘），用四个棋子布到格子中，要求满足下列条件

设有一个4*4的棋盘（即每行每列有四个正方形格的棋盘），用四个棋子布到格子中，要求满足下列条件：（1）任意两个棋子不在同一行和同一列上；（2）任意两个棋子不在同一对角线上。试问有多少棋局？编程将它们打印出来。
亲们，我要QBasic 做，不要Pacal

Answer 1

cls
dim a$(4,4)
dim b(4)
for i=1 to 4
for j=1 to 4
for k=1 to 4
for l=1 to 4
for n=1 to 4
b(n)=0
next n
for x=1 to 4
for y=1 to 4
a$(x,y)=" "
next y
next x
a$(1,i)="(您要的棋子符号)"
b(i)=b(i)+1
a$(2,j)="(您要的棋子符号)"
b(j)=b(j)+1
a$(3,k)="(您要的棋子符号)"
b(k)=b(k)+1
a$(4,i)="(您要的棋子符号)"
b(l)=b(l)+1
if b(1)=b(2)=b(3)=b(4) then
for x=1 to 4
for y=1 to 4
?using"###";a$(x,y);
next y
?
next x
end
end if
next l
next k
next j
next i
end