[单选题] Private Sub Command1_Click()
    Static x As Integer
    Static y As Integer
    Cls
    y = 1
    y = y + 5
    x = 5 + x
    Print x, y
End Sub
程序运行后，单击命令按钮Command1三次后，窗体上显示的结果为（      ）。

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()
  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()
  Dim x As Integer
  Static s As Integer
  x = Val(InputBox("请输入一个正整数="))
  If x < 5 Then
    s = s * x
  Else
    s = s + x
  End If
    Text1.Text = "s=" & Str(s)
End Sub
程序运行后，连续3次单击Command按纽，且设输入的数据为5、4、3时，文本框Text1中显示的值为（   ）。

• A、12
• B、20
• C、60
• D、s=60

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

4、[单选题]Private Sub Command1_Click()
  Dim s As Double
  Dim i As Integer
  s = 5
  i = 1
  Do While i < 6
    i = i + 2
    s = s + i
  Loop
  Text1.Text = s
End Sub
程序运行后，单击命令按钮，在文件框Text1中的输出结果是（   ）。

• A、13
• B、20
• C、11
• D、18

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

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

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