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

admin2020-08-10  26

问题 编写如下程序代码:
    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/gSHp777K
0

最新回复(0)