2. 计算机
  3. 编写如下程序代码： Option Explicit Prirate Sub Form_Click() Dim x As Variant Dim i As Variant x=Array(50，27，69，80，45) For Each i In x If

编写如下程序代码： Option Explicit Prirate Sub Form_Click() Dim x As Variant Dim i As Variant x=Array(50，27，69，80，45) For Each i In x If

admin2018-06-20  39
问题 编写如下程序代码：
Option Explicit
Prirate Sub Form_Click()
Dim x As Variant
Dim i As Variant
x=Array(50，27，69，80，45)
For Each i In x
If i Mod2=0Then
Print i
End If
Next i
End Sub
以下叙述中正确的是(    )。
选项 A、程序的功能是输出数组x中的所有奇数
B、将语句For Each i In x改为For i=0To5，程序功能不变
C、变量x和i也可定义为Integer类型，程序功能不变
D、程序的功能是输出数组x中的所有偶数
答案D
解析 程序开始时定义了一个默认数组x和一个变体型变量i，接着通过Array函数给数组赋值，程序的功能是通过For Each……Next循环依次遍历数组中的元素，若某个元素的值能被2整除，则输出该元素，故最终会输出50和80两个值，D选项叙述正确，其他3项叙述均错误。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/DaGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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