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

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

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

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 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

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

4、[判断题]Cls方法可以清除窗体或图片框中在运行阶段产生的图形和文字。（ ）

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

5、[判断题]设置Shape控件的Style属性可以绘制多种形状的图形。（ ）

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