编写如下程序: Private Sub Command1_Click() Dim i As Integer, n As Integer Dim arr() As Integer n = InputBox("请输入数值:") ReDi

admin2020-02-27  25

问题 编写如下程序:
Private Sub Command1_Click()
   Dim i As Integer, n As Integer
   Dim arr() As Integer
   n = InputBox("请输入数值:")
   ReDim arr(n)
   For i = 1 To UBound(arr)
      arr(i) = i
   Next
   For i = 1 To UBound(arr) \ 2
      temp = arr(i)
      arr(i) = arr(n - i + 1)
      arr(n - i + 1) = temp
   Next
   For i = 1 To UBound(arr)
      Print arr(i);
   Next
End Sub
程序运行后,单击命令按钮Command1,并在输入对话框中输入7,输出结果为

选项 A、7  6  5  4  3  2  1
B、1  2  3  4  5  6  7
C、3  2  1  4  7  6  5
D、4  3  2  1  5  6  7

答案A

解析 第一个For循环,是对arr(7)赋值,此时arr(7)=[0,1,2,3,4,5,6,7]。第二for循环用来对下标1到7的arr数组,进行以下标为4的数组元素为中心的,对调,结果arr(7)=[0,7,6,5,4,3,2,1]。故选择A项。
转载请注明原文地址:https://kaotiyun.com/show/atTp777K
0

最新回复(0)