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

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

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

二级VB

NCRE全国计算机二级

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