[单选题] Private Sub Command1_Click()
  Dim i As Integer, n As Integer
  For i = 0 To 50
      i = i + 3
      n = n + 1
      If i > 10 Then Exit For
  Next i
  Text1.Text = Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（    ）。

1、[单选题]Private Sub Command1_Click()
   Static y As Integer
   Cls
   For i = 0 To 2
      x = x + y
      y = y + 3
   Next i
   Print x, y
End Sub
程序运行后，连续二次单击Command1按钮后，窗体上显示的值是（ ）。

• A、9  9
• B、30  12
• C、36  18
• D、63  27

• 点击查看答案
• 进入题库做题

2、[单选题]Private Sub Command1_Click()
    n = Text1.Text
    Select Case n
        Case 1 To 20
            x = 10
        Case 2, 4, 6
            x = 20
        Case Is < 10
            x = 30
        Case 10
            x = 40
    End Select
        Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（    ）。

• A、10
• B、20
• C、30
• D、40

• 点击查看答案
• 进入题库做题

3、[单选题]Private Sub Form_Click()
    Dim c As Integer, j As Integer, k As Integer
    k = 1
    c = 2
    For j = 1 To 5
      If j > 3 Then
        c = c + 5
        Exit For
      Else
        k = k + 1
      End If
    Next j
    Print c, k
End Sub      
程序运行后，单击窗体，在窗体上显示的c,k的值分别是（    ）。

• A、7   3
• B、7   4
• C、2   4
• D、7   5

• 点击查看答案
• 进入题库做题

4、[单选题]Private Sub Command1_Click()
    Static Sum As Integer
    Dim I As Integer
    I = 1
    Do
      Sum = Sum + I
      I = I + 1
    Loop While I <= 5
    Text1.Text = Sum
    Text2.Text = I
End Sub
程序运行后，两次单击Command1按纽后，文本框Text1、Text2上的输出结果是（    ）。

• A、10  5
• B、15  6
• C、25  5
• D、30  6

• 点击查看答案
• 进入题库做题

5、[判断题]在使用Delete方法删除当前记录后，记录指针位于被删除记录上。（ ）

• 点击查看答案
• 进入题库做题