首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Elself score>60 Then r=2 Else r=0 End If
编写如下程序: Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Elself score>60 Then r=2 Else r=0 End If
admin
2016-09-19
38
问题
编写如下程序:
Private Sub Command1_Click()
Dim score As Integer
score=86
If score>85
Then r=1
Elself score>60 Then
r=2
Else
r=0
End If
Print r
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、0
B、1
C、2
D、86
答案
B
解析
块结构条件语句的格式为:
If<条件1>Then
<语句块1>
[ElseIf<条件2>Then
<语句块2>]
[Else
<语句块n>]
End If
如果“条件1”为True,则执行“语句块1”并跳出结构:否则如果“条件2”为True,则执行“语句块2”并跳出结构…否则执行“语句块n”并结束整个结构。
转载请注明原文地址:https://www.kaotiyun.com/show/dOLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的事件过程执行时,可以把Textl文本框中的内容写到文件“filel.txt”中去。请填空。PrivateSubCommandl_Click()Open“filel.txt”For【】As#1Prin
设有一个命令按钮Commandl的事件过程以及一个函数过程。程序如下:PrivateSubCommandl_Click()StaticxAsIntegerX=f(x+5)ClsPrintX
下列软件系统结构图的宽度为__________________。
下列叙述中错误的是()。
为组合框Combol增加一个列表项“电脑”,下列语句正确的是()。
在链表的运算过程叶l,能够使空表与非空表的运算统一的结构是_________。
冒泡排序算法在最好的情况下的元素交换次数为___________;
已知a=5,b=/,c=12,下列表达式的值为True的是()。
已知一棵含有n个结点的树中,只有度为k的结点和度为0的叶子结点,则该树中含有的叶子结点个数为【】。
软件测试是保证软件质量的重要手段,首要任务是______。
随机试题
新型隐球菌引起的主要疾病是
土工织物的刺破强力是顶杆顶压试样时的最大压力值。()
输入收款单。2012年1月12日,销售部收到广州复富公司银行汇票一张,为销售计算机等级考试模拟光盘货款,数量100张,每台无税单价30元,价税合计3510元。
资料:某服装厂生产的产品主要是秋冬装,大部分是手工制衣。由于生产季节性强,因此每年夏秋季的时候,企业便开始扩大生产量,增加工人,增加工时,提高工资。
金融机构或代理融通公司购买借款企业的应收账款,并在账款收回前提供融通资金之外的其他服务项目,如信用分析、催收账款、代办会计处理手续以及承担倒账风险,这种融资方式是()。
设A是m×n阶矩阵,非齐次线性方程组Ax=b有解的充分条件是()。
汉字的产生从根源和雏形上说,来自劳动人民,汉字简化的动力主要来自民间。但经过采集、整理和加工创造而形成的汉字,则出于史卜和达官贵人之手。文明社会早期只有宫廷和贵族才有文化,他们祭天祀祖征战讨伐需要巫师神汉算命打卦占卜扶乩。商代甲骨文相对成熟,比较系统,但因
习近平说:“这次全会部署全面推进依法治国,是我们党在治国理政上的自我完善、自我提高,不是在别人压力下做的。在坚持和拓展中国特色社会主义法治道路这个根本问题上,我们要树立自信、保持定力。走中国特色社会主义法治道路是一个重大课题.有许多东西需要深入探索,但基本
Themostobviouspurposeofadvertisingistoinformtheconsumerofavailableproductsorservices.Thesecond【C1】______istos
A、Clever.B、Mad.C、Stupid.D、Lazy.A要听懂最后一句:“Youaretheeighth,thefishermanansweredhappily,”并结合听力内容的整体来做。
最新回复
(
0
)