编写如下程序： Private Sub Comoaand1_Click( ) Dim score As Integer score=86 If score＞85 Then r

admin2020-05-11 48

问题编写如下程序：
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全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

编写如下程序：PrivateSubCommand1_Click()DimnAsInteger：StaticsAsIntegerForn=1To3s=s+nNextPrintsEndSub程序运行后，第三次单击命令按
（1）在考生文件夹下有一个工程文件sjt3.vbp，其窗体上有一个名称为Text1的文本框；一个名称为L1的列表框；一个命令按钮，名称为C1，标题为“添加”（如图1－181所示）。程序的功能是，在运行时，如果在文本框中输入一行内容并单击“添加”按钮，则把文
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1，两个标题分别是“读数据”和“计算”的命令按钮；请画一个标题为“各行最小数的平均值为”的标签Label2，再画一个初始内容为空的文本框Text2，如图1－230所示。程序功能如下
(1)在考生文件夹下有工程文件sjt5．vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮，请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1，初始值为空的文本框，如图3－87所示。程序功能如下：①单击“读
在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分
在窗体上建立三个菜单（名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2）（如图1－267所示）。程序运行
以下关于文件的叙述中，错误的是(　　)。
已知a＝6，b＝15，c＝23，则语句PrintSgn(a＋bMod6－c\a)&a＋b的输出结果为(　　)。
为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为

随机试题

InMr.Allen’shighschoolclass,allthestudentshaveto"getmarried".However,theweddingceremoniesarenotrealonesbut
完全性子宫破裂者典型的临床表现是
喂小儿服汤药的方法错误的是
某大型民航设计院通过公开投标方式中标某4D机场的航站楼工程建设，并与业主签订了工程总承包合同。由于工程总承包企业为设计单位，没有相应施工资质。因此，通过公开招标的方式选择有相应资质的施工总承包企业施工。业主单位根据国家规定聘请了施工监理单位。事件一：签订
长期借款的偿还方式有()。
关于个人汽车贷款的原则，下列说法中错误的是()。
物流系统战略规划属于企业物流()的内容。
下列选项中，适用不当得利的情形有()。
有经验的飞行员在学习驾驶新研制的超轻型飞机时遇到的问题经常比新手还多。因为他们已经习惯了重型飞机，所以在驾驶超轻型飞机时，似乎对风没有引起应有的注意。文中暗示上面提到的重型飞机，以下哪项作为题干蕴涵的结论最为恰当?
蟾蜍有毒，蟾衣却可人药。某青年农民偶然看到了蟾蜍蜕变的过程，于是开始了巧获蟾衣的探索。经过反复观察、实验、总结，发现蟾蜍蜕皮是其生长过程的自然现象，一般在黑夜发生，过程很短，然后马上吃掉；还发现蟾蜍的眼睛对运动的物体敏感。根据这些情况，他发明了通过控制光线

最新回复(0)

编写如下程序： Private Sub Comoaand1_Click( ) Dim score As Integer score=86 If score＞85 Then r

二级VB

NCRE全国计算机二级

编写如下程序：PrivateSubCommand1_Click()DimnAsInteger：StaticsAsIntegerForn=1To3s=s+nNextPrintsEndSub程序运行后，第三次单击命令按

在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937

在窗体上建立三个菜单（名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2）（如图1－267所示）。程序运行

以下关于文件的叙述中，错误的是( )。

已知a＝6，b＝15，c＝23，则语句PrintSgn(a＋bMod6－c\a)&a＋b的输出结果为( )。

为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为

InMr.Allen’shighschoolclass,allthestudentshaveto"getmarried".However,theweddingceremoniesarenotrealonesbut

完全性子宫破裂者典型的临床表现是

喂小儿服汤药的方法错误的是

长期借款的偿还方式有()。

关于个人汽车贷款的原则，下列说法中错误的是()。

物流系统战略规划属于企业物流()的内容。

下列选项中，适用不当得利的情形有()。

以下关于文件的叙述中，错误的是(　　)。

已知a＝6，b＝15，c＝23，则语句PrintSgn(a＋bMod6－c\a)&a＋b的输出结果为(　　)。