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

admin2018-10-15 26

问题设有下面程序代码：
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://jikaoti.com/ti/Cym0FFFM

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