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

最新推荐文章于 2025-08-23 18:37:13 发布

reghere

最新推荐文章于 2025-08-23 18:37:13 发布

阅读量91

点赞数

CC 4.0 BY-SA版权

文章标签：算法 J#

本文链接：https://blog.youkuaiyun.com/reghere/article/details/83778255

本文介绍了一个使用VBA编写的程序，该程序能够根据用户输入的数值生成特定的矩阵。矩阵中，对角线上的元素为平方数并用颜色标记，上三角区域按特定规则填充数字并着色，下三角区域同样按不同规则填充并着色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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