请阅读程序：Option Base 1Pfivate Sub Form_Click()Dim Arr(4，4)As IntegerFor i=1 To 4For j=1 To 4Arr(i,j)=(i-1)*2+jNext jNext iFor i=3 To 4For j=3 To 4Print Arr(j，i)；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是( )。A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10 8 11

题目

请阅读程序：

Option Base 1

Pfivate Sub Form_Click()

Dim Arr(4，4)As Integer

For i=1 To 4

For j=1 To 4

Arr(i,j)=(i-1)*2+j

Next j

Next i

For i=3 To 4

For j=3 To 4

Print Arr(j，i)；

Next j

Print

Next i

End Sub

程序运行后，单击窗体，则输出结果是( )。

A．5 7 6 8

B．6 8 7 9

C．7 9 8 10

D．8 10 8 11

相似考题

1.阅读程序： 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．21B．13C．8D．25

2.●若二维数组arr[1..M，1..N]的首地址为base，数组元素按列存储且每个元素占用K个存储单元，则元素arr[i，j]在该数组空间的地址为(21)。(21)A．base+((i-1)*M+j-1)*KB．base+((i-1)*N+j -1)*KC．base+((j-1)*M+i-1)*KD． base+((j-1)*N+i-1)*K

3.● 若二维数组arr[1..M, 1..N]的首地址为base，数组元素按列存储且每个元素占用K个存储单元，则元素arr[i, j]在该数组空间的地址为 __ 。A.base+((i-1)*M+j-1)*KB.base+((i-1)*N+j-1)*KC. base+((j-1)*M+i-1)*KD. base+((j-1)*N+i-1)*K

4.●若二维数组arr[1..M，1..N】的首地址为base，数组元素按列存储且每个元素占用K个存储单元，则元素arr[i，j]在该数组空间的地址为 (21)。(21)A. base+((i-1)*M+j-1)*KB．base+((i-1)*N+j-1)*KC.base+((j-1)*M+i-1)*KD.base+((j-1)*N+i-1)*K

更多“请阅读程序:Option Base 1Pfivate Sub Form_Click()Dim Arr(4,4)As IntegerFor i=1 To 4For j=1 ”相关问题

  • 第1题：

    下列程序的功能是：输入l0个整数。‘Private sub Command2_Click Dim i，j，k，temp，arr(11)As Integer Dimresult As String For k=1T0 10 arr(k)=Val(InputBox( “请输入第”&k&”个数：”，”数据输入窗口”)) Next k i=1 J=10 Do Temp=arr(i) arr(i)=arr(j) arr(j)=tempi=i+1 j=__________LoopWhileresule=””For k=1 To 10 result=result&arr(k)&Chr(13)Nextk MsgBoxresult End Sub 横线处应填写的内容是（ ）。

    A.J-i i<j

    B.j+1 i<j

    C.j+1 i>j

    D.J-1 i>j


    正确答案：A
    本题中第一个循环是将输入的数放进数组中，在第二个循环中进行逆序交换，a(1)是和a(10)进行交换，所以当i=i+1时，j=j-1，当i=5，j=5时，会停止循环，所以条件必须为i<j。

  • 第2题：

    请阅读程序． 0ption Base 1 Private Sub Fo,m Click（ ） Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨窗体，则输出结果是（ ）。

    A.5 7 6 8

    B.6 8 7 9

    C.7 9 8 10

    D.8 10 8 11


    正确答案：C
    C。【解析】本题利用嵌套for循环给数组Arr赋值。结果是Arr(3，3)=7，Arr(3，4)=8，Arr(4，3)=9，Arr(4，4)=10，其他与后面程序无关。然后再次利用嵌套循环输出，输出顺序为Arr(3，3)，Arr(4，3)，print，Arr(3，4)，Arr(4，4)，所以结果为C。

  • 第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
    解析：

相关内容