VB考试真题二 含答案

本卷共有3道大题:
一、单项选择题（40道小题，共40分）
1、下列说法中，不正确的说法是( D )。

（1分）
A、窗体是对象
B、窗体必须有Name属性
C、窗体可以缩放或移动
D、单击窗体内的控件可以执行Form_Click事件过程
2、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( D )下拉菜单中寻找并打开。

（1分）
A、编辑
B、文件
C、调试
D、视图
3、下列说法中，正确的说法是( B )。

（1分）
A、窗体名称和该窗体文件名必须一致
B、窗体名称和该窗体文件名可以不相同
C、窗体名称和该窗体文件名不能使用汉字
D、窗体名称不能使用汉字、但该窗体文件名能使用汉字
4、命令行Command1.Caption="Command1"，其中Command1、"Command1"分别代表的是( B )。

（1分）
A、命令、标题
B、控件名称、Caption属性值
C、对象、控件名称
D、标题、标题的值
5、Unload事件是在( A )时发生的。

（1分）
A、窗体关闭
B、对话框关闭
C、文本框失去焦点
D、改变文本框的内容
6、所谓默认属性是指不用指定控件的属性名就可以代表其属性。

一个文本框控件Text1的默认属性是( B )。

（1分）
A、Name
B、Text
C、Top
D、FontSize
7、命令按钮Command1的Caption属性为“退出x”，如果将命令按钮的快捷键设为Alt+x，应修改Caption属性为( A )。

（1分）
A、在x前插入&
B、在x后插入&
C、在x前插入#
D、在x后插入#
8、要使标签控件在显示时不覆盖其背景内容，可以对标签控件的( D )属性进行设置。

（1
分）
A、BackColor
B、BorderStyle
C、ForeColor
D、BackStyle
9、为使计时器控件每隔1秒产生一个计时器事件（Timer），则应将其Interval属性值设置为( D )。

（1分）
A、1
B、100
C、10
D、1000
10、只能用来显示字符信息的控件是( B )。

（1分）
A、文本框
B、标签框
C、图片框
D、图像框
11、在4个字符“D”、“z”、“A”、“9”中，其ASCII码值最大的是( B )。

（1分）
A、“D”
B、“z”
C、“A”
D、“9”
12、如果逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是( C )。

（1分）
A、前一个为“真”，后一个为“假”
B、前一个为“假”，后一个为“假”
C、前一个为“真”，后一个为“真”
D、前一个为“假”，后一个为“真”
13、能表示身高T超过1.7米且体重W小于62.5千克的人的布尔表达式是( C )。

（1分）
A、T>1.7 And W<=62.5
B、T>=1.7 Or W>=62.5
C、T>1.7 And W<62.5
D、T>1.7 Or W<62.5
14、表达式5/4*6\5 Mod 2 的值是( B )。

（1分）
A、0
B、1
C、2
D、3
15、设有程序段Print -20;:Print -16，则输出结果为( A )。

（1分）
A、-20 -16
B、-36
C、-20-16
D、出错
16、下列标识符中，属于合法变量名的标识符是( D )。

（1分）
A、X-3
B、4y
C、n$1
D、bAC
17、设a=1，b=2，c=3，d=4，下面逻辑表达式的值为真的是( )。

（1分）
A、Sqr(d)>b
B、d>c And b>a
C、Abs(a-d)<c
D、Not(c-b)<b
18、若变量a和b的值分别是6和8，则Sqr(a*a+b*b)的结果是( )。

（1分）
A、6
B、8
C、10
D、14
19、设m,n是整数，且n>m，在以下能将x赋值为一个m～n之间(含m,n)任意整数即满足n≥x≥m的是( )。

（1分）
A、x=Int(Rnd*(n-m+1))+m
B、x=Int(Rnd*n)+m
C、x=Int(Rnd*m)+n
D、x=Int(Rnd*(n-m))+m
20、能删除字符串前导和尾随空格的函数是( C )。

（1分）
A、LTrim()
B、RTrim()
C、Trim()
D、LCase()
21、若x=5，执行程序段：Print "x="; x + 1: Print "x="; x + 2: Print "x="; x + 3 后，变量x 的值是( A )。

（1分）
A、5
B、6
C、7
D、8
22、下列关于语句If y = 1 Then x = 1 的说法中，正确的说法是( )。

（1分）
A、x = 1 和y = 1 均为赋值语句
B、x = 1 和y = 1 均为关系表达式
C、x = 1 为关系表达式，y = 1 为赋值语句
D、x = 1 为赋值语句，y = 1 为关系表达式
23、执行a = InputBox("Today", "Tomorrow", "Yesterday", , , "Day before yesterday", 5)，在对话框的标题区显示的信息是( B )（1分）
A、Today
B、Tomorrow
C、Yesterday
D、Day before yesterday
24、对话框InputBox作为函数的返回值一般为( A )。

（1分）
A、Integer
B、String
C、Variant
D、Long
25、语句For i = -3 To 20 Step 0 的循环次数为( D )。

（1分）
A、23
B、20
C、错误提示
D、无数次（死循环）
26、下列关于“Do While 条件: 循环体: Loop”这种循环结构的叙述中，正确的叙述为( C )。

（1分）
A、如果“条件”为常数0，则一次循环体也不执行
B、如果“条件”为常数-1，则一次循环体也不执行
C、如果“条件”为常数-1，则只执行一次循环体
D、如果“条件”为常数0，则执行无限次循环体
27、设变量n为整型，执行“n = "ab123"”赋值语句后，n中的结果为( D )。

（1分）
A、数值123
B、字符串ab123
C、语法错误
D、提示“类型不匹配”错误
28、已知：Option Base 1，Dim A(0 To 5, 0 To 5) As Integer，则数组A的元素个数是( C )。

