填空题

以下程序代码使用二维数组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)
<上一题 目录 下一题>
热门 试题

填空题
把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAseii As Integer)Print KeyAscii End Sub 程序运行后，如果将CapsLock 键锁定在大写的状态，这时按下A键时，则：在窗体上输出的输出结果为 【10】 和 【11】 。
填空题
有如下过程：Sub SS(ByVal X，ByRef Y，Z) X=X + 1 Y=Y + 1 Z=Z + 1 End Sub执行该过程的事件过程如下：Private Sub Command1_Click() A = 1 B = 2 C = 3 Call SS(A，B，C) Print A；B；C End Sub 则该程序的执行结果是 【9】 。
相关试题