阅读程序： Option Base 1 Dim art()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 ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单
题目
阅读程序： Option Base 1 Dim art()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 ale(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
相似考题
更多“阅读程序:Option Base 1Dim art()As IntegerPrivate Sub Form_Click()Dim i As Integer,j As Int ”相关问题
-
第1题：
链表的定位函数
loc(I:integer):pointer; {寻找链表中的第I个结点的指针}
procedure loc(L:linklist; I:integer):pointer;
var p:pointer;
j:integer;
正确答案：begin
p:=L.head; j:=0;
if (I>=1) and (I<=L.len) then
while j<I do begin p:=p^.next; inc(j); end;
loc:=p;
end; -
第2题：
以下程序中，fun函数的功能足求3行4列二维数组每行尢素中的最大值。请填空。 void fun(int，int，int(*)[4]，int*)； main() {int a[3][4]={{12，41，36，28}，{19，33，15，27}，{3，27，19，1}}，b[3]，i； fun(3，4，a，B)； for(i=0；j＜3；i++)printf("%4d"，b[i])； printf("\n")； } void fun(int m，int n，int ar[][4]，int*br) {int i，j，x； for(i=0；i＜m；i++) {x=ar[i][0]； for(j=0;j＜n;j++) if(( )) x=ar[i][j]； br[i]=x； } }
正确答案：xar[i][j]
xar[i][j] 解析：本题考查的是循环的嵌套。本题定义了二维数组a，存放3行4列的数组元素，定义了，一维数组b用于存放每行的最大数。存函数fun中，通过二重for循环求每行的最大数，外层for循环用于控制行数，内层for循环用于控制列数。当外层循环执行一次时，内层循环则执行4次，并求出了这一行的最大值x，最后将每一行求出最大值x赋值给存放最大值的数组br，故本题答案为xar[i][j]。 -
第3题：
若二维数组arr[1..M，1..N]的首地址为base，数组元素按列存储且每个元素占用K个存储单元，则元素arr[i，j]在该数组空间的地址为______。A.base+（（i-1）*M+j-1）*K
B.base+（（i-1）*N+j-1）*K
C.base+（（j-1）*M+i-1）*K
D.base+（（j-1）*N+i-1）*K答案：C解析：本题考查数组元素的存储知识。二维数组arr[1..M，1..N]的元素可以按行存储，也可以按列存储。按列存储时，元素的排列次序为，先是第一列的所有元素，然后是第二列的所有元素，最后是第N列的所有元素。每一列的元素则按行号从小到大依次排列。因此，对于元素arr[i,j]，其存储位置如下计算：先计算其前面j-1列上的元素总数，为（j-1）*M，然后计算第j列上排列在arr[i,j]之前的元素数目，为i-1，因此arr[i，j]的地址为base+（（j-1）*M+i-1）*K。 -
第4题：
● 若二维数组arr[1..M，1..N]的首地址为base，数组元素按列存储且每个元素占用K个存储单元，则元素arr[i，j]在该数组空间的地址为 （21） 。
A．base+（（i-1）*M+j-i）*K
B．base+（（i-1）*N+j-1）*K
C．base+（（j-1）*M+i-1）*K
D．base+（（j-1）*N+i-1）*K
正确答案：C -
第5题：
若二维数组arr[1…M，1…N]的首地址为base，数组元素按列存储且每个元素占用K个存储单元，则元素arr[i，j]在该数组空间的地址为（ ）。A.base+（（i一1）*M*j-i）*K
B.b ase+（（i-1）*N+j-1）*K
C.baSe+（（j-l）*M十i-1）*K
D.base+（（j-1）*N+i-1）*K答案：C解析： -
第6题：
下面程序的功能是将十进制整数n转换成base进制。请填空使程序完整、正确。 #include ＜stdio.h＞ int main（) { int i=0,base,n,j,num[20] ; scanf（"%d",&n); scanf（"%d",&base); do { i++ ; num[i]=______________; n=n/base; } while （n!=0); for （j=i ;j＞=1 ;j--) printf（"%d",num[j]); return 0; }
n%base；n/base；j=i;j＞=0;j--