以下程序用来建立一个5×5矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。该程序运行结果如下图所示。 Private Sub form. Click() Dim s(5, 5)As Integer for N =1 To 5 for M = 1 To 5 if【 】Or【 】then S(N, M)=1 Else S(N. M)= 0 End if Next M Next N for N =1 To 5 for【 】 Picture1. Print Tab(M *3); s(N, M); Next M Print Next N End Sub