08微机升学班《VB程序设计》第三次月考试题
姓名： 成绩：
一、选择题（每小题1分，共45分）
1．系统软件中最基础、最重要的是（ ）
A）操作系统 B）语言处理系统 C）工具软件 D）数据库管理系统 2．“计算机辅助制造”的英文缩写是（ ） A）CAD B）CAI C）CAT D）CAM
3．在下列几种存储器中，存取周期最短的是（ ）
A）光盘存储器 B）RAM存储器 C）硬盘存储器 D）软盘存储器 4．学校的学生成绩管理软件属于（ ）
A）科学计算 B）数据处理 C）辅助教学 D）实时控制 5．计算机的内存储器比外存储器（ ）
A）价格更低 B）存取速度快 C）存储信息更多 D）保存信息时间长
6．将高级语言编写的程序翻译成机器语言程序，采用的两种翻译方式是（ ） A）编译和汇编 B）编译和链接 C）编译和解释 D）解释和汇编 7．下面程序运行后，输出的值是（ ） Private Sub Command1_Click()
J=1
While J<5 J=j+1 A=a+j*j Wend Print a End Sub
A)25 B)16 C) 29 D)54
8．要想永久保存数据，应将数据保存到（ ） A）外存 B）内存 C）显示器 D）CPU
9．计算机中对数据进行加工与处理的部件，通常称为（ ） A）运算器 B）控制器 D）显示器 D）存储器 10．下列选项中，哪个表示的是正确的八进制数（ ） A）(68)8 B)23H C) 101B D)16O
11．下列各组设备中，全部属于输入设备的一组是（ ） A）键盘、U盘和打印机 B）键盘、扫描仪和摄像机 C）键盘、鼠标和显示器 D）数码相机、打印机和键盘 12．以下功能键中是字母大小写转换键的是（ ）
A）Num Lock B）SHIFT C）Caps Lock D)Pr Scrn
13．要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为（ A)0 B)1 C)2 D)3
14．要清除列表框中所有的列表项时，应使用（ ）方法。
1
。 ） A)Remove B)Clear C)Removeitem D)Move 15．下列各组函数中，函数值类型相同的一组是（ ）。 A)Exp(x)，Chr(x)，Lcase(x) B)Asc(x)，Str(x)，Rtrim(x) C)Sgn(x)，Cint(x)，Timer(x)
D)Fix(x)，Left(x)，Ucase(x)
16．要使标签中的文本靠右显示，则应将其Alignment属性设置为（ ）。 A)0 B)1 C)2 D)3
17．下列不是Visual Basic文件的是（ ）。
A)*.frm文件 B)*.bas文件 C)*.cls文件 D)*.txt文件 18．为了描述x>y和y>z同时成立，则下述选项中，正确的是（ ）。 A)x>y .And. Y>z B)x>y>z
C)x>y And >z D)x>y And y>2
19．为了把窗体上的某个控件变为活动的，应执行的操作是（ ）。 A)单击窗体的边框 B)单击该控件的内部 C)双击该控件
D)双击窗体
20．下列属性中，文本框控件不具有的属性是 （ ） 。
A)BackColor B)Caption C)PasswordChar D)Enabled 21．要获得当前驱动器，应使用驱动器列表框的（ ）属性； A)Path B)Drive
C)Dir D)Pattern
22．下列（ ）表达式的值不等于4。 （A）Int (4.1) （B）Int (4.9) （C）Abs (int (-3.9)) （D）Abs (int (-4.5)) 23．在WORD2000编辑状态下，绘制一文本框，应使用的下拉菜单是（ ）
A）插入 B）表格 C）编辑 D）工具 24．下列哪个符号不能作为VB中的变量名？（ ）
(A)wash (B)CET4 (C)fh (D)a[3]
25．在Visual Basic中，设置控件的位置，可改变下列（ ）属性。 （A）Height 与Width （B）Height 与Top （C）Left 与Top （D）Left 与 Width 26. 下列VB程序段中，循环体执行的次数为（ ）。 y = 2 Do While y < = 8 y = y + y Loop （A）2 （B）3 （C）4 （D）5 27．设A=7, 则A MOD 3 的值是（ ） (A) 7 (B) 1 (C) 3 (D) 5
2
28．假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2（ ）。 （A）用于测试X是否偶数 （B）返回一个整数 （C）返回一个奇数 （D）用于测试X是否整数 29. 下列Visual Basic程序段运行后，变量x的值为（ ）。 x = 2 : Print x + 2 : Print x + 3 （A）2 （B）3 （C）5 （D）8
30．要把光标移到文本框Text1上，以便接收输入数据，正确的命令是（ ）。 （A）Text1.LostFocus （B）Text1.GotFocus （C）Text1.SetFocus （D）GotFocus.Text1
31.语句Dim Sum As Integer作用是:将Sum定义为（ ）变量。
(A)整型 (B) 单精度型 (C) 布尔型 (D)字符型
32．下列 Visual Basic 程序段运行后，变量Value的值为（ ）。 x = 20 If x > = 10 Then Value = 5 * x Else Value = 4 * x （A）100 （B）80 （C）90 （D）70 33．达式2*3∧2+2*6/3 的值是（ ）
(A) 60 (B) 22 (C) 45 (D) 58
34．LCase( “This” )的值是（ ）
(A) This (B) THis (C) THIS (D) this
35．下列Visual Basic程序段运行后，变量n 的值为（ ）。 n = 0
For x = 3 To 11 Step 2 n = n + 1 Next x （A）4 （B）5 （C）6 （D）7
36．下列Visual Basic程序段运行后，变量m 的值为（ ）。 a = 2 : b = 1 : c = 5 If a < b Then m = a Else m = b
If c < m Then m = c （A）2 （B）1 （C）5 （D）三项答案均不是
37．下列Visual Basic程序段运行后，变量 a、b、c的值为（ ）。 a = 1 : b = 1 : c = 1
Do While a + b + c < = 10 a = a + 1 b = b * 2 c = b / 2 Loop
（A）2 2 1 （B）3 4 2 （C）4 8 4 （D）4 4 38．下列说法中错误的是（ ） A）窗体文件的扩展名为.frm
3
2 B）一个窗体对应一个窗体文件
C）VB中一个工程只能包含一个窗体
D）VB中一个工程最多可以包含255个窗体 39．按下列组合键可以打开立即窗口的是（ ）
A）Ctrl+D B）Ctrl+F C）Ctrl+G D）Ctrl+E
40．以下各组函数中，能够得到一个字符串的一组函数是（ ） A）Left函数、Right函数、Mid函数 B）Len函数、Lcase函数、Ucase函数 C）Ltrim函数、Rtrim函数、Asc函数 D）Chr函数 、 Len函数、Trim函数
41．表达式abs (-3.6 ) * sqr (100 ) 的值是（ ）。 （A）-360 （B）360 （C）-36 （D）36 42．Rem语句的作用是（ ）
A）删除语句 B）行号引导语句 C）注释语句 D）恢复语句 43．利用（ ）属性可以画出圆、椭圆和圆角矩形。
（A）Shape (B)Visible (C)Height (D)Width 44．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码，程序运行后，单击命令按钮，输出结果是（ ） Private Sub Command1_Click( )
Dim arr1(10) As Integer, arr2(10) As Integer n=3
for I=1 to 5 arr1(i)=I
arr2(n)=2*n+I next I
print arr2(n);arr1(n) End Sub
A) 11 3 B) 3 11 C) 13 3 D) 3 13 45．下面程序的运行结果是（ ） for p=1 to 5 s=s+1 s=0 next r for q=1 to 6 next q s=1 next p for r= 1 to 7 print s A)6 B)7 C)8 D)9
4
第一题答题卡：
1 11 21 31 41 2 12 22 32 42 3 13 23 33 43 4 14 24 34 44 5 15 25 35 45 6 16 26 36 7 17 27 37 8 18 28 38 9 19 29 39 10 20 30 40 二、填空题（每小题2分，共30分）
1．VB程序的三种基本结构是:顺序,选择和_______。
2．用语句 Dim A (-3 to 3) as Integer,定义的数组元素个数是__ _。 3．函数Len(Lcase(\的值是_______.
4．表达式 Int(1234.555*100+0.5)/100 的结果是_______。 5．表示X是5或7的倍数的VB表达式是____ ___。 6．设a=6,则执行x=IIf(a>5,-1,0)后,x的值为_______。 7．InputBox()函数返回值的数据类型是__。
8．执行语句 B = MsgBox(\后,在消息框中的标题信息是___。
9．表达式Len(Left(\清华大学\的值是____ 。 10．将标签Label1的字号设置成20,使用的语句是 。
11．在VB中,有三种文件访问类型,它们是顺序型, 和二进制型。 12．For-Next循环的子句缺省时,循环变量每次改变的值是_______。
13．有下面一个程序段，实现从文本框中输入数据，如果该数据满足条件：除以3余1，则输出；否则，清除文本框的内容。请补充完整。 Private Sub Command1_Click( ) S=Val(Text1.Text)
If Then Print s Else
5