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)

D、Not(c-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分）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序