首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
51
问题
编写如下程序:
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全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中;②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签,名称为L1,标题为“业余爱好”,再画一个名称为Chl的复选框数组,含三个复选框,它们的Index属性分别为0、1、2,标题依
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Form1的窗体上画一个名称为Text1的文本框,然后建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“退出”,其名称分
在考生文件夹下有一个工程文件sjt5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Text1的文本框;画一个名称为C1、标题为“计算”的命令按钮;再画两个单选按钮,名称分别为Op1、Op2,标题分别为“求500到
下面不属于需求分析阶段任务的是( )。
下列叙述中正确的是
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
周密《观潮》是一篇描写观看钱塘潮的__________,生动地再现了临安官民观潮的盛况。
属于完全再生的是
患者,男性,47岁,胃大部切除术后4天。观察发现:患者体温38.6℃,切口红肿、疼痛。该患者最可能出现的情况是
某市公证处公证员李某为一对王姓夫妇办理“爱情忠贞协议”公证时,协议中有“女方不得和其他男子讲话”等内容。公证员李某未经审查就在协议上签名并加盖了公证处公章。对此公证,以下说法正确的是哪一或者哪些选项?()
对于评估报告书的尾部,应写明出具报告书的机构名称并加盖公章,且()。
WTO的服务贸易规则中规定的商业存在是指服务提供者在外国建立商业机构,为消费者服务。()
龙马负图、神龟载书,远古时代河图洛书的传说,数千年来被认为是中华传统文化的源头。河图出于河南洛阳市的孟津县,人们对它已是_________,而洛书出于何处,一直_________,没有定论。填入画横线部分最恰当的一项是:
中学教师将自己的教育硕士论文题目定为“×省校园安全问题的调查研究”,导师否定了他的题目。这一选题违背了
Imagineaworldinwhichweareassignedanumberthatindicateshowinfluentialweare.Thisnumberwouldhelpdetermine【C1】___
Howstupiddoesoneneedtobetogetajobreadingthetelevisionnews?IsitactuallybeneficialforTVnewsreaderstohave,i
最新回复
(
0
)