首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim a As Integer,b As Integer a=3:b=2 If a*b<10 Then b=b+1 Else b=b-1 End If Print b-a>0 En
编写如下程序: Private Sub Command1_Click() Dim a As Integer,b As Integer a=3:b=2 If a*b<10 Then b=b+1 Else b=b-1 End If Print b-a>0 En
admin
2016-09-19
21
问题
编写如下程序:
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=3:b=2
If a*b<10 Then
b=b+1
Else
b=b-1
End If
Print b-a>0
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、True
B、False
C、1
D、-1
答案
B
解析
本题的程序中由于a*b<10条件成立,因此执行Then分支,b自加1变成3,最后输出b-a>0的值即False。
转载请注明原文地址:https://jikaoti.com/ti/GYJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上添加一命令按钮,其名为Command1,然后编写代码如下:privateSubCommand1_Click()Dimarr(5)AsInteger,arr1(5)ASInteger n=3 Fori=
下面程序执行的结果是()。PrivateSubForm_Click()AS="123":B$="456"C=Val(A$)+Val(B$)PrintC\100EndSub
在窗体上画两个名称分别为Textl、Text2的文本框,Text1的Text属性为“DataBase”,如图所示。现有如下事件过程:PrivateSubText1_Change()Text2.T
以下关于菜单设计的叙述中错误的是
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox(“请输入一个浮点数:”)strl$=Str$(asing
结构化程序设计的3种结构是()。
下面的程序代码执行之后,输出如下结果,请填写空白处将程序补充完整:PrivateSubCommandl_Click()Dimx(3,3)Fori=1To3Forj=1To3
线性表的顺序存储结构和线性表的链式存储结构分别是______。
表达式"12345"<>"12345"&"ABC"的值是______。
假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为a1,其“可见”属性为False,则程序运行后,可以同时响应鼠标左键单击和右键单击的事件过程是______。
随机试题
下列级数发散的是()
关于乙型病毒性肝炎的肝细胞基本病变,下列哪项不正确
患者,女性,26岁,因失恋服毒自杀,被家人发现送医院抢救,给予电动洗胃机洗胃,洗胃过程中流出血性液体,护士应采取的措施是()。
甲公司从乙公司购入其生产的电子元件若干,后又销售给丙公司用于电子仪器的装配。在装配过程中,丙公司发现该批电子元件质量不符合要求,遂暂时停止向甲公司支付货款,并要求其赔偿。而甲公司认为该批电子元件并非自己生产,而且在包装运输过程中也不至于造成损坏,质量问题应
建设项目经济评价有一整套指标体系,敏感性分析可选定其中一个或几个主要指标进行分析,最基本的分析指标是()。[2011年真题]
我国中央政府(含中国人民银行)的债权的风险权重为()。
当需要证实组织有能力稳定地提供满足顾客和适用的法律法规要求的产品时,组织不能采用_________。
根据下列材料,按要求完成教学设计任务。材料一:《义务教育历史课程标准(2011年版)》规定:知道康有为、梁启超等维新派代表,了解“百日维新”的主要史实。材料二:课文摘录:1897年冬,德国强占胶州湾。消息传
Beforethe20thcenturythehorseprovideddaytodaytransportationintheUnitedStates.Trainswereusedonlyforlong-distan
Gettingagoodnight’ssleephaslongbeenknowntoconsolidatetheday’smemories,movingthemfromshort-termstorageintolon
最新回复
(
0
)