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

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