【题目】 为了把一个窗体装入内存，所使用的语句为Load，而为了清除内存中指定的窗体，所使用的语句为Unload。

1、[单选题]Private Sub Form_Click()
  Dim i As Integer, k As Integer, c As Integer
  For i = 1 To 5
     If i Mod 2 = 0 Then
         k = k + 2
     Else
        c = c + 3
     End If
  Next i
  Print k, c
End Sub
程序运行后单击窗体，Form1上的输出结果是（   ）。

• A、2   12
• B、4    9
• C、4    6
• D、2    9

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

2、[单选题]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
程序运行后，单击命令按钮，在文本框中显示的值是（    ）。

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

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

3、[单选题]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

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

4、[单选题]Private Sub Form_click()
  b = 1
  Do While b < 40
    b = b * (b + 1)
  Loop
  Print b
End Sub
程序运行后，单击窗体，在窗体上显示的值为（  ）。

• A、42
• B、39
• C、6
• D、1

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

5、[单选题]Private Sub Command1_Click()
  n = 0
  j = 1
  Do Until n > 2
     n = n + 1
     j = j + n * (n + 1)
  Loop
  Print n; j
End Sub
程序运行后，单击命令按钮，在窗体上显示的值是（    ）。

• A、0   1
• B、3   7
• C、3   21
• D、3   13

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