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

admin2013-10-16 76

问题设有下面程序代码：
Option Base 1
Private Sub Command l_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://www.kaotiyun.com/show/ZQQp777K

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