首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Comoaand1_Click( ) Dim score As Integer score=86 If score>85 Then r
编写如下程序: Private Sub Comoaand1_Click( ) Dim score As Integer score=86 If score>85 Then r
admin
2020-05-11
66
问题
编写如下程序:
Private Sub Comoaand1_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/gEHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组optItern,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态
请根据以下各小题的要求设计VisualBasic用程序(包括界面和代码)。(1)在名称为Form1的窗体上画两个文本框,名称分别为T1、T2,初始情况下都没有内容。请编写适当的事件过程,使得在运行时,在T1中输入的任何字符,立即显示在T2中
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“添加”;有一个文本框,名称为Text1,初始内容为空白;有一个列表框,名称为List1。程序运行后,在文本框中输
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出大
在考生的文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。在窗体上有两个命令按钮,其名称分别为Command1和Command2,标题分别为“写文件”和“读文件”,如图3-131(a)所示。其中“写文件”命令按钮事件过程用来建立一个
设有如下通用过程:PublicFunctionf(xAsInteger)DimYAsIntegerx=20Y=2f=X*YEndFunction
设有变量声明为”DimaDateAsDate”,则能为变量aDate正确赋值的表达方式是()。
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePerson nameAsString*8 majorAsSt
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsSlring)AsIntegerEndFunction若已有变量声明:Dimx(5)AsInteger
随机试题
以下表述中,不属于在产品评估中成本法的具体应用的是()
花岗岩的放射性比活度由低到高的排序是A类、B类、C类和其他类,下列叙述中哪条不正确?[2006—057]
某建设工程施工项目招标文件要求中标人提交履约担保,中标人拒绝提交,则应()。
下列各项中,属于会计法律的是()。
右图为高等动物细胞分裂示意图,它不能反映的是()。
平静:讲述
古罗马共和时期的教育主要是(),以培养()为最高目标。
TheSouthdaleshoppingcentreinMinnesotahasanatrium,afoodcourt,fountainsandacresofparking.ItsshopsincludeaDair
Aswithanyworkofart,themeritofChapmanKelleyV’WildflowerWorksI"wasintheeyeofthebeholder.Kelley,whonormal
A、Tolookforcreativeideasofawardingemployees.B、Toexplorestrategiesforloweringproductioncosts.C、Toseeknewapproac
最新回复
(
0
)