编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 The

admin2018-09-19 26

问题编写如下程序：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 1: y = 1
Do
   y = x * y
   If y > 10 Then
      Print x, y
      Exit Do
   Else
      x = x + 3
   End If
Loop While x <= 10
End Sub
运行程序，循环实际执行次数为、

选项 A、0
B、2
C、3
D、4

答案C

解析 x初值为1。第一次先执行循环然后判断条件。在循环体中，x被加3，执行完第2次时x=7。执行第三次时，y=28，满足条件y>10，执行Exit Do跳出循环。选C）。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：窗体Form1中的程序如下：DimFlagAsBooleanPrivateSubForm_Load()　　Flag＝TrueEndSubPr
下面不属于软件设计阶段任务的是
VB应用程序不能把一个二维表格中的数据存入文件
如果要在语句：a=Array(1,2,3,4,5)的前面声明变量a，则正确的声明是
有以下通用过程：Functionfun(NAsInteger)　　s＝0　　Fork＝1ToN　　　　　　s＝s＋k*(k＋1)　　Nextk　　fun＝sEndFunction该过程的功能是(　　)。
有如下程序：PrivateSubForm_Click()　　DimiAsInteger，nAsInteger　　Fori＝1To20　　　　i＝i＋4　　　　n＝n＋i　　　　Ifi>10ThenExitFor　
以下数列：1，1，2，3，5，8，13，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“
设：a＝12，b＝5，c＝7，表达式x＝(a\c＋aModb)＋Int(13/5)的值是(　　)。
(1)在考生文件夹下有一个工程文件sjt3．vbp，程序的功能是，在运行时，如果选中一个或两个复选框和一个单选按钮，则对文本框中的文本内容做相应的设置，如图所示。窗体上的控件已经给出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
设窗体文件中有下面的事件过程：PrivateSubCommand1_Click()　　Dims　　a%＝100　　PrintaEndSub其中变量a和s的数据类型分别是(　　)。

随机试题

胃溃疡表现为溃疡性结肠炎表现为
A．罗格列酮B．地西泮C．苯巴比妥D．卡马西平E．利奈唑胺属于噁唑烷酮类药物的是()。
全国公路工程施工招标投标活动的监督管理由谁负责()
函数关系实际上是(　　)关系。
下列关于投资性房地产后续计量，说法正确的是()。
甲股份有限公司(以下简称“甲公司”)系一家上市公司，2×15年至2×17年对乙股份有限公司(以下简称“乙公司”)股权投资业务的有关资料如下：(1)2×15年5月16日，甲公司与乙公司的股东丙公司签订股权转让协议。该股权转让协议规定：甲公司以5400万元收
每当有新闻事件发生，围观群众在期待意见领袖表态的同时，也期待着段子手的微博更新，前者负责提供观点，后者负责提供笑料，大家共同炒热话题，一不留神就创造了令外国友人惊叹的社交媒体新纪录。如果这段文字还有下文，最有可能讲述的是()。
在商品生产过程中，生产资料的价值是借助于生产者的
ToyLearnisanexcitingstart-upcompanythathasdevelopedalineofeducationaltoolsforchildren(31)arefunandengaging
Whatisthemainideaofthispassage?Theauthor’stoneinthispassageis______.

最新回复(0)

编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 The

二级VB

NCRE全国计算机二级

设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：窗体Form1中的程序如下：DimFlagAsBooleanPrivateSubForm_Load() Flag＝TrueEndSubPr

下面不属于软件设计阶段任务的是

VB应用程序不能把一个二维表格中的数据存入文件

如果要在语句：a=Array(1,2,3,4,5)的前面声明变量a，则正确的声明是

有以下通用过程：Functionfun(NAsInteger) s＝0 Fork＝1ToN s＝s＋k*(k＋1) Nextk fun＝sEndFunction该过程的功能是( )。

有如下程序：PrivateSubForm_Click() DimiAsInteger，nAsInteger Fori＝1To20 i＝i＋4 n＝n＋i Ifi>10ThenExitFor

设：a＝12，b＝5，c＝7，表达式x＝(a\c＋aModb)＋Int(13/5)的值是( )。

设窗体文件中有下面的事件过程：PrivateSubCommand1_Click() Dims a%＝100 PrintaEndSub其中变量a和s的数据类型分别是( )。

胃溃疡表现为溃疡性结肠炎表现为

A．罗格列酮B．地西泮C．苯巴比妥D．卡马西平E．利奈唑胺属于噁唑烷酮类药物的是()。

全国公路工程施工招标投标活动的监督管理由谁负责()

函数关系实际上是( )关系。

下列关于投资性房地产后续计量，说法正确的是()。

在商品生产过程中，生产资料的价值是借助于生产者的

ToyLearnisanexcitingstart-upcompanythathasdevelopedalineofeducationaltoolsforchildren(31)arefunandengaging

Whatisthemainideaofthispassage?Theauthor’stoneinthispassageis______.

设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：窗体Form1中的程序如下：DimFlagAsBooleanPrivateSubForm_Load()　　Flag＝TrueEndSubPr

有以下通用过程：Functionfun(NAsInteger)　　s＝0　　Fork＝1ToN　　　　　　s＝s＋k*(k＋1)　　Nextk　　fun＝sEndFunction该过程的功能是(　　)。

有如下程序：PrivateSubForm_Click()　　DimiAsInteger，nAsInteger　　Fori＝1To20　　　　i＝i＋4　　　　n＝n＋i　　　　Ifi>10ThenExitFor　

设：a＝12，b＝5，c＝7，表达式x＝(a\c＋aModb)＋Int(13/5)的值是(　　)。

设窗体文件中有下面的事件过程：PrivateSubCommand1_Click()　　Dims　　a%＝100　　PrintaEndSub其中变量a和s的数据类型分别是(　　)。

函数关系实际上是(　　)关系。