违法和不良信息举报 联系客服
免费注册 登录

阅读如下程序:OptionBase1PrivateSubFormClick() DimArr(4,4)As Integer Fori=1 To 4 For j=1 To

题目

阅读如下程序： Option Base 1 Private 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题：

执行下列程序后输出如下所示矩阵，填空将程序补充完整。

1 0 0 2

0 3 4 0

0 5 6 0

7 0 0 8

Private SubCommand1_Click()

Dim a(4，4)

For i=1 To 4

For i=1 To 4

If【 】Then

【 】

a(i，j)=k

Else

a(i，j)=0

End If

Print a(i，j)；

Next i

Print

Next i

End Sub


正确答案：i=j Or j＝4-i+1 k=k+1
i=j Or j＝4-i+1 ,k=k+1 解析：通过观察可以发现，只有在主对角线和副对角线上才有数值，而且是渐增的，故当条件成立时，k的值加1。主对角线行列下标的关系为：i＝j，副对角线行列下标的关系为：i+j＝5。

第2题：

有如下程序： 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．25

B．26

C．27

D．28


正确答案：C
解析：本题考查“/”与“\”的区别。“/”是浮点除法运算符，而“\”是整数除法运算符。比如：6/4=1.5，而6\4=1。这两个运算符的差别是考试重点，容易混淆，务必掌握。题目程序的功能实际上是对数组中能被3整除的元素求和，即3+9+15。27，故选项C正确。

第3题：

请阅读程序． 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。

第4题：

阅读程序：

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

an(i,j) =i*2+j

Next

Next

ReDim Preserve an(3,4)

For j=3 To 4

an(3,j) =j+9

Next

Print arr(3,2) +air(3,4)

End Sub

程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25


正确答案：B
解析：每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，alt(3,4)=4+9=13，故最后为13。

第5题：

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_ Click() Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______。

A．3 4 6 7

B．7 8 10 11

C．1 2 4 5

D．8 9 12 13


正确答案：C

第6题：

阅读程序： 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


正确答案：B
解析：每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3，2)始终都未赋值，arr(3，4)=4+9=13，故最后为13。

第7题：

请阅读程序：

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


正确答案：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。

第8题：

阅读程序：

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


正确答案：A

第9题：

阅读程序： 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


正确答案：A
解析：ReDim语句的功能是为动态数组变量重新分配储存空间。而Preserve的功能是当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个For循环是为第二维为1和 2的数组赋值，而第二个For循环是为第二维为3和4的数组赋值。而arr(3,2)=i*2+i=3*2+2=8， arr(3,4)司+9=-4+9=13，故输出结果为8+13=21。

相关内容