填空题
一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。
Private Sub Command1_Click()
Dim a(10，10)As Integer
For i=1 To {{U}}【11】 {{/U}}
For j=1 To 10
If{{U}} 【12】 {{/U}}Then
{{U}} 【13】 {{/U}}=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
- 1、
【正确答案】
1、[11]10 [12] i=j [13] a(i，j)
【答案解析】