D）

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

（34）下列不是分支结构的语句是______。

         A）If ... Then … EndIf                    B）While … Wend

         C）If … Then …Else …EndIf          D）Select … Case … End Select

（35）在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：

  Private Sub run_Click( )

     result = ""

     For i= 1 To Me!n

         For j = 1 To Me!n

             result = result + "*"

         Next j

        result = result + Chr(13) + Chr(10)

     Next i

     MsgBox result

  End Sub

打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是______。

 

A） * * * *    B）     *

* * * *           * * *

        * * * *                                                 * * * * *

        * * * *                                              * * * * * * *

      C）     * * * *                     D）      * * * *

           * * * * * *                                    * * * *

        * * * * * * * *   &

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