itgle.com

在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()Dim a(10),p(3)As Integerk=5For i=1 To 10a(i)=i+iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k =k+p(i)*2Next iMsgBox kEnd SuB打开窗体运行后，单击命令按钮，消息框中输出的结果是【 】。

题目

在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB commandl_Click()

Dim a(10),p(3)As Integer

k=5

For i=1 To 10

a(i)=i+i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k =k+p(i)*2

Next i

MsgBox k

End SuB

打开窗体运行后，单击命令按钮，消息框中输出的结果是【 】。

相似考题

1.（ 10 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = i * iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) *2Next iMsgBox kEnd Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是 【 10 】 。

2.在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim S As Integer s=p(1)q+p(2)q+p(3)+p(4) debu9．Print S End Sub Public Function P(N As Integer) Dim Sum As IntegerSum==0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是（ ）。A.15B.20C.25D.35

3.在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1B. 2C. 3D. 4

4.在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim a(10)，P(3) As Integerk=5For i=1 To 10For i=1 To 3For i=1 To 3End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。

更多“在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB commandl_Click()Dim a(10),p(3) ”相关问题

  • 第1题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（ ）窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

    A. 1

    B. 2

    C. 3

    D. 4


    正确答案：A
    本题考查条件语句的知识。在 If．．．Then…Elself．．．语句中，当某一个条件满足时，将会执行Then后面的语句，并且随后退出条件分支。在本题中，a=75满足第一个条件“a>60”．将执行Then后的语句。将1赋值给变量g，然后结束条件判断。最后将g的值l输出到消息框，所以消息框的输出结果是1。

  • 第2题：

    在窗体中有一个命令按钮Commandl，编写事件代码如下：

    Private Sub Command1_CliCk()

    Dim s As Integer

    s=P(1)+P(2)+e(3)+P(4)

    debug．Print S

    End SUb

    Public Function P(N AS Integer)

    Dim Sum As Integer

    Sum=0

    For i=1 To N

    Sum=Sum+i

    Next i

    P=Sum

    End Function

    打开窗体运行后，单击命令按钮，输出结果是

    A．15

    B．20

    C．25

    D．35


    正确答案：B
    解析：考察循环结构。当N=1时，p(1)=1；当N=2时，p(2)=3；当N=3时，p(3)=6；当N=4时，p(4)：10；所以s：20。

  • 第3题：

    |在窗体中有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl_Click（ ） Dim SAsIntegerS=P（1）+P（2）+P（3）十P（4）debu9．Print SEnd SubPublic Function PfN AS Integer）Dim Sum As IntegerSum=0Fori=l ToNSum=Sum+iNextiP=SumEnd Function打开窗体运行后，单击命令按钮，输出结果是（ ）。【程序设计综合知识】

    A.15

    B.20

    C.25

    D.35


    正确答案：B
    从函数P的代码可知，其功能是计算从1～N的和，在命令按钮的单击事件代码中，可知S为P(1)、P(2)、P(3)、P(4)的和，显然P(1)=1，P(2)=1+2=3，P(3)=1+2+3=6，P(4)=1+2+3+4=10，所以S=1+3+6+10=20。

  • 第4题：

    在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim X As Integer，Y As Integer x=12：y=32 Call Proc(x，Y) Debug．Print X；Y End Sub Public Sub proc(n As Integer，ByVal in As Integer) n=n Mod 10 m=m Mod 1O End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（ ）。

    A.232

    B.123

    C.22

    D.1232


    正确答案：A
    A。【解析】由程序可知proc过程作用是将参数的个位求出并赋给本身。它的第一个参数是默认按地址传递，所以它可以改变实参的值，而第二个是按值传递，形参的改变对实参无影响。于是当Callproc(x，y)后X由12变为2，而y仍为32。

  • 第5题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

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

    A)1

    B)2

    C)3

    D)4


    正确答案：D
    本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小予70，所以不执行x=2；再接着判断75小于80，所以执行x=3；最后判断75小于90，所以执行x=4。最后消息框里输出的x值为4。

相关内容