【题目】 Image控件和Picture控件都可以用LoadPicture函数把图形文件装入控件中。（ ）

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

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

2、[单选题]Private Sub Form_Click()
  Dim I As Integer, j As Integer
  Dim c As Integer
  c = 0
  For I = 1 To 3
    For j = 1 To 2
      c = c + 3
    Next j
  Next I
  Print c
End Sub
程序运行后，单击窗体，在窗体上显示的结果是（    ）。

• A、18
• B、15
• C、12
• D、9

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

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

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

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

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

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

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