单选题
设有下面程序代码: 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、
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。
提交答案
关闭