首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
44
问题
编写如下程序:
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://jikaoti.com/ti/2vS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图1-13(a)所示。输入商品名称后,选中一种付款方式,则“成交”按钮变为可用,选择一种或多种“服务”后,单击“成交”按钮,则把相应信息显示在下面的图片框中,如图1-13(b)所示。若不选任
请根据以下各小题的要求设计VisualBasic用程序(包括界面和代码)。(1)在名称为Form1的窗体上画两个文本框,名称分别为T1、T2,初始情况下都没有内容。请编写适当的事件过程,使得在运行时,在T1中输入的任何字符,立即显示在T2中
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3-100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“菜单”的窗体上,设计满足如下要求的菜单:运行后的窗体如图1-207所示。存盘时,将文件保存至考生文件夹下,且工程文件名为s
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图1-267所示)。程序运行
下列叙述中正确的是()。
软件需求分析阶段的工作,可以分为四个方面:需求获取、编写需求规格说明书、需求评审和()。
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsSlring)AsIntegerEndFunction若已有变量声明:Dimx(5)AsInteger
在学校每间宿舍住1到6名学生,每个学生只在一间宿舍居住,则实体宿舍与实体学生间的联系是()。
随机试题
中国古典的批评方法中的评点式批评的形式有【】
通常亦称作弥漫性实质性肺疾病的是上述哪种疾病是特发性间质性肺炎中病理表现为普通型间质性肺炎的一种类型,是ⅡP中最常见的一种
男性尿道有三处狭窄,第二处狭窄位于
医师对患者治病用药或制备任何药剂的书面文件,称为
具有截疟功效的药物是()
学生的实际发展水平与在成人的指导下可能达到的水平之间的差距,维果茨基称之为()。
在采用结构化方法进行系统分析时,根据分解与抽象的原则,按照系统中数据处理的流程,用()来建立系统的逻辑模型,从而完成分析工作。
12,4,8,6,7,()。
Readthistextaboutofficepaper.Inmostofthelines34—45thereisoneextraword.Itiseithergrammaticallyincorrectord
A、Themanwassorrytomissthe,footballgame.B、Themanattendedtheconcert,butdidn’tlikeit.C、Themanwassorrythathe
最新回复
(
0
)