Question

编写程序VB.生成n阶方正.该方正的中心元素为9.中心元素以外的主,副对角线元素都为1,其余元素都为0

Answer 1

dim n as integer,s as string

n=val(inputbox("输入阶数n(n为奇数)"))

s=""

for i=1 to n

for j=1 to n

if i=n/2 and j=n/2 then

s=s & "9"

elseif i=j or i=n 1-j then

s=s & "1"

else

s=s & "0"

end if

next j

print s

s=""

next i