编写如下程序： Private Sub Command1_Click() Dim x As Integer，y As Integer x=1：y=1 Do y=x*y

admin2015-08-28 28

问题编写如下程序：
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跳出循环。

转载请注明原文地址:https://jikaoti.com/ti/4HJ0FFFM

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

二级VB

NCRE全国计算机二级

相关试题推荐

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：PrivateSubCommand1_Click()Dimx.y,zAsIntegerx=5y=7z=0
以下程序的功能是：把当前目录下的顺序文件smText1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。PrivateSubCommand1_Click()DiminDataAsStringText1.Text=""Op
设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSub
设有如下记录类型：TypestudentNumberAsString*10NameAsString*8EndType窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据
在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，即命令按钮，程序可找出在文本框中输入的其他所有英文字母，并以大小写方式降序显示到Text1中，显示的字符串是ZYXWUTSRQ
下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。PrivateSubnumCount()DimhumAsIntegers＄="softwareAndhardw
文本框控件最多能处理______个字节。
在深度为5的满二叉树中，叶子结点的个数为______。
下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。PrivateSub
某二叉树中度为2的结点有18个,则该二叉树中有【】个叶子结点。

随机试题

肿瘤
某纳税单位足额缴纳税款后，又采取假报出口或其他欺骗手段骗取全部所缴纳的税款，数额巨大。对本案的下列表述哪些是不正确的?(　　　)
最大诚信原则的具体内容包括(　　)。
学校临开敞中庭的栏杆高度最低限值是()m。
企业质量管理体系的认证应由()进行。
出境快件应在运输工具离境3小时之前，向海关申报
客户分类在个人信用评估模型的构建过程中优点非常明显，但国内商业银行实际应用的较少，主要原因在于()。
试析信息技术对教育的影响。
我国解决民族问题的基本原则是坚持()。
Questions27-30Foreachquestion,onlyONEofthechoicesiscorrect.Writethecorrespondingletterintheappropriateboxon

最新回复(0)

编写如下程序： Private Sub Command1_Click() Dim x As Integer，y As Integer x=1：y=1 Do y=x*y

二级VB

NCRE全国计算机二级

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：PrivateSubCommand1_Click()Dimx.y,zAsIntegerx=5y=7z=0

以下程序的功能是：把当前目录下的顺序文件smText1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。PrivateSubCommand1_Click()DiminDataAsStringText1.Text=""Op

设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSub

设有如下记录类型：TypestudentNumberAsString*10NameAsString*8EndType窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据

下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。PrivateSubnumCount()DimhumAsIntegers＄="softwareAndhardw

文本框控件最多能处理______个字节。

在深度为5的满二叉树中，叶子结点的个数为______。

某二叉树中度为2的结点有18个,则该二叉树中有【】个叶子结点。

肿瘤

某纳税单位足额缴纳税款后，又采取假报出口或其他欺骗手段骗取全部所缴纳的税款，数额巨大。对本案的下列表述哪些是不正确的?( )

最大诚信原则的具体内容包括( )。

学校临开敞中庭的栏杆高度最低限值是()m。

企业质量管理体系的认证应由()进行。

出境快件应在运输工具离境3小时之前，向海关申报

客户分类在个人信用评估模型的构建过程中优点非常明显，但国内商业银行实际应用的较少，主要原因在于()。

试析信息技术对教育的影响。

我国解决民族问题的基本原则是坚持()。

Questions27-30Foreachquestion,onlyONEofthechoicesiscorrect.Writethecorrespondingletterintheappropriateboxon

设有如下记录类型：TypestudentNumberAsString10NameAsString8EndType窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据

某纳税单位足额缴纳税款后，又采取假报出口或其他欺骗手段骗取全部所缴纳的税款，数额巨大。对本案的下列表述哪些是不正确的?(　　　)

最大诚信原则的具体内容包括(　　)。