设计一个程序，生成一个n阶单位矩阵存储在数组中，同时输出该矩阵

设计一个程序，生成一个n阶单位矩阵存储在数组中，同时输出该矩阵
用VB编写

Private Sub Command1_Click()

Dim a(20, 20) As Integer

n = CInt(InputBox("N="))

Print "N="; n

For i = 1 To n

For j = 1 To n

a(i, j) = -(i = j)

Next j

Next i

For i = 1 To n

For j = 1 To n

Print a(i, j);

Next j

Print

Next i

End Sub

谢谢您的回答

满意请采纳。