首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: 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
24
问题
编写如下程序代码:
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://jikaoti.com/ti/2CS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开"对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
在VB中,函数过程与子程序过程的区别之一是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivmeSubCommand1_Click()DimslAsString,s2AsString
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是
设有下面程序代码:PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,st)Prints
随机试题
使用VC++6.0打开考生文件夹下的源程序文件1.cpp,该程序运行时有错,请改正错误,使得程序正确执行,并且输出以下语句:TC1:0TC2注意:不要改动main函数,不能增加或删除行,也不能更改程序的结构,错误的语句在//*
局麻时,如将麻醉药直接注入血管,可引起
妊娠初期,仍每月有月经而不损伤胎儿者,称为
根据《水利工程建设项目施工监理规范》SL288—2014,施工监理在工程资金控制方面的工作包括()。
会计主体资料:公司名称:世纪公司,账套号001,税号10102345231。法人代表:王一,本币名称:人民币。企业类型:工业企业,行业性质:新会计制度。新设甲和乙两个操作员。记账凭证采用通用记账凭证。会计科目表及某年12月份期初
关于劳动规章制度的说法,正确的是()。
某偏远山区,交通不便,学生居住较为分散。为保障当地适龄儿童、少年接受义务教育,根据《中华人民共和国义务教育法》的规定,县级人民政府可以采取的措施是()。
BenWasSwell,ButHe’sOutOldsawsarewearingout.Takethecaseof"Thedevilfindsworkforidlehandstodo."Asrece
请在“答题”菜单下选择“电子表格”命令,然后按照题目要求再打开相应的命令,完成下面的内容,具体要求如下:打开工作簿文件EXCEL.XLSX,A1:C1单元格合并为一个单元格,内容水平居中,计算月销量的“总计”及“所占比例”列的内容(所占比例=月销量/总
PRAHAEXPRESSYourNo.lExpressTrainAcrossCzechRepublic!CustomerName:JakobGinsbergReservationNo.:20
最新回复
(
0
)