niusouti.com

在窗体中有一个命令按钮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．15

题目

在窗体中有一个命令按钮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．15

B．20

C．25

D．35

相似考题

1.在窗体中有一个标签 Lb1 和一个命令按钮 Command1 ，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1_Click()a="1234"b=Len(a)Me.Lb1.Caption=bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A. 4B. 5C. 10D. 40

2.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码；PrivateSubCommand1_Click()s="ABBACDDCAB"Fori=6To2Step-2x=Mid(s,i,i)y=LeR(s,i)z=Right(s,i)z=x&y&zNextiMsgBoxzEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．AABAABB．ABBABAC．BABBAD．BBABBA

3.在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：单击命令按钮后，标签显示的结果是( )。

4.在窗体中添加—个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s="ABBACDDCBA" For I=6 To 2 Step -2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x & y & z Next I MSgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．AABAABB．ABBABAC．BABBAD．BBABBA

更多“在窗体中有一个命令按钮command1,编写事件代码如下:Private Sub Command1_Click()Dim s As Integ ”相关问题

  • 第1题：

    在窗体中有一个标签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


    正确答案：B

  • 第2题：

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

    A．4

    B．5

    C．10

    D．40


    正确答案：C

  • 第3题：

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

    Private Sub Command1_Click( )

    s="ABBACDDCBA"

    For I=6 To 2 Step -2

    x=Mid(s,I,I)

    y=Left(s,I)

    z=Right(s,I)

    z=x & y & z

    Next I

    MsgBox z

    End Sub

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

    A ） AABAAB

    B ） ABBABA

    C ） BABBA

    D ） BBABBA


    正确答案：D

  • 第4题：

    在窗体中有一个标签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
    解析：本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故Len(a)＝10。

  • 第5题：

    在窗体中有一个标签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
    解析：本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为l0，故 Len(a)=10。

相关内容