10，下列选项中，____A____属于可视化的面向对象程序设计语言。
A) Visual Basic
B) C
C) FoxBase
D) Basic
11，在程序代码中设置属性的方法如下_____C___。
A) 属性=值
B) 对象属性=值
C) 对象.属性=值
D) 属性.对象=值
12，如果在窗体上画一个命令按钮Command1，然后，编写如下事件过程：
Private Sub Command1_Click()
Dim i, x As Integer
For i=1 To 6
If i=1 Then x=i
If i<=4 Then
x=x+1
Else
x=x+2
End If
Next i
?x
End Sub
那末，程序运行后，单击命令按钮，窗体上显示的结果是A
A) 9
B) 6
C) 12
D) 15
13，决定一个控件在窗体上位置的属性是______D__。
A) Width或Height
B) Width和Height
C) Top或Left
D) Top和Left
14，以下为合法的对象名的是___A_____。
A) 姓名
B) name
C) 1button
D) _name
15，下面不合法的标识符是________
A) Go_To
B) Tab1
C) 名称
D) Int
16，如果在窗体上画一个命令按钮C1和一个标签L1，然后，编写如下事件过程：
Private Sub C1_Click()
c=0
For i=1 To 4
For j=6 To 1 Step -2
c=c+1
Next j
Next i
L1.Caption=Str(c)
End Sub
那末，程序运行后，单击命令按钮，标签中显示的结果是B
A) 11
B) 12
C) 16
D) 20
17，下列选项中，不属于Visual Basic特点的是___D_____。
A) 可视化编程
B) 事件驱动的编程机制
C) 面向对象的程序设计D) 面向过程的程序设计
18，如果在窗体上画一个命令按钮Command1，然后，编写如下事件过程：
Private Sub Command1_Click()
Dim i, x As Integer
x=0
For i=20 To 1 Step -2
x=x+i\5
Next i
?x
End Sub
那末，程序运行后，单击命令按钮，窗体上显示的结果是C
A) 16
B) 17
C) 18
D) 19
19，如果在窗体上画一个命令按钮C1和一个文本框T1，然后，编写如下事件过程：
Private Sub C1_Click()
Dim i As Integer
For i=0 To 50
i=i+3
n=n+1
if i>10 Then Exit For
Next i
T1.Text=n
End Sub
那末，程序运行后，单击命令按钮，文本框中显示的结果是C
A) 5
B) 4
C) 3
D) 2
20，若使标签框根据所显示内容自动调整其大小，则可以通过设置哪个属性值为True来实现A
A) AutoSize
B) Alignment
C) Enabled
D) Visible
21，如果在窗体上画一个命令按钮C1，然后，编写如下事件过程：
Private Sub C1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
?a
End Sub
那末，程序运行后，单击命令按钮，窗体上显示的结果是D
A) 0
B) 2
C) 3
D) 4
22，若要得到列表框中项目的数目，可以访问哪个属性C
A) List
B) ListIndex
C) ListCount
D) Text
23，下面选项中哪个是算术运算符C
A) %
B) &
C) Mod
D) And
24，窗体的单击事件过程如下：
Private Sub Form_Click()
Dim check,counter
check=true
counter=0
Do
Do While counter<20
counter=counter+1
If counter=10 Then
check=False
Exit Do
End If
Loop
Loop Until check=False
?counter,check
End Sub
程序运行后，单击窗体，窗体上显示的结果是D
A) 15 0
B) 20 -1
C) 10 True
D) 10 False
25，代码窗口中___D____。
A) 既无对象列表框，也无过程列表框
B) 有对象列表框，无过程列表框
C) 无对象列表框，有过程列表框
D) 既有对象列表框，又有过程列表框
26，以下不正确的单行结构条件语句是_____D___
A) If x>y Then Print(“x>y”)
B) If x Then t=t*x
C) If x Mod 3=2 Then ? x
D) If x<0 Then y=2*x-1:Print x End If
27，以下关于对象属性正确的说法是____D____。
A) 在设计模式和运行模式下都不能设置对象的属性
B) 对象的属性在设计模式是可以设置，在运行模式下不能设置
C) 对象的属性在运行模式下可以设置，在设计模式下不能设置
D) 对象的属性既可以在设计模式下设置，也可以在运行模式下设置
28，For循环语句的循环控制变量用于A
A) 控制循环次数
B) 求和
C) 计算步长
D) 递增
29，循环语句用于控制循环体的B
A) 顺序执行
B) 重复执行
C) 选择执行
D) 不执行
30，10 Mod 4的值为___B_____
A) 1
B) 2
C) 4
D) 10
判断题
1，在窗体显示之前，执行窗体的加载事件过程Form_Load()。T
2，调整图形大小时，在图片框中，利用 Stretch属性调整图片框大小适应图片；在图像框中，利用AutoSize 属性调整图片大小适应图像框。F
3，前测型Do...Loop语句执行循环体的最少次数为1。F
4，无论是窗体还是控件都只有获得焦点才能接受键盘事件。T 5，3434&是长整形数据类型。T
6，语句是程序代码中最小的可运行单元。
7，Visual Basic环境中的立即窗口可以进行各种命令的操作。F
8，循环结构用于描述重复计算问题。T
9，Not 10-5>12+3 And 3*2=6 Or 5<=3的值是True。T
10，循环嵌套称为多重循环。T
11，只有在If语句和每一个ElseIf语句计算相同表达式时，才能用Select Case结构替换If结构。T
12，循环语句不允许嵌套，只能交叉。F
13，一个Visual Basic程序也称为一个工程，由窗体、标准模块、自定义模块及应用所需的环境设置组成。
14，
设置命令按钮控件的快捷键可以在其Caption属性的时某字母前加"&"符号。
15，
循环控制流程和循环语句往往称为顺序结构。
16，给对象取名时，可以用汉字、字母、数字和下划线。
17，在调用对象方法时，不能省略对象名。
18，循环是按照给定条件重复执行一组语句。
19，循环语句“For Each 元素 In 集合...Next”用于“对集合中的每个元素或对象，重复执行一组语句”。
20，全局符号常量只能在标准模块的声明段中声明，而不允许在窗体模块中声明，但在该程序的所有模块中都可直接使用。填空题
1，表达式Fix(-11.85)+Int(-23.01)的值是________。
2，
当窗体的Enabled属性为________时，指定窗体响应事件。
3，若希望在启动应用程序时对属性和变量进行初始化，可以使用窗体的________事件。
4，设有以下循环：
x=1
Do
x=x+________
Print x
Loop Until x=7
要求循环体可执行3次，请填空。
5，在Visual Basic 6.0中，对象都具有特定的属性，在设计模式可以通过________窗口来设置。
6，设有以下过程：
Private Sub Form_Click()
Dim a,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
?s
End Sub
程序运行后，单击窗体，窗体上显示的结果为________。
7，若用如下程序来判断a是否为素数：
Private Sub Command1_Click()
Dim a,k,isprime As Integer
a=Val(InputBox("请输入一个整数"))
If a<2 Then
isprime=False
Else
isprime=True
k=2
Do While kIf a Mod k=0 Then
isprime=False
Else
k=k+1
End If
Loop
End If
