填空题

以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。
Private Sub Command1_click()
Dim A(4，4)
For I=1 To 4
For J= 1 To 4
【12】 =1
Next I
【13】
【14】
Next J
For i=1 To 4
For j=1 To 4
Print A(i，j)：
Next j
Print
Next I
End Sub

【参考答案】

[12] A(I，J) [13] A(I，I) [14] A(I、5-I)

<上一题目录下一题>

热门试题

填空题

下面程序段的输出结果是【6】。 p = 0 s = 0 Do p = p + 2 s = s + p Loop While p＜11 Print “s=”; s

填空题

结构化分析方法的基本思想是采用【4】方法，分析整个系统，有效的控制系统开发的复杂性。