编写如下程序： 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 En

admin2016-06-23 55

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click()　　Open"c:\Temp.txt"，OutputAs#1　　For
单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()　　BT4EndSubPrivateSubBT(xAsInteger)　　x=x*2+1　　Ifx＜6
下列事件过程运行后输出结果是PrivateSubCommand1_Click()　　PrintFormats(123,456，"###,##%")EndSub
长度为n的顺序存储线性表中，当在任何位置上插入一个元素概率都相等时，插入一个元素所需移动元素的平均个数为______。
下列程序的运行结果是()。s=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3　s=s+1Nextzt=t+1Nextyu=u+1
下面语句的输出结果为______。x!=3.1415926Printx
下列各选项说法错误的一项是（）。
表达式Str(Len"123’))+Str(77.7)的值是（）。
(1)在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框，通过属性窗口输入4个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为1100，高不限。注意：存盘时必须存放在考生文
下列运算符中，优先级别最低的是

随机试题

下列哪项是氧化磷酸化的解偶联剂
根据《民事诉讼法》和司法解释的相关规定，关于级别管辖，下列哪些表述是正确的?(2012年试卷三第78题)
普通硅酸盐水泥的代号是()。
防水混凝土冬期施工宜采用()保证施工质量。
旅行社服务网点从事招徕、咨询以外的旅行社业务经营活动的不属于超范围经营。()
19世纪，爱默生和其他一些作家向读者传授一种称为“自助论”的理论。在这些人看来，一个有个性的人必须要有一颗充实的大脑。在这种思想的指导下，为了得到他人的尊重，有必要在闲暇时广泛涉猎文化史上的杰出著作。同时，也有必要熟悉哲学、神学和世界范围内的重大政治事件。
在泸州遗赠案中，法院认为，尽管继承法中有明确的法律条文，而且本案中的遗赠也是真实的，但是黄某将遗产赠给“第三者”的这种民事行为违反了民法通则第七条“民事活动应当尊重社会公德，不得损害社会公共利益，破坏国家经济计划，扰乱社会经济秩序”，因此，遗赠是无效的。
设Ω：x2+y2+z2≤1，证明：
WelcometothePublicBusSystem.Itsbusnetworkoperates365daysoftheyearandhas【11】thatcantakeyoutoyourdestinati
Werecognizethatthekeytoqualityassuranceiscontinuousalertness.Thatiswhyoursystemsarecontrolledcentrally,andpe

最新回复(0)

编写如下程序： 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 En

二级VB

NCRE全国计算机二级

向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click() Open"c:\Temp.txt"，OutputAs#1 For

单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click() BT4EndSubPrivateSubBT(xAsInteger) x=x*2+1 Ifx＜6

下列事件过程运行后输出结果是PrivateSubCommand1_Click() PrintFormats(123,456，"###,##%")EndSub

长度为n的顺序存储线性表中，当在任何位置上插入一个元素概率都相等时，插入一个元素所需移动元素的平均个数为______。

下列程序的运行结果是()。s=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3 s=s+1Nextzt=t+1Nextyu=u+1

下面语句的输出结果为______。x!=3.1415926Printx

下列各选项说法错误的一项是（）。

表达式Str(Len"123’))+Str(77.7)的值是（）。

下列运算符中，优先级别最低的是

下列哪项是氧化磷酸化的解偶联剂

根据《民事诉讼法》和司法解释的相关规定，关于级别管辖，下列哪些表述是正确的?(2012年试卷三第78题)

普通硅酸盐水泥的代号是()。

防水混凝土冬期施工宜采用()保证施工质量。

旅行社服务网点从事招徕、咨询以外的旅行社业务经营活动的不属于超范围经营。()

设Ω：x2+y2+z2≤1，证明：

WelcometothePublicBusSystem.Itsbusnetworkoperates365daysoftheyearandhas【11】thatcantakeyoutoyourdestinati

Werecognizethatthekeytoqualityassuranceiscontinuousalertness.Thatiswhyoursystemsarecontrolledcentrally,andpe

向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click()　　Open"c:\Temp.txt"，OutputAs#1　　For

单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()　　BT4EndSubPrivateSubBT(xAsInteger)　　x=x*2+1　　Ifx＜6

下列事件过程运行后输出结果是PrivateSubCommand1_Click()　　PrintFormats(123,456，"###,##%")EndSub

下列程序的运行结果是()。s=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3　s=s+1Nextzt=t+1Nextyu=u+1