[填空题] 请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。　　Private Sub Command1 Click()　　　　Dim s(6，6)　　　　For

17 查阅

[填空题] 请填写下列空白，以实现运行后形成一个主对角线上元素值为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 　　　　　　　【7】　　　　　Else 　　　【8】　　　End If　　　Print 【9】　　　Next j　　　Print　　　Next i　　End Sub

参考答案:

【7】s(i，j)=1

【8】s(i，j) =0【9】 s(i，j)解析：此程序段开始声明了一个二维数组，用两个For…Next语句嵌套使用为其赋值，当满足条件i = j时，s(i，j)=1，当不满足i=j时，s(i，j)=0；最后输出数据，即在屏幕上输出6×6阶矩阵。

计算机考试

随便看看:

Ta老师题库

[填空题] 请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。　　Private Sub Command1 Click()　　　　Dim s(6，6)　　　　For

相关问题:

随便看看:

Ta老师题库

[填空题] 请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。 Private Sub Command1 Click() Dim s(6，6) For

相关问题:

随便看看:

Ta老师-周边问题

[填空题] 请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。　　Private Sub Command1 Click()　　　　Dim s(6，6)　　　　For