某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。Private Sub Form_Click()Dim k as Integer， n as Integer，m as Integern=10 ：m=1 : k=1Do While k＜=nm=m*2k=k+1LoopMsgBox mEnd Sub

题目

某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。

Private Sub Form_Click()

Dim k as Integer， n as Integer，m as Integer

n=10 ：m=1 : k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

相似考题

1.设有以下窗体单击事件过程：Private Sub Form_Click()a=1For i=1 To 3End SelectNext iEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是( )。

2.在窗体上添加一个命令按钮(名为Commandl)，然后编写如下程序：打开窗体运行后，单击命令按钮，消息框的输出结果为__________。

3.设有以下窗体单击事件过程：Private Sub Form_Click()a＝1For i＝1 To 3Select Case iCase 1,3a＝a＋1Case 2,4a＝a＋2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体消息框的输出内容应为【 】。

4.某个窗体已编写如下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为______。PrivateSubForm_Click()DimKasInteger,nasInteger,masIntegern=10：m=1:k=1DoWhileK＜=nm=m*2k=k+1LoopMsgBoxmEndSub

参考答案和解析
正确答案：1024
1024 解析：本题考查考生对VBA中控制结构的掌握。考生应该重点掌握VBA的控制结构，本题中的Do While…Loop循环结构是考试重点内容。在题目所给程序中，第一次循环结束后，m=1*2=2，即21；第二次循环结束后， m=2*2=4，即22；可见每次循环都使得m变为原来大小的2倍。因为k的初始值为1，终止条件为k=10，所以循环一共可以执行10次，因此m最后的值应该为210，即1024。
更多“某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为【】。Private Sub Form_C ”相关问题

  • 第1题：

    设有以下窗体单击事件过程：

    打开窗体运行后，单击窗体，则消息框的输出内容是( )。


    正确答案：5
    5 解析： 本题考查的是VBA中的控制结构。SelectCase结构运行时，首先计算“表达式”的值，它可以是字符串或者数值变量或表达式。然后会依次计算测试每个Case表达式的值，直到值匹配成功，程序会转入相应Case结构内执行语句。本题中，当i=1和3的时候，执行a=a+1，当i=2时，执行a=a+2，所以a=1+1+2+1=5。

  • 第2题：

    请教:2012年3月全国计算机等级《二级Access》模拟试卷(7)第2大题第8小题如何解答?

    【题目描述】

    某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为__________

     


    【参考答案分析】：

    9【解析】本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前丽还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中先判断条件后执行循环体，通过观察看出，i每次自加3，则每次循环中j的值分别为l、4、7、10，当i为l3时由于满足Until条件而退出循环，所以循环共执行4次，最后a的值为9。

     

  • 第3题：

    某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。

    Private Sub Form_Click()

    Dim k As Integer,n As Integer，m As Integer

    n=10：m=1：k=1

    Do While k＜=n

    m=m*2

    k=k+1

    Loop

    MsgBox m

    End Sub


    正确答案：1024
    1024 解析：Do While语句是先判断条件，如果条件为True，则执行循环体。本题中的条件表达式是k=n，而刚开始k=1，n=10，而循环依次k就加1，故一共要执行10次循环。而m每执行一次就乘2，故一共乘了10次2，最后 m的值为1024。

  • 第4题：

    某个窗体己编写下列事件过程。打开窗体运行后，单击窗体，消息框的输出结果为 ______。

    Pfivate Sub Form_Click()

    a＝1

    i＝1

    Do Until i>10

    a＝a+2

    i＝i+3

    Loop

    MsgBox a

    End Sub


    正确答案：9
    9 解析： 本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环：在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中先判断条件后执行循环体，通过观察看出，i每次自加3，则每次循环中i的值分别为1、4、7、10，当i为13时由于满足Until条件而退出循环，所以循环共

  • 第5题：

    在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：

    窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。


    正确答案：
    2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。

相关内容