（1分）
A、10
B、12
C、25
D、36
29、一个数组中的所有元素具有相同的数据类型，只有( D )的类型可以例外。

（1分）
A、String
B、Single
C、Integer
D、Variant
30、已知：Option Base 0，Dim A()，n% = 7，则下列操作中，错误的操作是( )。

（1分）
A、ReDim A(n)
B、ReDim A(n-8)
C、ReDim A(n+2)
D、ReDim Preserve A(n)
31、已知：Option Base 1，Dim a() As Integer, Dim b(-1 to 2) As Integer，如果执行a = b ，则数组a的下界是( )。

（1分）
A、-1
B、0
C、1
D、2
32、事件过程是在( D )时执行的代码段。

（1分）
A、窗体调用
B、单击窗体
C、双击窗体
D、响应事件
33、若变量Temp为全局变量，在过程Form_Click内又定义了局部变量Temp，在窗体名默认的情况下，能在过程Form_Click内访问全局变量Temp的形式是( C )。

（1分）
A、Temp
B、Form.Temp
C、Form1.Temp
D、Form_Click.Temp
34、当形参用简单变量表示而且不需要返回值时，相应的实参可以是( D )。

（1分）
A、表达式
B、数组元素
C、变量或常量
D、常量、变量、数组元素、函数、表达式
35、在窗体的“通用”段声明变量时，不能使用( D )关键字。

（1分）
A、Dim
B、Static
C、Public
D、Private
36、以下叙述中，错误的叙述是( C )。

（1分）
A、打开一个工程时，系统自动装入与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别保存窗体文件及工程文件
C、Visual Basic应用程序只能以解释方式执行
D、事件可以由用户引发，也可以由系统引发
37、在Show方法中，“模式”的默认值为( )。

（1分）
A、0
B、1
C、2
D、Null
38、下列对于顺序文件的描述中，正确的描述是( C )。

（1分）
A、每个记录长度相同
B、可以随机访问其中的记录
C、必须按照顺序访问
D、可以向文件中插入记录
39、使用Write #1, "abc", "def", 123 语句后，打开该被写入的文件，则文件中的内容是( B )。

（1分）
A、"abc","def",123
B、abc def 123
C、"abc" "def" 123
D、abc,def,123
40、设有语句Open "c:\Test.Dat" For Output As #1，则以下错误的叙述是( D )。

（1分）
A、该语句在C盘根目录下建立一个名为Test.Dat的文件
B、该语句建立的文件的文件号为1
C、执行该语句后，就可以通过Print # 语句向文件Test.Dat中写入信息
D、执行该语句后，就可以通过Input # 语句从文件Test.Dat中读出信息
二、填空题（5道小题，共30分）
1、* 求T=2×4×6×8×…×30
* 程序段如下：
For I = 2 To 30
T = T * I
Next I
Print "乘积为: "; T
（6分）
________________________________________
2、* 利用数组求裴波那契数列1,1,2,3,5,...的前20项。

* 程序段如下：
Private Sub Command启动_Click()
Dim a(20) As Integer, i As Integer
a(1) = 1: a(2) = 1
Print a(1); a(2);
For i = 3 To 20
a(i)= a(i - 1) + a(i - 2)
Print a(i);
Next i: Print
End Sub
（6分）
________________________________________
3、* 程序功能是实现矩阵转置，即将M×N的矩阵的行和列互换。

* 如将下列矩阵A转换为B
┏┓┏┓
┃1 2┃┃13 5 ┃
A = ┃3 4┃
B = ┃┃
┃5 6┃┃2 4 6 ┃
┗┛┗┛
* 程序代码如下：
Option Base 1
Private Sub Form_Click()
Dim A(3, 2),B(2, 3)
For I = 1 To 3
For J = 1 To 2
A(I, J) = (I - 1) * 2 + J
Print A(I, J);
Next J
Print
For I = 1 To 2
For J = 1 To 3
B(I, J) = (J-1)*2+I
Print B(I, J);
Next J
Print
Next I
End Sub
（6分）
________________________________________
4、* 设计一个用于求一维数组中的最小值的子过程。

* 程序代码如下：
Private Sub min(s())
Dim i As Integer, a As Integer, b As Integer
a = LBound(s)
b = UBound(s)
m = s(a)
For i = a To b
If s(i) < m Then
m = s(i)
End If
Next i
Print m
End Sub
（6分）
________________________________________
5、* 若在D:盘根目录下有文本文件zhengda3.txt，统计该文件的记录个数。

* 程序段如下：
Private Sub Form_Load()
Open "d:\zhengda3.txt" For Input As #1
n = 0
Do
Input #1, a
n = n + 1
Loop Until EOF(1)
Print "n="; n
End Sub
（6分）
________________________________________
三、编程题（3道小题，选作2道，每道15分，共30分）
1、* 编写一个计算某数的平方、绝对值的平方根、立方和绝对值的立方根程序，如图K_613.jpg 所示。

* 界面要求：
* 使用文本框，命令按钮完成。

* 运行要求：
* 1、在第一个文本框中输入任意整数；
* 2、求出该数的平方、绝对值的平方根、立方和绝对值的立方根，在文本框中显示;
* 3、一个命令按钮用来清除文本框的文字，另一个命令按钮完成计算。

* （此题要求上载窗体文件，不要求填写程序运行结果）
（下载文件“k_613.jpg”）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。

（15分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
________________________________________
2、* 编写程序：
* 利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，* 找出其中小于平均值的奇数并统计其个数。

（15分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
________________________________________
3、* 编写程序：
* 计算下面级数前n项中（n=50）奇数项的和，并输出该级数最后两项之差的绝对值。

1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…
（15分）
必须将本题程序最后的运行结果填入下面的框中。

否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序。