一下程序的作用是生成一个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