在窗体上有一个命令按钮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打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。

题目

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

Private Sub Command1_Click()

Dim a(10)，P(3) As Integer

k=5

For i=1 To 10

For i=1 To 3

For i=1 To 3

End Sub

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

相似考题

1.（ 11 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( )Dim x As Integer, y As Integerx=12 : y=32Call p(x, y)MsgBox x*yEnd SubPublic Sub p (n As Integer, By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 ___________ 。

2.在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(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+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )。A．15B．20C．25D．35

3.在窗体上有一个命令按钮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打开窗体运行后，单击命令按钮，消息框中输出的结果是【 】。

4.（ 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 】 。

更多“在窗体上有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim a(10),P( ”相关问题

  • 第1题：

    在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：

    单击命令按钮后，标签显示的结果是( )。


    正确答案：25
    25

  • 第2题：

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

    A．2 32

    B．12 3

    C．2 2

    D．12 32


    正确答案：A

  • 第3题：

    在窗体上有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a As String * 10 Private Sub Command1_Click( ) a="1234" b=Len(a) Me. Lb1. Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。

    A．4

    B．5

    C．10

    D．40


    正确答案：C
    解析：首先定义a为字符串类型，长度为10，当单击命令按钮后将a的长度值赋予b，并且将b的值10通过标签显示出来。

  • 第4题：

    在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim y As Integer y=0 Do y=InputBox("y=") If(y Mod 10)+Int(y/10)=10 Then Debug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是( )。

    A．37 55 64 28 19 19

    B．10 50 20

    C．10 50 20 0

    D．37 55 64 28 19


    正确答案：D

  • 第5题：

    在窗体上有一个命令按钮Command1，编写事件代码如下： Prirate Sub Command1_Click() Dim d1 AS Date Dim d2 As Date d1=#12/25/2009# d2=#1/5/2010# MsgBox DateDiff("ww"，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。

    A．1

    B．2

    C．10

    D．11


    正确答案：B

相关内容