更多"下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option"的相关试题:
[填空题]
下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。
Option Base 1
Private Sub Form_Click( )
m=Input
Box(“输入行数”):n=InputBox(“输入列数”)
[11]
a(m,n)AS Integer,b(n,m)AS Integer
ForI=1 to
m
Forj=1 to n
a(I,j)=Int(Rnd*90)+10
Next:Next
ForI=1 to m
Forj=1 to n
b(j,1)= [12]
Next:Next
End Sub
[单项选择]阅读程序:
Option Base 1
Dim arr( ) As Integer
Private Sub Form_Click( )
Dim i As Integer, j As Integer
ReDim arr(3, 2) For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4) For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4) End Sub
程序运行后,单击窗体,输入结果为______。
A. 21
B. 13
C. 8
D. 25
[单项选择]有以下程序:
Option Base 1
Dim arr( )As Integer
Private Sub Form_Click( )
Dim i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr(i,j)=i*2+j
Next i
Next i
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next i
Print arr(3,2); arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为( )。
A. 8 13
B. 0 13
C. 7 12
D. 0 0
[简答题]编写程序,实现矩阵(3行3列)的转置(即行列互换)。
例如,若输入下面的矩阵:
100 200 300
400 500 600
700 800 900
则程序输出:
100 400 700
200 500 800
300 600 900
注意:部分源程序给出如下。
请勿改动主函数main和其他函数中的任何内容,仅在函数fun的花括号中填入所编写的若干语句。
试题程序:
#include <stdio.h>
#include <conio.h>
int fun (int array[3][3])
main( )
int i,j;
int array [3][3]=100,200,300,400,
500,600,700,800,900;
clrscr( );
for (i-0;i<3;i++)
for (j=0;j<3;j++)
printf("%7d ",array[i] [j]);
printf("/n ");
fun(array);
printf("Converted array:/n ");
for (i=0;i<3;i++)
for (j=0;j<3;j++)
printf("%7d ",array[i][j]);
printf("/n ");
[填空题]阅读程序;
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) > a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运行后,按回车键;输出结果是______。
[单项选择]阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]阅读程序:
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]阅读程序: Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger,j As Integer ReDim arr(3,2) For i=1 To 3 Forj=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Nextj Print arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序:
Option Base 1
Private Sub Form Click( )
Dim arr,Sum
Sum= 0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]阅读程序:
Option Base 1
Dim arr( )As Integer
Private Sub Form_Click( )
Dim i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr(i,j)=i*2+j
Next
Next
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next
Print arr(3,2)+arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为
A. 21
B. 13
C. 8
D. 25