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

admin2020-01-02 53

问题设有下面程序代码：
Option Base 1
Private Sub Commandl_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)
  Next k
For k=1 To 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

解析本题是一个简单的数组赋值，只要把握好每次为哪个元素赋以什么样的值就不会出错。最后x数组中存放的数据依次是27、24、41、64、98、58。

转载请注明原文地址:https://kaotiyun.com/show/mLTp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类