首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: Option Explicit Private Sub Form_Click( ) Dim x As Variant Dim i As Variant x=Array(50,27,69,80,4
编写如下程序代码: Option Explicit Private Sub Form_Click( ) Dim x As Variant Dim i As Variant x=Array(50,27,69,80,4
admin
2020-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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommand1_Click()Textl.Text=”程序设计”Text1.SetFocus
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开"对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintText1.Text;EndSub运行程序,并在
设工程中有2个窗体:Form1和Form2,每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中,应进行的操作是
在VB中,函数过程与子程序过程的区别之一是
设有下面程序代码:PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,st)Prints
随机试题
(2013年真题)在婚姻关系存续期间所得的下列财产,归夫或妻一方所有的是
酶抑作用最强的药物是
正常情况下,最易引起牙本质敏感症的釉牙骨质界结构为
在折射率n3=1.52的照相机镜头表面涂有一层折射率n2=1.38的MgF2增透膜,若此膜仅适用于波长为550nm的黄光,则此膜的最小厚度是()。
某大底盘单塔楼高层建筑,主楼为钢筋混凝土框架一核心筒,与主楼连为整体的裙房为混凝土框架结构,如图6-15所示。本地区抗震设防烈度为7度,建筑场地为Ⅱ类。假定该房屋为乙类建筑,试问:裙房框架结构用于抗震措施的抗震等级,应如下列何项所示。并简述其理由。
制定工程项目计划的主要步骤的先后顺序是()。(1)把工程项目范围详细划分为各个工作包;(2)进行资源消耗和评审;(3)清晰地定义工程项目目标;(4)确定质量检查评审的关键节点和质量检查。
车间管理人员工资应纳入“管理费用”核算。()
(2013年)担保物权的法律特征有()。
合伙人在合伙企业清算前,不得请求分割合伙企业的财产;但是,法律另有规定的除外。()
AccordingtoanArabicstory,coffeewasdiscoveredwhenamannamedKaldinoticedthathisgoatswereattractedtotheredfrui
最新回复
(
0
)