填空题

请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。　　Private Sub Command1 Click() 　　　　Dim s(6，6) 　　　　For i=1 To 6 　　　　　　　For j=1 To 6 　　　　　　　　　If i=j Then 　　　　　　　【】　　　　　Else 　　　【】　　　End If 　　　Print 【】　　　Next j 　　　Print 　　　Next i 　　End Sub

【参考答案】

s(i，j)=1

<上一题目录下一题>

热门试题

填空题

填空题

执行下面的程序段，x的值为【】。 Private Sub Command1_Click()For i=1 To 9a=a + iNext ix=Val(i)MsgBox xEnd Sub

请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。 Private Sub Command1 Click() Dim s(6，6) For i=1 To 6 For j=1 To 6 If i=j Then 【 】 Else 【 】 End If Print 【 】 Next j Print Next i End Sub