设有如下程序： Private Sub Command1_Click() 　　Dim c As Integer,d As Integer 　　c=4 　　d=InputBox("请输入一个整数") 　　Do While d＞0

admin2012-03-22 41

问题设有如下程序： Private Sub Command1_Click() 　　Dim c As Integer,d As Integer 　　c=4 　　d=InputBox("请输入一个整数") 　　Do While d＞0 　　　If d＞c Then 　　　　c=c+1 　　　End If 　　　d=InputBox("请输入一个整数") 　　Loop 　　Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9和0，则输出结果是( )。

选项 A、12
B、11
C、10
D、9

答案D

解析

转载请注明原文地址:https://kaotiyun.com/show/sFhp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。PrivateSubComb
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　a=12345　　PrintFormat$(a,"000.00")　EndSub　程序运行后，单击命令按钮，窗
在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并对文本框中显示出来，如图所示。请
阅读程序：OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint“输入的数据是：”；Fori＝1To3a(i)=InputBox(“输人数据”)Printa(i)；
已知数据表A中每个元素距其最终位置不远，为节省时间，应采用的算法是_______。
如果要将形状控件的内部设置为水平线，应将Fillstyle属性设置为【】。
一个工程必须包含的文件的类型是
以下能判断是否到达文件尾的函数是

随机试题

女性，42岁，售货员，右下肢静脉迂曲、扩张8年，长时间站立有小腿酸胀，可凹性浮肿，近年来常有小腿皮肤瘙痒，色素沉着，检查Trendelenburg试验(+)、Perthes试验(-)。初步诊断是
萎缩的心肌细胞核的两端沉积的色素颗粒是()。
关于国家污染物排放标准之间关系的正确描述是()。
实验结果表明，对于流体在圆管内流动，当Re为(　　)时，流动型态为过渡流。
某卷烟批发企业2017年3月，批发销售给卷烟零售企业卷烟6标准箱，取得含税收入120万元，该企业当月应纳消费税()万元。
元代杂剧作家关汉卿的代表作是()。
电信接入网具有()功能。
rangingofreceiveA.sendand【T7】______e-mailB.sources【T8】______fromvastdatabasestosmallelectronic"bulletinboards"
根据我国法律的规定，以下合同中属于实践性合同的是()。
A.beingontimeforanyinterviewB.beingnicetoeveryoneyoutalktoC.beinghonestintheinterviewD.become

最新回复(0)

设有如下程序： Private Sub Command1_Click() Dim c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0

二级VB

NCRE全国计算机二级

在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。PrivateSubComb

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： PrivateSubCommand1_Click() a=12345 PrintFormat$(a,"000.00") EndSub 程序运行后，单击命令按钮，窗

阅读程序：OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint“输入的数据是：”；Fori＝1To3a(i)=InputBox(“输人数据”)Printa(i)；

已知数据表A中每个元素距其最终位置不远，为节省时间，应采用的算法是_______。

如果要将形状控件的内部设置为水平线，应将Fillstyle属性设置为【】。

一个工程必须包含的文件的类型是

以下能判断是否到达文件尾的函数是

女性，42岁，售货员，右下肢静脉迂曲、扩张8年，长时间站立有小腿酸胀，可凹性浮肿，近年来常有小腿皮肤瘙痒，色素沉着，检查Trendelenburg试验(+)、Perthes试验(-)。初步诊断是

萎缩的心肌细胞核的两端沉积的色素颗粒是()。

关于国家污染物排放标准之间关系的正确描述是()。

实验结果表明，对于流体在圆管内流动，当Re为( )时，流动型态为过渡流。

某卷烟批发企业2017年3月，批发销售给卷烟零售企业卷烟6标准箱，取得含税收入120万元，该企业当月应纳消费税()万元。

元代杂剧作家关汉卿的代表作是()。

电信接入网具有()功能。

rangingofreceiveA.sendand【T7】______e-mailB.sources【T8】______fromvastdatabasestosmallelectronic"bulletinboards"

根据我国法律的规定，以下合同中属于实践性合同的是()。

A.beingontimeforanyinterviewB.beingnicetoeveryoneyoutalktoC.beinghonestintheinterviewD.become

设有如下程序： Private Sub Command1_Click() 　　Dim c As Integer,d As Integer 　　c=4 　　d=InputBox("请输入一个整数") 　　Do While d＞0

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　a=12345　　PrintFormat$(a,"000.00")　EndSub　程序运行后，单击命令按钮，窗

以下能判断是否到达文件尾的函数是　

实验结果表明，对于流体在圆管内流动，当Re为(　　)时，流动型态为过渡流。

rangingofreceiveA.sendand【T7】e-mailB.sources【T8】fromvastdatabasestosmallelectronic"bulletinboards"