首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Else Ifscore>60
编写如下程序: Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Else Ifscore>60
admin
2017-04-25
51
问题
编写如下程序:
Private Sub Command1_Click()
Dim score As Integer
score=86
If score>85
Then r=1
Else Ifscore>60 Then
r=2
Else
r=0
End If
Print r
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、0
B、1
C、2
D、86
答案
B
解析
块结构条件语句的格式为:
lf<条件l>Then : <语句块l>
[ElseIf<条件2>Then :<语句块2>]
…
[Else : <语句块n>]
End If
如果“条件1”为True,则执行“语句块1”并跳出结构:否则如果“条件2”为True,则执行“语句块2”并跳出结构…否则执行“语句块n”并结束整个结构。
转载请注明原文地址:https://kaotiyun.com/show/lhGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Val(Text1.Text) Fori=2Ton Forj
下列程序段的执行结果为______。A=0:B=0ForI=-1To-2Step-1ForJ=1To2B=B+1NextJA=A+1
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
阅读下面的程序:PriVateSubForm_C1ick()DimCheckAsBooleau,CounterAsIntegerCheck=TrueCounter=5DoDo
下列说法正确的是
在窗体上画一个文本框,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)
下面概念中,不属于面向对象方法的是______。
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommandl_Ciick()a=InputBox("Enteran
假设某应用程序开发工程(默认的工程名为“工程1”)已先后创建了两个窗体,其名称分别为form1和form2。为使窗体form1成为运行该工程时的启动窗体,在开发过程中,应在“工程-工程1属性”对话框内的“通用”标签下,在“启动对象”的下拉列表框中,选择所需
以下叙述中错误的是______。
随机试题
为了适应各种类型生产的特点和管理要求,产品成本计算对象不外乎就是【】
A.扩张血管,增强心肌收缩力 B.收缩血管,增强心肌收缩力 C.收缩血管,抑制心肌收缩力 D.扩张血管,抑制血小板聚集 E.收缩血管,促进血小板聚集前列环素可
胆碱能性荨麻疹典型皮损的特点为
在作业场所进行空气采样时,空气收集器能够正常工作的相对湿度不应超过
王某,男,甲客轮船长。2008年10月12日,甲客轮在从A地驶向B地的途中,海上突然刮起大风,同时王某收到强台风警报,气象台也预报说台风中心正要经过客轮航行的海域。王某凭借自己多年航海经验决定抛弃旅客携带的大量贵重货物(价值一百万元人民币),以减轻重量,保
企业接受的原始凭证有错误,应采用的处理方法是()。
正保公司2011年度归属于普通股股东的净利润为40000万元,发行在外普通股加权平均数为100000万股。年初已发行在外的潜在普通股有:(1)股份期权12000万份,每份股份期权拥有在授权日起五年后的可行权日以8元的行权价格购买1股本公司新发行股票的权利
从业人员要做到求同存异,正确的做法有()。
设方程组有解,则a1,a2,a3,a4满足的条件是_______
A、Theprogressindevelopingalternativeenergy.B、Theabundantdeposit.C、Thedevelopmentoftechnology.D、Alloftheabove.A
最新回复
(
0
)