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

2.某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。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

3.在窗体下添加一个命令按钮(名为CommandI)，然后编写如下程序：打开窗体运行后，单击命令按钮，消息框的输出结果为（ ）。A. 10B. 20C. TD. F

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

参考答案和解析
正确答案：1024
1024 解析：Do While语句是先判断条件，如果条件为True，则执行循环体。本题中的条件表达式是k=n，而刚开始k=1，n=10，而循环一次k就加1，故一共要执行10次循环。而m每执行一次就乘2，故一共乘了10次2，最后m的值为1024。
更多“为某个窗体编写如下事件,单击窗体,消息框显示的结果为【】。 Private Sub Form_Click( )Dim k As In ”相关问题

  • 第1题：

    在窗体上添加一个命令按钮(名为Commandl)，编写如下事件过程：打开窗体后，单击命令按钮，消息框的输出结果是（ ）。

    A. 7

    B. 15

    C. 157

    D. 528


    正确答案：B
    本题考查VBA中多重循环的知识。见 到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题 就迎刃而解了。本题中，在每一次外循环开始的时候都把x的值置 为4。所以我们只分析最后一次循环就可以了；同理中层循环每一 次开始前都把x的值置为3，所以这个问题最后实际上就是x的初 值为3，执行最内层循环直到结束就可以了。根据程序内循环执行 两次．最后x=3+6+0=15。

  • 第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。

相关内容