首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim score As Integer score = 86 If score > 85 Then r = 1 ElseIf score >
编写如下程序: Private Sub Command1_Click() Dim score As Integer score = 86 If score > 85 Then r = 1 ElseIf score >
admin
2015-10-23
69
问题
编写如下程序:
Private Sub Command1_Click()
Dim score As Integer
score = 86
If score > 85 Then
r = 1
ElseIf 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…Else If…Else…End If语句。条件判断成立则执行对应分支的语句。86>85,所以r=1。选B。
转载请注明原文地址:https://kaotiyun.com/show/tULp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如下图所示,在名为Form1的窗体上建立一个名为Text1的文本框,然后建立两个主菜单,标题分别为“等级”和“帮助”,名称分别为vbMenu和vbHelp,其中“等级”菜单包括“A级”、“B级”和“C级”3个菜单项,名称分别为vbMenu1、vbMenu2
在考生文件夹下有文件in6.txt,文件中有几行汉字。请在窗体Form1上绘制一个文本框,名称为Text1,能显示多行;再绘制一个命令按钮,名称为Cmd1,标题为“保存”。并编写适当的事件过程,使得在加载窗体时,把in6.txt文件的内容显示在文本框中,然
语句PrintSgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是()。
设计软件结构是在软件生命周期的()。
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、【】和选择排序等。
在VisualBasic中,要使标签的标题居中显示,则将其Alignment属性设置为()。
下列关于闲置循环的四个叙述中,错误的是()。
假定在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求在执行事件过程Command1_Click()时,在顺
在E盘当前目录文件夹下建立一个名为“Student.txt”,的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序(
在VisualBasic中,下列优先级最高的运算符是
随机试题
Bettingagainstanindustrywithaddictsforcustomerscarriesobviousrisks.【C1】________theseareuncertaintimesforBigTobac
A.吸氧B.物理降温C.带护眼罩D.针刺入中E.口腔护理患儿惊厥发作时的应急措施是
对于肥胖症儿童来说,急速减肥会导致身体内分泌功能紊乱,因此应保证每周体重降低幅度不多于()千克。
A、 B、 C、 D、 A本题属于样式类,主要考察了图形样式的运算,第一组图形中,前两个图形线条去同存异得到第三个图形,依照此规律,所以选择A选项。
以下情况不能录用为公务员的是()。
媒介在人类社会发展中起着极其重要的作用,试问可以从哪些角度分析理解媒介对社会变迁的影响,请举例说明。(北大2011研)
Anytroopofwildanimalsshouldbeapproachedwarily.
A、RussiawilldelivernuclearfueltoIran.B、IranwillshipwastenuclearrodsbacktoRussia.C、Thetwocountrieswillbuilda
Scientistshavediscoveredstrandsofgeneticcodelinkedtoshortsight,themostcommoneyedisorderintheworld.Thefinding
HowtoMakePeacewithYourWorkloadA)Swamped(忙碌的),underthegun,juststrugglingtostayabovewater:whateverofficeclic
最新回复
(
0
)