更多"以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时"的相关试题:
[填空题]以下程序代码使用二维数组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
[填空题]以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。
Private Sub Command.Click（ ）
Dim arr(1 To 20)
For i=1 To 20
arr(i)= (14)
Text1.Text=Text1.Text&arr(i)&Chr(13)&chr(10)
Next i
Sum=0
For Each x In arr
If x＞50 Then
Print Tab(20);x
Sum= (15)
End If
Next x
Print Tab(20);"Sum=";Sum
End Sub
[填空题]以下涵数rotate的功能是：将a所指N行N列的二维数组中的最后一行放到b所指二维数组的第0列中，把a所指二维数组中的第0行放到b所指二维数组的最后一列中，b所指二维数组中其他数据不变。
#define N 4
void rotade(int a[][N]，int b[][N])
int i，j；
for(i=0；i＜N；i++)
b[i][N-1]= 【19】 ； 【20】 =a[N-1][i]；
[填空题]以下函数rotate的功能是：将a所指N行N列的二维数组中的最后一行放到b所指二维数组的第。列中，把a所指二维数组中的第0行放到b所指二维数组的最后一列中，b所指二维数组中的其他数据不变。
# define N 4
void rotate(int a[] [N] ,int b[] [N] )
int, i,j;
for(i=0;i＜N;i++ )
b[i] [N-1] = 【18】 ;
【19】 =a[N-1][i];
[填空题]以下函数rotate的功能是：将a所指N行N列的二维数组中的最后一行放到b所指二维数组的第0列中，把a所指二维数组中的第0行放到b所指二维数组的最后一列中，b所指二维数组中其他数据不变。
#define (13)
void rotate(int a[][N],int b[][N])
int i,j;
for(i=0; i＜N; i++)
b[i][N-1]=a[0][i]； b[i][0]= (14) ；
