首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: 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)
admin
2019-06-20
55
问题
编写如下程序代码:
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/DvUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中(如图所示)。下面能实现此功能的事件过程是()。
为了在运行时能显示窗体左上角的控制框(系统菜单),可以设置以下哪个属性的值为True()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个命令按钮,其名称为C1,标题为“等级考试”;再画1个文本框,名称为T1,如图3—184(a)所示。请编写适当的事件过程,使程序运行后,一旦
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。要求:请去掉程序中的注释符,把
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
某二叉树共有399个结点,其中有199个度为2的结点,则该二叉树中的叶子结点数为()。
结构化程序设计的基本原则不包括()。
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
随机试题
_____,electronsarestillsmaller.
诊断强直性脊柱炎的关键是__________。
患者男,45岁,2年前无诱因出现柏油样便,伴头晕、乏力,但无腹痛、呕吐、呕血等,在当地医院诊断为“胃窦炎”,并用洛赛克等治疗后有所好转。以后多于进餐后半小时开始,下次餐前缓解。近2个月来厌食,消瘦,上腹疼痛加重,不易缓解。体检:贫血貌,剑突下有压痛,肝脾未
符合散发性甲状腺功能减低症特点的是
常规胰腺CT扫描时,其层厚、层距分别为
根据法律,保险合同的订立必须基于( ),即如果一个人从另外一个人的生命中可以预期获得货币性收益。
在破产程序中,当事人对人民法院()不服,可以·提起上诉。
MostAmericanmagazinesandnewspapersreserve60percentoftheirpagesforads.TheNewYorkTimesSundayedition【1】maycontai
此时A此刻,B展现在他眼前的C是一个崭新D陌生的世界。
A、Mensuffermorethanwomenwhenpretendingtobehappy.B、Smilingforthesakeofsmilingmakesonefeelgloomier.C、Fakingsm
最新回复
(
0
)