首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: 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
28
问题
编写如下程序代码:
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
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开"对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
在VB中,函数过程与子程序过程的区别之一是
设有如下程序:PrivateSUbFormClick().num=InputBox(“请输入一个实数”):P:InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)Prim“END”EndIf运行程序单击窗
设有下面程序代码:PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,st)Prints
随机试题
对于认知风格属于场依存型的学生,适合的教学方法是()
下列属于创业成功的关键条件的是()
患者,男,30岁。车祸外伤半小时急诊入院。自诉腰背胀痛。体查:血压120/80mmHg,心率95次/分。全腹无明显压痛、反跳痛。移动性浊音(一),右肾区叩痛。提示:患者受伤1周后自行下床活动,突感右腰疼痛。尿常规示红细胞(+++),镜检大量红细胞。普通
6岁女孩,外伤致肱骨髁上伸直型骨折,经手法复位,石膏外固定,5小时后出现手麻、主动活动障碍、手发凉,此时的治疗应采取
甲公司2013年度财务报告批准报出日为2014年4月12日,甲公司2014年发生的下列事项中,属于资产负债表日后调整事项的有()。(2014年)
()是指保险人承担赔偿或者给付保险金责任的最高限额。
下列关于国有独资公司的表述中,符合公司法律制度规定的是()。
请绘制南美洲的轮廓图,在图中标注各地的气候,并说明各气候的成因。
To:evan.bearden@avesmail.comFrom:sales@raptorconstructionsupplies.comDate:August8Subject:PurchaseConfirmationNo.10
Baby-NamingTrends[A]Overthelastfiftyyears,Americanparentshaveradicallyincreasedthevarietyofnamestheygivetheir
最新回复
(
0
)