答复: 画图时遇到的问题？可以说是一个算法题吧。

Sub f1()

m = InputBox("Please enter your number!")

For i = 1 To m

For j = 1 To m

If i = j Then ' 对角线

Cells(i, j).Value = i * i

Cells(i, j).Interior.ColorIndex = 35

End If

If i > j Then ' 下三角

Cells(i, j).Value = i * (i - 1) + j

Cells(i, j).Interior.ColorIndex = 28

End If

If i < j Then ' 上三角

Cells(i, j).Value = (j - 1) * (j - 1) + i

Cells(i, j).Interior.ColorIndex = 14

End If

Next j

Next i

End Sub