[填空题] 一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。 Private Sub Command1_C

[填空题] 一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。

Private Sub Command1_Click()

Dim a(10，10)As Integer

For i=1 To ______

For j=1 To 10

If______Then

______=1

Else

a(i，j)=0

End If

Next j

Next i

For i =1 To 10

For j=1 To 10

Print a(i，j)；

Next j

Print

Next i

End Sub

10 i=j a(i，j)