编写如下程序： Private Sub Conunand1_Click() Dim x As Integer，y As Integer x=1 y=1 Do y=x*y If y＞10 Then Exit Do Else x=x+3 End If Loop

admin2016-06-23 54

问题编写如下程序：
Private Sub Conunand1_Click()
Dim x As Integer，y As Integer
x=1
y=1
Do
y=x*y
If y＞10 Then
Exit Do
Else
x=x+3
End If
Loop Until x＜=10
Print x；yY
End Sub
程序运行后，单击命令按钮Command1，输出结果为

选项 A、1 1
B、4 1
C、4 2
D、7 28

答案B

解析 Do…Loop Until循环当条件为真时循环执行循环体。代入初值进行计算可得结果。选B。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

在窗体上画1个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load()　　Open"d:\temp\dat.txt"ForOutputAs#1　　Text1.Text=""EndSu
在窗体模块中用Public定义的变量的作用范围是
要将窗体Form1标题设为“学习VB”，以下能正确实现该功能的语句为
向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click()　　Open"c:\Temp.txt"，OutputAs#1　　For
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxtA_KeyPress(Keyasciiasinteger)　　……EndSub若焦点位于文本框中，则能够触发KeyPress事
单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger，bAsInteger，cAsInteger　　a=3:b=4:c=5　　PrintSec
窗体上建立了一个名为CormnonDialong1的通用对话框，用下面的语句建立一个对话框：CommonDialong1.action=2则以下语句与之等价的是（）。
下列程序的运行结果是()。s=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3　s=s+1Nextzt=t+1Nextyu=u+1
在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()　　DimiAsInteger,xAsInteger　　Fori_1T06　　
下列程序段的执行结果为()。A=0:B=1A=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:B

随机试题

公文写作要求实事求是，在业务处理上必须符合()
关于慢性支气管炎的临床表现，正确的是
目前感染人类的禽流感病毒亚型中，感染者病情重，病死率高的是()
联合国产业分类法所作的统计有很高的()。
企业已经确认销售商品收入发生销售折让时，应冲减当月的销售商品收入，不应该冲减销售商品的成本和相应的增值税销项税额。()
A公司为支付货款，向B公司签发了一张金额为200万元的银行承兑汇票，某商业银行作为承兑人在票面上签章。B公司收到汇票后将其背书转让给C公司，以偿还所欠C公司的租金．但未在被背书人栏内记载C公司的名称。C公司欠D公司一笔应付账款，遂直接将D公司记载为B公司的
红山文化发现的泥塑()表现了对祖先的崇拜或寄托对大地母神、农业丰收、万物生育的虔诚祝福。
党的绝对领导通过党委对公安机关实际的、间接的领导才能得到落实。（）
(2011年安徽.70)剪纸是中国的民间艺术，剪纸方法很多，下图是一种剪纸方法的图示(先将纸折叠，然后再剪，展开即得到图案)。下面的四个图案，不能用上述方法剪出的是()。
Afterretiringfrom30yearsofteaching,EthbellPeppercouldeasilyhavedecidedtositbackand【B1】______andenjoyapeaceful

最新回复(0)

编写如下程序： Private Sub Conunand1_Click() Dim x As Integer，y As Integer x=1 y=1 Do y=x*y If y＞10 Then Exit Do Else x=x+3 End If Loop

二级VB

NCRE全国计算机二级

在窗体上画1个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load() Open"d:\temp\dat.txt"ForOutputAs#1 Text1.Text=""EndSu

在窗体模块中用Public定义的变量的作用范围是

要将窗体Form1标题设为“学习VB”，以下能正确实现该功能的语句为

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

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxtA_KeyPress(Keyasciiasinteger) ……EndSub若焦点位于文本框中，则能够触发KeyPress事

单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger，bAsInteger，cAsInteger a=3:b=4:c=5 PrintSec

窗体上建立了一个名为CormnonDialong1的通用对话框，用下面的语句建立一个对话框：CommonDialong1.action=2则以下语句与之等价的是（）。

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

在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click() DimiAsInteger,xAsInteger Fori_1T06

下列程序段的执行结果为()。A=0:B=1A=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:B

公文写作要求实事求是，在业务处理上必须符合()

关于慢性支气管炎的临床表现，正确的是

目前感染人类的禽流感病毒亚型中，感染者病情重，病死率高的是()

联合国产业分类法所作的统计有很高的()。

企业已经确认销售商品收入发生销售折让时，应冲减当月的销售商品收入，不应该冲减销售商品的成本和相应的增值税销项税额。()

红山文化发现的泥塑()表现了对祖先的崇拜或寄托对大地母神、农业丰收、万物生育的虔诚祝福。

党的绝对领导通过党委对公安机关实际的、间接的领导才能得到落实。（）

(2011年安徽.70)剪纸是中国的民间艺术，剪纸方法很多，下图是一种剪纸方法的图示(先将纸折叠，然后再剪，展开即得到图案)。下面的四个图案，不能用上述方法剪出的是()。

Afterretiringfrom30yearsofteaching,EthbellPeppercouldeasilyhavedecidedtositbackand【B1】______andenjoyapeaceful

在窗体上画1个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load()　　Open"d:\temp\dat.txt"ForOutputAs#1　　Text1.Text=""EndSu

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

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxtA_KeyPress(Keyasciiasinteger)　　……EndSub若焦点位于文本框中，则能够触发KeyPress事

单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger，bAsInteger，cAsInteger　　a=3:b=4:c=5　　PrintSec

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

在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()　　DimiAsInteger,xAsInteger　　Fori_1T06　　