2. 计算机
  3. 设有下面程序代码： Option Base 1 Private Sub Commanmd1_Click() Dim x(6) a=Array(4，2，5，1，6，3) b=Array(64，24，98，27，58，41) For k=1 To 6 x(a(

设有下面程序代码： Option Base 1 Private Sub Commanmd1_Click() Dim x(6) a=Array(4，2，5，1，6，3) b=Array(64，24，98，27，58，41) For k=1 To 6 x(a(

admin2019-03-08  61
问题 设有下面程序代码：
Option Base 1
Private Sub Commanmd1_Click()
Dim x(6)
a=Array(4，2，5，1，6，3)
b=Array(64，24，98，27，58，41)
For k=1 To 6
x(a(k))=b(k)
Nextvk
For k=1 Tp 6
Print x(k)；
Next k
End Sub
程序运行时的输出是
选项 A、27 24 41 64 98 58
B、64 24 98 27 58 41
C、24 27 41 58 64 98
D、98 64 58 41 27 24
答案A
解析 第一个For循环对x数组元素赋初值。被赋的值根据下标，从b数组中获取。而x的下标从数组a的元素中获得。注意Option Base 1的影响，下标从1开始。因此x数组中的值实际上是按照a数组中值进行了一个重新排序。即x(1)是数组b中第4个元素的值：27，其他值以此类推。选A。
转载请注明原文地址:https://www.kaotiyun.com/show/7lFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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