用VB代码:Dim a(7, 7) As IntegerDim i As IntegerDim j As IntegerDim n As Integeri = 1j = (7 + 1) / 2For n = 1 To 49a(i, j) = nIf Int(n / 7) < n / 7 Thenj = j - 1i = i - 1Elsei = i + 1End IfIf i = 0 Then i = 7If j = 0 Then j = 7Next nFor i = 1 To 7For j = 1 To 7Print a(i, j); " ";If Int(a(i, j) / 10) = 0 Then Print " ";Next jPrintNext i这应该还是很简单的,但你的数字太多了点,可不想写再看看别人怎么说的。