2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim i As Integer, n As Integer Dim arr() As Integer n = InputBox("请输入数值：") ReDi

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

admin2020-02-27  44
问题 编写如下程序：
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://www.kaotiyun.com/show/atTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)