单选题 设有下面程序代码: Option Base 1 Pfivate 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
【答案解析】解析:本题是一个简单的数组赋值,只要把握好每次为哪个元素赋以什么样的值就不会出错。最后x数组中存放的数据依次是27、24、41、64、98、58。