一．选择题
1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。
A．空值 B．0 C．1 D．Null
2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。
A．空值 B．0 C．1 D．Null
3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。
A．False B．0 C．1 D．True
4．关于 VB 中的运算符，以下说法正确的是（ ）。
A．“×”是算术运算符，含义是“乘法运算”
B．“≠”是关系运算符，含义是“不等于”
C．“!”是逻辑运算符，含义是“非”
D．“And”是逻辑运算符，含义是“与”
5．对象的三要素是（ ）。
A．属性、事件、程序 B．属性、事件、方法
C．窗体、事件、程序 D．语句、函数、程序
6．VB中，表达式10<2 Or Not 5>2+6的值为（ ）。
A．TRUE B．FALSE C．0 D．出错
7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（ ）。
A．"工程学院" B．"京工程学" C．"程学院" D．"工程"
8．在VB中，应用程序被称为（ ）。
A．工程 B．窗体 C．属性 D．对象
9．VB中，事件Click由（ ）引发。
A．移动鼠标 B．左键单击鼠标
C．双击鼠标 D．右键单击鼠标
10．VB中，隐藏窗体的方法是（ ）。
A．Unload B．Stop C．Hide D．Show
11．在Visual Basic中最基本的对象是（ ），它是应用程序的基石，也是其它控件的容器。
A．文本框 B．命令按钮 C．窗体 D．标签
12．VB窗体文件的扩展名为（ ）。
A．VBP B．FRM C．BAS D．EXE
13．执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是（ ）。
A．Visual B．Basic C．6 D．11
14．有程序代码：Text1.Text = "Visual Baisc"，其中的Text1、Text和 "Visual Baisc"分别代表的是（ ）。
A．对象、值、属性 B．对象、方法、属性
C．对象、属性、值 D．属性、对象、值
15．要在一个命令按钮的标题显示“退出（X）”，则要在其Caption属性中的“X”前面插入（ ）符号。
A．下划线 B．& C．$ D．@
16．下列表达式中，值为True的是（ ）。
A．UCase ("ABCD") >= "abcd" B．14 / 2 \\ 3 < 10 Mod 4
C．Mid("abcd", 2, 2) > Left("abcd", 2) D．Not (Sqr(4) - 3 >= -2)
17．当希望在离开某过程后，能保存该过程中局部变量的值，则应使用（ ）关键字在该过程中定义局部变量。
A．Dim B．Private C．Public D．Static
18．以下有关对象属性的说法正确的是（ ）。
A．对象所有的属性都罗列在属性窗口列表中
B．不同的对象不可能有同名属性
C．不同对象的同名属性取值一定相同
D．对象的某些属性既可以在属性窗口这设置，也可通过程序代码设置或改变
19．应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，窗体和命令按钮的Click事件过程的名称分别为（ ）。
A．Form-Click（）、Command1- Click（） B．Frm1-Click（）、Command1- Click（）
C．Form-Click（）、Cmd1- Click（） D．Frm1-Click（）、Cmd1- Click（）
20．使用（ ）方法可将新的列表项添加到一个列表框中。
A．Print B．AddItem C．Clear D．RemoveItem
21．Visual Basic是用于开发（ ）环境下的应用程序的工具。
A．DOS B．Windows C．DOS和Windows D．UNIX
22．能被对象所识别的动作与对象可执行的活动分别称为对象的（ ）。
A．方法、事件 B．事件、方法 C．事件、属性 D．过程、方法
23．在事件过程中可以用（ ）语句定义变量。
A．Dim、Private B．Dim、Static C．Dim、Public D．Dim、Static、Private
24．用窗体的（ ）属性来设置窗体的标题。
A．Style B．Text C．Caption D．Name
25．如要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入（ ）。
A．－ B．＋ C．& D．#
26．计时器控件的（ ）属性用于设置Timer事件发生的时间间隔。
A．Stretch B．Interval C．Value D．Length
27．假定变量Logic的类型是Boolean，下面赋值语句（ ）是正确的。
A．Logic=‘True’ B．Logic=.True. C．Logic=#True# D．Logic=0<1
28．VB工程文件的扩展名为（ ）。
A．VBP B．FRM C．BAS D．EXE
29．在多窗体程序中，缺省情况下，VB将设计的（ ）窗体指定为启动窗体。
A．最后一个 B．Form1 C．第一个 D．Main
30．下面的（ ）可以正确地声明一个数组。
A． Dim A[3,4] As Integer B．Dim A(3,4) As Integer
C． Dim A(n,n) As Integer D．Dim A(3 4) as integer
31．图像框或图片框中显示的图形文件，由它们的（ ）性质值决定。
A．DownPicture B．Picture
C．Image D．Icon
32．下面（ ）是算术运算符。
A．Imp B．Mod C．Not D．Eqv
33．语句if x=1 then y=1，下列说法正确的是（ ）。
A．x=1 和 y=1均为赋值语句 B．x=1 和 y=1均为关系表达式
C．x=1为关系表达式，y=1为赋值语句 D．x=1为赋值语句，y=1 为关系表达式
34．变量名最多不能超过的字符个数为（ ）。
A．10 B．12 C．40 D．255
35．表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是（ ）。
A．4 B．5 C． 6 D． 7
36．复选框或单选钮的当前状态可通过（ ）属性来返回或设置。
A．Checked B．Value C．Selected D．Caption
37．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（ ） 。
A．Get文件号，记录号，变量名
B．Get文件号，变量名，记录号
C．Put文件号，变量名，记录号
D．Put文件号，记录号，变量名
38．下列（ ）不是VB程序的基本结构。
A．层次结构 B．分支结构 C．循环结构 D．顺序结构
39．无论何控件，都具有一个共同属性。这个属性是（ ）。
A．Text B．Font C．Name D．Caption
40．假设X的值是5，则执行以下语句时，可得到的打印结果是“ABCDEF”的Select Case语句是（ ）。
A．Select Case X B．Select Case X
Case 10 To 1 Case Is>15,Is<5
Print "ABCDEF" Print "ABCDEF"
End Select End Select
C．Select Case X D．Select Case X
Case Is>5,1,3 To 10 Case 1,3,Is>5
Print "ABCDEF" Print "ABCDEF"
End Select End Select
41．下不是VB特点的选项是（ ）。
A．可视编程 B．算法设计 C．事件驱动 D．面向对象
42．下面正确的赋值语句是（ ）。
A．x+y=30 B． y=π*r*r C．y=x+30 D．3y=x
43．VB提供（ ）属性用于控制对象是否可用。
A．Default B．Cancel C．Enabled D．Visible
44．确定一个窗体或控件大小属性是（ ）。
A．Width或Height B．Width和Height
C．Top或Left D．Top和Left
45．Visual Basic 的三种工作模式是（ ）。
A．设计模式、调试模式、错误模式
B．设计模式、运行模式、错误模式
C．设计模式、错误模式、中断模式
D．设计模式、运行模式、中断模式
46．InputBox函数返回值的类型为（ ）。
A．整数 B．字符串
C．变体 D．整数或字符串(视输入的数据而定)
47．以下代码使用了MsgBox函数，正确的用法是（ ）。
A．MsgBox("非法数据!",48,"提示信息")
B．print MsgBox "非法数据!",48,"提示信息"
C．ans=MsgBox "非法数据!",48,"提示信息"
D．MsgBox "非法数据!",48,"提示信息"
48．下面变量名错误的是（ ）。
A．我们 B．abc C．a123 D．a. c
49．表达式4+5\\6*7/8 Mod 9的值是（ ）。
A．4 B．5 C．6 D．7
50．数学关系式3≤x<10表示成正确的VB表达式为（ ）。
A．3<=x<10 B．3<=x And x<10
C．x>=3 Or x<10 D．3<=x And <10
51．Rnd函数不可能为下列（ ）值。
A．0 B．1 C．0.1234 D．0.0005
52．设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是（ ）。
A．True B．False C．1 D．出错信息
53．VB中，已知X=1,Y=2,T=0 经程序段X=T:T=Y:Y=T 赋值后 X,Y 值分别为（ ）。
A．1,2 B．0,0 C．0,2 D．1,0
54．VB中窗体的默认事件过程是（ ）。
A．Form1_Load B．Form_Click C．Form1_Click D．Form_Load
55．以下不属于Visual Basic系统的文件类型是（ ）。
A．frm B．.bat C．.vbg D．.vbp
56．设有语句
Open "c:\\Test.Dat" For Output As #1
则以下错误的叙述是（ ）
A．该语句打开C盘根目录下一个已存在的文件Test.Dat
B．该语句在C盘根目录下建立一个名为Test.Dat的文件
C．该语句建立的文件的文件号为1
D．执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息
57．Visual Basic 是一种面向对象的可视化程序设计语言，采取了（ ）的编程机制。
A．按过程驱动 B．按模块顺序驱动
C．从主模块开始驱动 D．事件驱动
58．VB中，下列变量名中不合法的是（ ）。
A．Dimab B．3Day C．Tr2 D．Y_time
59．表达式16/4-2^5*8/4 MOD 5\\2的值为（ ）。
A．14 B．4 C．20 D．2
60．下面的运算符中，优先级最高的是（ ）。
A．Not B．Is C．Like D．&
61．假定X是一个数值型变量，那么由函数组成的表达式INT(X/2)=X/2（ ）。.
A．用于测试X是否偶数 B．返回一个整数
C．返回一个奇数 D．用于测试X是否整数
62．以下关于事件过程的说法中，错误的是（ ）。
A．标准模块中不能包含事件过程。
B．事件过程都是没有参数的过程
C．事件过程可以通过Call语句调用执行
D．在事件过程中不能声明全局变量
63．当函数EOF()的返回值为True时，表示文件的指针指向（ ）。
A．开头 B．结尾 C．第一个记录 D．最后一个记录
．Msgbox函数返回值的类型为（ ）。
A．整数 B．字符串 C．变体 D．整数或字符串(视输入的数据而定)
65．下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（ ）。
A．do while …loop循环和do…loop until循环至少都执行一次
B．do while …loop循环和do…loop until循环可能都不执行
C．do while …loop循环至少执行一次，do…loop until循环可能不执行
D．do while …loop循环可能不执行，do…loop until循环至少执行一次
66．下面（ ）语句与Visual Basic的默认设置相同。
A．Option Base 1 B．Option base 0
C．Option Compare Text D．Option Explicit
67．下面程序段运行后，显示的结果是（ ）。
Dim x
If x Then Print x Else Print x + 1
A．0 B．1
C．程序出错 D．不显示任何结果
68．在VB中，按照文件的访问方式不同，可以将文件分为（ ）。
A．顺序文件、随机文件、二进制文件 B．文本文件、数据文件
C．数据文件、可执行文件 D．ASCII文件、二进制文件
69．VB提供（ ）属性用于控制对象是否可见。
A．Default B．Cancel C．Enabled D．Visible
70．设a=5，b=3，c=－1，执行语句Print a > b > c后，窗体上显示的是（ ）。
A．True B．False C．1 D．出错信息
71．Visual Basic 的三种工作模式是（ ）。
A．设计模式、调试模式、错误模式 B．设计模式、运行模式、错误模式
C．设计模式、错误模式、中断模式 D．设计模式、运行模式、中断模式
72．VB中，下列变量名中不合法的是（ ）。
A．Like1 B．W23 C．type D．Abc_255
73．下列逻辑表达式中，能正确表示条件“x,y都是奇数”的是（ ）。
A．x Mod 2 =1 Or y Mod 2 =1 B．x Mod 2 =0 Or y Mod 2=0
C．x Mod 2 =1 And y Mod 2 =1 D．x Mod 2 =0 And y Mod 2=0
74．VB中，表达式10 / 5 * 3^2 Mod 4 + 3- 20 Mod 8 \\ 3的结果是（ ）。
A．出错 B．5 C．4 D．3
75．以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是（ ）。
A．Form1.Name="VisualBasic窗体"
B．Form1.Title="VisualBasic窗体"
C．Form1.Caption="VisualBasic窗体"
D．Form1.Text="VisualBasic窗体”
76．下列过程中，不能脱离控件和窗体而存在的是（ ）。
A．函数过程。 B．事件过程 C．通用过程 D．Sub过程
77．在Do Until...Loop循环中,判断循环表达式与结束循环的关系是（ ）。
A．先判断循环表达式，当表达式值为假时结束循环
B．先判断循环表达式，当表达式值为真时结束循环
C．先执行循环体，后判断循环表达式，当表达式为假时结束循环
D．先执行循环体，后判断循环表达式，当表达式为真时结束循环
78．VB提供了结构化程序设计的三种基本结构，它们是（ ）。
A．递归结构、选择结构、循环结构
B．递归结构、选择结构、顺序结构
C．递归结构、过程结构、顺序结构
D．顺序结构、选择结构、循环结构
79．下列可作为Visual Basic变量名的是（ ）。
A．A#A B．4A C．?xy D．constA
80．以下关系表达式中，其值为False的是（ ）。
A． "ABC">"AbC" B．"the"<>"they"
C．"VISUAL"=UCase("Visual") D．"Integer">"Int"
81．VB中，表达式Chr(Int(Val("66.39abc")))的值是（ ）。
A．"A" B．"B" C．"a" D．"b"
82．要立即退出一个子程序过程，使用的语句是（ ）。
A．Exit Sub B．Exit C．Exit Function D．Resume
83．在Do While...Loop循环中,判断循环表达式与结束循环的关系是（ ）。
A．先判断循环表达式，当表达式值为假时执行循环体
B．先判断循环表达式，当表达式值为真时执行循环体
C．先执行循环体，后判断循环表达式
D．无论循环表达式的值真假与否，循环体至少执行一次
84．以下Case语句中错误的是（ ）。
A．Case 0 To 10
B．Case Is>10
C．Case Is>10 And Is<50
D．Case 3,5,Is>10
85．Visual Basic是一种面向对象的程序设计语言，（ ）不是面向对象系统所包含的三个要素。
A．变量 B．事件 C．属性 D．方法
86．下列Visual Basic中，下列（ ）是合法的变量名。
A．Rem B．End C．Loop D．Sum
87．下列属于字符常量的是（ ）。
A．Abs(x) B．"100" C．val("100") D．10000/100
88．标签框所显示的内容，由（ ）属性值决定。
A．Text B．（名称） C．Caption D．Alignment
．为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ）。
A．Value B．Default C．Cancel D．Enabled
90．（ ）关键字声明的局部变量在整个程序运行中一直存在。
A．Dim B．Public C．Static D．Private
91．设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是（ ）。
A．若"条件"是一个为0的常数，则一次也不执行循环体
B．"条件"可以是关系表达式、逻辑表达式或常数
C．循环体中可以使用Exit Do语句
D．如果"条件"总是为True，则不停地执行循环体
92．当在Visual Basic要设置某个对象的属性时，应进入（ ）。
A．设计模式 B．运行模式 C．中断模式 D．任意模式
93．下列VB变量名中，（ ）是非法的变量名。
A．Y3 B．SPM_1 C．H 2 D．int123
94．下列Visual Basic中，下列（ ）的表达式的值不等于4。
A．int(4.1) B．Int(4.9) C．Abs(int(-3.9)) D．Abs(int(-4.5))
95．语句Print 5/4*6\\5 Mod 2的输出结果是（ ）。
A．0 B．1 C．2 D．3
96．程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（ ）属性值为True来实现。
A．Value B．Enabled C．Default D．Cancel
97．语句if x=1 then y=1，下列说法正确的是（ ）。
A．x=1 和 y=1均为赋值语句 B．x=1 和 y=1均为关系表达式
C．x=1为关系表达式，y=1为赋值语句 D．x=1为赋值语句，y=1 为关系表达式
98．设有语句
x=InputBox(“输入数值”，“0”，“示例”)
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（ ）。
A．变量X的值是数值10
B．在InputBox对话框标题栏中显示的是“示例”
C．0是默认值
D．变量X的值是字符串“10”
99．下列逻辑表达式中，能正确表示条件“x,y都是奇数”的是（ ）。
A．x Mod 2 =1 Or y Mod 2 =1
B．x Mod 2 =0 Or y Mod 2=0
C．x Mod 2 =1 And y Mod 2 =1
D．x Mod 2 =0 And y Mod 2=0
100．执行下面的语句后，所产生的信息框的标题是（ ）。
a = MsgBox("AAAA", "BBBB", "", 5)
A．BBBB B．空
C．AAAA D．出错，不能产生信息框
二．填空题
1．对应的VB表达式为 。
2．对应的VB表达式为 。
3．对应的VB表达式为 。
4．对应的VB表达式为 。
5．用DIM X（2 TO 5，-1 TO 2）语句说明的二维数组共有 个元素。
6．用DIM A（-2 TO 2，-3 TO 3,4）语句说明的三维数组共有 个元素。
7．“A、B之一为0，但不能同时为0”对应的VB逻辑表达式是 。
8．任一在[10，19]区间内的随机整数可写为 。
9．VB中形参和实参的传递有 和 两种方式。
10．语句Print “38”＋57输出的结果是 。
11．语句Print 11－False输出的结果是 。
12．根据下图写出InputBox函数中的参数。
InputBox(_________，_________，_________ )
13．Visual Basic提供的对数据文件的三种访问方式为_________，_________，_________。
14．执行下面程序段后，x的值为________。
For x＝10 To -1 Step －2
Next x
15．“X是一个奇数，Y是一个偶数”对应的VB逻辑表达式是 。
16．“X是一个正整数，Y是一个负整数”对应的VB逻辑表达式是 。
17．“X是一个带小数的正数，Y是一个带小数的负数”对应的VB逻辑表达式是 。
18．“X是一个奇数，Y是一个偶数”对应的VB逻辑表达式是 。
19．结构化程序设计的三种程序结构为_________，_________，_________。
20．执行下面程序段后，x的值为________。
For x＝1 To 10 Step 3
Next x
21．Visual Basic中对象的三要素为_________，_________，_________。
22．执行下面程序段后，x的值为________。
For x＝10 To -1 Step -2
Next x
23．Visual Basic 的三种工作模式是_________，_________，_________。
24．执行下面程序段后，x的值为________。
x = 3: y = 100
Do While x <= y
x = x * x
Loop
25．执行下面程序段后，x的值为________，y的值为________，z的值为________。
Dim x As Integer, y As Integer, z As Integer
x = y = z = 100
三． 读程序题
Private Sub Form_Click()
For i = 1 To 5
For j = 1 To i
Print i;
Next j
Next I
End Sub
答案
2．
Private Sub Form_Click()
For i = 1 To 5
For j = 1 To 5
Print "*";
Next j
Next I
End Sub
答案
3．
Private Sub Form_Click()
Dim M As Integer, N As Integer
M = 15: N = 20
Call VALUE(M , N)
Print "M="; M, "N="; N
End Sub
Private Sub VALUE(X As Integer, Y As Integer)
X = X + Y: Y = X -Y
Print "X="; X, "Y="; Y
End Sub
答案
4．
Private Sub Form_Click()
Dim A As Integer, B As Integer, C As Integer
A = 1: B = 1
Do
C = A + B
Print C;
A = B: B = C
Loop Until C >= 5
End Sub
答案2 3 5
5．
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 1: b = 0
Do While a <= 5
b = b + a * a
a = a + 1
Loop
Print a, b
End Sub
答案6 5 5
6．
Private Sub Form_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s; a
End Sub
答案9 7
7．
Private Sub Form_Click()
Dim x As Integer, y As Integer
x = 10: y = 15
Call VALUE(x, y)
Print "x="; x, "y="; y
End Sub
Public Sub VALUE(ByVal m As Integer, n As Integer)
m = m * 2: n = n - 5
Print "m="; m, "n="; n
End Sub
答案m=20 n=10
x=10 y=10
8．
Private Sub Form_Click()
Dim a As Integer
a = 1
Call Test(a)
End Sub
Public Sub Test(x As Integer)
x = x * 2 + 3
If x < 10 Then
Call Test(x)
End If
x = x * 2 + 3
Print x
End Sub
答案 29
61
9．
Private Sub Form_Click()
Dim m(2) As Integer, i As Integer
Dim j As Integer, k As Integer
k = 2
For i = 1 To k
For j = 1 To k
m(j) = m(i) + 1
Print m(k);
Next j
Next i
End Sub
答案 0 2 2 3
10.
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Form_Click()
Dim a As Integer
a =2
For i =1 To 3
Print F(a);
Next i
End Sub
答案 4 5 6
四．编程题
1．求1000以内所有的质数和。
2．求1000以内所有能同时被3和7整除的数的和。
3．由计算机随机产生10个两位整数，放入一维数组中，打印出其中的最小数。
4．统计1000以内能同时被13和17整除的数的个数。
5. 由计算机随机产生10个两位整数，放入一维数组中，统计大于50的个数。
6．输入一个字符串，如“COMPUTER”,将其反序显示。
7．输入两个数，打印出它们的最大公约数。
8．输入两个数，打印出它们的最小公倍数。下载本文
