For n=4 To 5

a(m,n)=m*n

Next n

Next m

MsgBox a(2,5)+a(3,4)+a(4,5)

End Sub

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

A）22                B）32                  C）42                   D）52    

（32）在窗体上添加一个命令按钮（名为Command1）和一个文本框（名为Text1），并在命令按钮中编写如下事件代码：

Private Sub Command1_Click()

  m=2.17

  n=Len(Str$(m)+Space(5))

  Me!Text1=n

End Sub

打开窗体运行后，单击命令按钮，在文本框中显示______。

A）5                  B）8                    C）9                     D）10    

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

      Private Sub Command1_Click()

        A=75

        If A>60 Then I=1

        If A>70 Then I=2

        If A>80 Then I=3

        If A>90 Then I=4

        MsgBox I

      End Sub

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

A）1                B）2                    C）3                     D）4

（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

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

Public x As Integer

Private Sub Command1_Click()

 x=10

 Call s1

 Call s2

 MsgBox x

End Sub

Private Sub s1()

  x=x+20

End Sub

Private Sub s2()

  Dim x As Integer

  x=x+20

End Sub

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

 

         A）10                 B）30                   C）40                   D）50

 

首页 上页 1 2 3 下页 尾页 2/5/5