[单选题] 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 < 6
     A(i) = A(i) + x
     x = x + 2
     i = i + 2
    Loop
    Text1.Text = A(3)
    Text2.Text = A(5)
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()
    Static x As Integer
    Static y As Integer
    Cls
    y = 1
    y = y + 5
    x = 5 + x
    Print x, y
End Sub
程序运行后，单击命令按钮Command1三次后，窗体上显示的结果为（      ）。

• A、15  16
• B、15  6
• C、15  15
• D、5  6

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

3、[判断题]ADO模型中一般可通过Conection对象的Execute方法执行增加、删除、修改SQL语句。（ ）

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

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

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

5、[判断题]ADO是建在OLEDB之上的对象模型，是对OLEDB的封装。（ ）

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