从1到49按七七四九的方格排列,使横向输向纵向各和都为175

用vb代码:
dim a(7, 7) as integer
dim i as integer
dim j as integer
dim n as integer
i = 1
j = (7 + 1) / 2

for n = 1 to 49
a(i, j) = n
if int(n / 7) < n / 7 then
j = j - 1
i = i - 1

else
i = i + 1
end if

if i = 0 then i = 7
if j = 0 then j = 7

next n

for i = 1 to 7
for j = 1 to 7

print a(i, j); " ";
if int(a(i, j) / 10) = 0 then print " ";
next j
print
next i