有以下程序： 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
题目
有以下程序： 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．813
B．013
C．712
D．00
相似考题
更多“有以下程序:Option Base 1Dim arr()As IntegerPrivate Sub Form. Click() Dim i As Integer,j As ”相关问题
-
第1题：
下列程序的功能是：输入10个整数，逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。
Private Sub Command2_Click()
Dim i, j, k,temp, arr(11) As lnteger
Dim result As String
For k=1 To 10
arr(k) =Val (InputBox( "请输入第" & k & "个数："，"数据输入窗口"))
Next k
i=1
j = 10
Do
temp=arr(i)
arr(i)=arr(j)
arr(j)=temp
i=i+1
j=【12】
Loop While【13】
result =""
For k=1 To 10
result=result & arr(k) & Chr(13)
NeXt k
MsgBox result
End Sub
正确答案：
【12】
【答案】：j-1
【知识点】：VBA程序中循环结构的循环变量的设计
【解析】：此程序的功能是实现10个整数的逆序，变量i从第1个数向后移动需要不断加1，变量j从第10个数向前移动需要不断减1，故此空应填j-1。
【13】
【答案】：i>j
【知识点】：VBA程序中的循环结构
【解析】：此程序是用循环结构实现的，循环结束的条件是变量i和j从两边移到中间两个变量进行数据交换后，下次不再进行数据交换，此时变量i的值大于j的值，故此空应填i>j。
-
第2题：
● 若二维数组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 -
第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]在该数组空间的地址为 __ 。
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[i，j]以前，应该存放了j-1列，而每一列中有M个元素（即数组的行数），那么应该有（j-1）*M个元素，而在第j列中，存放元素arr[i，j]以前，应该有i-1个元素被存放，因此，在存放元素arr[i，j]以前总共有（j-1）*M+i-1个元素被存放，而每个元素占用K个存储单元，因此本题答案选C。参考答案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解析：