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

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

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

2、[单选题]Private Sub Command1_Click()
  Dim A(1 To 5) As Integer
  Dim x As Integer
  For i = 1 To 5
    A(i) = i
  Next i
  i = 1
  Do While x < 2
    A(i) = A(i) * x
    x = x + 1
    i = i + 1
  Loop
  Text1.Text = A(1)
  Text2.Text = A(2)
End Sub
程序运行后，单击Command1后按钮，文件框Text1、Text2中的结果是（   ）。

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

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

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

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

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

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

5、[判断题]当图片框PictureBox控件的AutoSize属性为Ture时，超过图片框尺寸的图片其超过部分会被图片框截去。（ ）

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