2. 计算机
  3. 设有下面程序代码： 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(

设有下面程序代码： 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(

admin2019-03-08  70
问题 设有下面程序代码：
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://kaotiyun.com/show/qaFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)