一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。 Private Sub Command1_Click()Dim a(10，10)As IntegerFor i=1 To 【11】 For j=1 To 10 If 【12】 Then 【13】 =1 Elsea(i，j)=0 End If Next jNext iFor i =1 To 10 For j=1 To 10Print a(i，j)； Next j PrintNext i End Sub

国际私法的立法体系大致有哪几种？