首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容,在横线处应填写( )。 Private Sub Command1_Click(
以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容,在横线处应填写( )。 Private Sub Command1_Click(
admin
2015-11-25
45
问题
以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容,在横线处应填写( )。
Private Sub Command1_Click()
x=Val(Textl.Text)
If Then
Print x
Else
Textl.SetFocus
Tcxt1.Text=“”
End If
End Sub
选项
A、x%4=1 And x%5=2
B、x%4=1 Or x%5=2
C、x Mod 4=1 And x Mod 5=2
D、x Mod 4=1 Or x Mod 5=2
答案
C
解析
本题考查条件表达式的描述和如何获得焦点。题中的两个条件“除以4余1,除以5余2”关系为并列关系。可以表示为“x Mod 4=1 And x Mod 5=2”。
转载请注明原文地址:https://kaotiyun.com/show/ckLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下的程序。PrivateSubCommand1_Click()DimkAsInteger,mAsIntegerDimPAsIntegerk=4:m=1P=Fun(k,m):PrintP;P=F
Sub过程与Function过程最根本的区别是
下列程序段的执行结果为DimA(3,3)ForM=1To3ForN=1To3IfN=MOrN=3-M+1ThenA(M,N)=1ElseA(M,N)=0
如果不指明函数过程参数的类型,则该参数的数据类型为______。
有如下的程序:PrivateSubCommand1_Click()DimkAsInteger,mABIntegerDimPAsIntegerk=4:m=1P=Fun(k,m)=PrintP;P=Fun(k,m):Pri
Sub过程与Function过程最根本的区别是
有如下程序:infocase$=InputBox("Inputoneletter:")SelectCaseinfocase$case"a"grade$="Verygood"case"b"g
在一个窗体上添加一命令按钮控件,名为Command1,事件过程如下,则执行结果是()。OptionBase1PrivateSubCommand1_Click()Dima(5)AsIntegerDimkAsInteger
已知a=5,b=8,c=12,下列表达式的值为True的是()。
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为a1,且取消其“可见”属性。运行时,哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
随机试题
关于老年人用药原则的叙述正确的是
具有体内、外抗凝血作用的药物是
甲公司职工王某在上班途中发生交通事故,导致高位截瘫,有关部门的交通事故责任认定王某负全责;由于交通事故发生在上班途中,王某所受的伤害应当认定为工伤。()
中国石油天然气股份有限公司新疆油田分公司主要从事原油、天然气开采业务,2010年7月发生下列业务:(1)采用分期收款方式销售自行开采的原油1200吨,不含税销售额504万元,合同规定,货款分两个月支付,本月支付60%,其余贷款于8月15日前支付。由
简述影响人格形成的因素。
敬业主要是规范公民与职业的道德关系,奉献主要是规范公民与社会的道德关系和对待他人的()。
某艺术班共有学生160人,分为美术生和音乐生。其中男生中有17%是音乐生,女生中有20%是音乐生,问女生中有多少美术生?()
通话记录:手机
某水果店只有进货价低于正常价格时,才能以低于市场的价格卖水果而获利;除非该水果店的销售量很大,否则,不能从果农那里购得低于正常价格的水果:要想有大的销售量,该水果店就要拥有特定品种水果的独家销售权。因为种种原因,该水果店没有得到特定品种水果的独家销售权。由
HowcanIevercompleteitifyou______continually______mesomanysillyquestions?
最新回复
(
0
)