注意：此页面搜索的是所有试题
国家开放大学Visual Basic6.0程序设计
ADO是建在OLEDB之上的对象模型，是对OLEDB的封装
在使用Delete方法删除当前记录后，记录指针位于被删除记录上
ADO模型中一般可通过Conection对象的Execute方法执行增加、删除、修改SQL语句。
在VB6.0中，变量“Hello”和变量“HELLO”指的是不同的两个变量名。
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = x + y
Form1.Print "x="; x, "y="; y
End Sub
程序运行后三次单击窗体，Form1上的输出结果为（ ）。
A、x=2 y=2 B、x=2 y=4
C、x=2 y=6 D、x=6 y=6
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
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
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
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
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
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 2) * (x + 3)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
程序运行后，单击命令按钮在文件框Text3中显示的结果是（ ）。
A、72 B、74
C、7 D、16
Private Sub Command1_Click()
Static Sum As Integer
Dim I As Integer
I = 1
Do
Sum = Sum + I
I = I + 1
Loop While I <= 5
Text1.Text = Sum
Text2.Text = I
End Sub
程序运行后，两次单击Command1按纽后，文本框Text1、Text2上的输出结果是（ ）。
A、10 5 B、15 6
C、25 5 D、30 6
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按钮后，窗体上显示的是（ ）。
A、4 2 B、12 18
C、12 30 D、4 6
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
Private Sub Command1_Click()
P = 0
s = 0
Do
P = P + 2
s = s + P
Loop While P < 11
Print "S="; s
End Sub
程序运行后，单击命令按钮，在窗体上显示的值是（ ）。
A、S=42 B、S=30
C、S=46 D、S=20
在使用Delete方法删除当前记录后，记录指针位于被删除记录上
ADO模型中一般可通过Conection对象的Execute方法执行增加、删除、修改SQL语句。
在VB6.0中，变量“Hello”和变量“HELLO”指的是不同的两个变量名。
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = x + y
Form1.Print "x="; x, "y="; y
End Sub
程序运行后三次单击窗体，Form1上的输出结果为（ ）。
A、x=2 y=2 B、x=2 y=4
C、x=2 y=6 D、x=6 y=6
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
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
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
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
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
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 2) * (x + 3)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
程序运行后，单击命令按钮在文件框Text3中显示的结果是（ ）。
A、72 B、74
C、7 D、16
Private Sub Command1_Click()
Static Sum As Integer
Dim I As Integer
I = 1
Do
Sum = Sum + I
I = I + 1
Loop While I <= 5
Text1.Text = Sum
Text2.Text = I
End Sub
程序运行后，两次单击Command1按纽后，文本框Text1、Text2上的输出结果是（ ）。
A、10 5 B、15 6
C、25 5 D、30 6
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按钮后，窗体上显示的是（ ）。
A、4 2 B、12 18
C、12 30 D、4 6
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
Private Sub Command1_Click()
P = 0
s = 0
Do
P = P + 2
s = s + P
Loop While P < 11
Print "S="; s
End Sub
程序运行后，单击命令按钮，在窗体上显示的值是（ ）。
A、S=42 B、S=30
C、S=46 D、S=20