设有下面程序代码： Option Base 1 Private Sub Command 1_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 50

问题设有下面程序代码：
Option Base 1
Private Sub Command 1_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/mnTp777K

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