编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 86 If score > 85 Then r = 1 ElseIf score >

admin2015-08-28 49

问题编写如下程序：
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/RaQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个主菜单，标题为“操作”，名称为op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，其名称分别为Dis和Clear，编写适当的事件过程
(1)在考生目录下有一个工程文件sjt3．vbp，窗体文件中已给出所有控件和部分程序，如图1-118所示。要求：①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；②请编写适当的程序完成以下功能：在Textl中输入40(度数)，选择一个
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为CDl的通用对话框，通过属性窗口设置CDI的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图1-44所示。注意
(1)在考生文件夹中有工程文件sjt3．vbp，其中的窗体如图1-46所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签Label2中。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Textl的文本框，其高、宽分别为400、2000。运行后的窗体如图1-109所示。请在属性框中设置适当的属性满足以下要求：①Tex
在考生文件夹下有一个工程文件sjt5．vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组USel"S中，注册用户数(最多10个)放在全局变量n中(均已在标准模块
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Forml的窗体上画一个名称为Pl的图片框，然后建立一个主菜单，标题为“操作”，名称为op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea
以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。PrivateSubForm_click()Dimx，yAsSingleDimzAsInteg
已知字母A的ASCII码是65，运行下面程序后输出的结果是______。M=65:A$=""Fori=1To3A$=A$+Chr$(M)M
设有语句Open"c：\Test.Dat"ForOutputAs#1则以下错误的叙述是______。

随机试题

Theenergywhichthesunradiatesgoesineverydirection,andonlyaminutepartofitfallsontheearth.Evenso,itreprese
TheMonaLisaisshowingherage,museumcurators(馆长)inParissaidwhileannouncingascientificstudyofthe500-year-oldmaste
A．中性粒细胞增多B．淋巴细胞增多C．嗜酸粒细胞减少D．单核细胞增多E．嗜碱粒细胞增多亚急性细菌性心内膜炎可导致
地下公路隧道的横断面净空，除了包括建筑限界外，还应包括()。
根据《公司法》规定，有限责任公司股东会的职权不包括()。
下列各项中，应采用实地盘点法进行清查的有()。
某大学金融系教授甲接受某期货公司乙的委托，作为居间人为其提供订立期货合约的机会，但最终没有促成合同的成立，则(　　)。
下列固定资产中，不能实行加速折旧的是()。
数据库系统的三级模式不包括(　　)。
Itistimetheauthoritiesconcerned______(采取适当措施来解决交通问题).

最新回复(0)

编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 86 If score > 85 Then r = 1 ElseIf score >

二级VB

NCRE全国计算机二级

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Textl的文本框，其高、宽分别为400、2000。运行后的窗体如图1-109所示。请在属性框中设置适当的属性满足以下要求：①Tex

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。PrivateSubForm_click()Dimx，yAsSingleDimzAsInteg

已知字母A的ASCII码是65，运行下面程序后输出的结果是______。M=65:A$=""Fori=1To3A$=A$+Chr$(M)M

设有语句Open"c：\Test.Dat"ForOutputAs#1则以下错误的叙述是______。

Theenergywhichthesunradiatesgoesineverydirection,andonlyaminutepartofitfallsontheearth.Evenso,itreprese

TheMonaLisaisshowingherage,museumcurators(馆长)inParissaidwhileannouncingascientificstudyofthe500-year-oldmaste

A．中性粒细胞增多B．淋巴细胞增多C．嗜酸粒细胞减少D．单核细胞增多E．嗜碱粒细胞增多亚急性细菌性心内膜炎可导致

地下公路隧道的横断面净空，除了包括建筑限界外，还应包括()。

根据《公司法》规定，有限责任公司股东会的职权不包括()。

下列各项中，应采用实地盘点法进行清查的有()。

某大学金融系教授甲接受某期货公司乙的委托，作为居间人为其提供订立期货合约的机会，但最终没有促成合同的成立，则( )。

下列固定资产中，不能实行加速折旧的是()。

数据库系统的三级模式不包括( )。

Itistimetheauthoritiesconcerned______(采取适当措施来解决交通问题).

某大学金融系教授甲接受某期货公司乙的委托，作为居间人为其提供订立期货合约的机会，但最终没有促成合同的成立，则(　　)。

数据库系统的三级模式不包括(　　)。