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

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