2024年3月31日发(作者：)

大连医科大学 2007年辽宁省 计算机省二级 VB试卷

2007省VB试题

一、单项选择题本题共20 小题;每小题2分;共40分

下面每题给出四个答案;用A; B; C; D标出;其中只有一个是正确的;将你选择的

结果涂黑答题卡对应题号的方格..

1.在Visual Basic中;窗体文件的扩展名为

A. bas B. cls C. frm D. txt

2.工具栏中的“启动”按钮的作用是

A.打开被选中对象的代码窗口 B.运行一个应用程序

C.工程管理窗口 D.运行一个窗体

3.在结构化程序设计中;限制使用goto语句的原因是

A.该语句对任何结构的程序都不适用 B.便于程序的合成

C.提高程序的执行效率 D.提高程序的清晰性和可读性

4.当拖动某对象A经过对象B时;将会发生对象B的

A. DragOver事件 B. DragDown事件

C. Drag事件 D. DragDrop事件

5.在使用菜单编辑器创建菜单时;可在菜单标题中某字符前插入一个符号;在运行程

序时按键和该字母键就可以打开该菜单;这个符号是

A.＠ B.＆

C.＄ D.下划线

6.在顺序文件中;当使用write#语句时;文件打开的方式可以是

A. Append或Input B. Output或Picture

C. Output或Append D. Output和Input

7.当运行程序时;系统执行启动窗体的某个事件过程是

A. SetFocus B. Unload

C. Click D. Load

8. Right“ABCDEFG”;3的执行结果是

A. CDE B. DEF

C. EFG D. ABC

9.要使窗体Forml的标题栏显示"Visual Basic语言”;下列语句正确的是

A. n="Visual Basic语言"

B. Set n="Visual Basic语言"

C. Forml caption="Visual Basic语言"

D. ="Visual Basic语言"

10．设a=3;则执行x=IIFa>5;-1;0后;x的值是

A. 5 B. 3

C. 0 D.-1

11.如果X是一个正的实数;将千分位四舍五入;保留两位的表达式是

A. 0. 01*Int X+0.005 B. 0. 01*Int 100* X+0.05

C. 0. 01*Int100* X+0.005 D. 0. 01*Int X+0.05

12.整数除法的运算符是

A. Mod B.＼

C. / D.％

13.多重窗体程序设计中;为了使窗体Forml从屏幕上消失但仍在内存中;所使用的方法或语句为

A. Unload Form1 B. Close Forml

C. Form D. Form

14. Visual Basic中;运算符“＆”代表的运算是

A.算术 B.关系

C.字符串连接 D.逻辑与

15.在窗体上画一个名称为Checkl的复选框;在程序运行的过程中;若选中复选框;则

Checkl．Value的值是

A. 3 B. 2

C. 1 D. 0

16.以下事件中;不是鼠标事件的是

A. Change B. Click

C. MouseDown D. MouseUp

17.定义货币类型数据应该用关键字

A. Boolean B. Currency

C. Double D. Single

18.若使用键盘来访问菜单项“打开文件O”;应按的组合键是

A Tab+O B. Shift+O

C. Ctrl+O D. Alt+O

19.设在菜单编辑器里定义了一个菜单项;名为menul..为了在运行时隐藏该菜单项;应使用

的语句是

C .d=False D. d=True

20.调试Visual Basic程序时;逐条语句执行的快捷键是

A. F10 B. F9

C. F8 D. F7

二、多项选择题本题共5小题;每小题2分;共10分

下面每题给出五个答案;用A; B; C; D; E标出;其中有两个含两个以上是正确的;将你选择的结果填在答

题纸对应题号的括号内..

1.下面选项中;不能使控件得到焦点的操作是

A.在程序运行期间;用鼠标单击对象 B.在程序运行期间;用快捷键选择对象

C在程序运行期间;用Tab键 D.在程序运行期间;用Enter键

E.在程序运行期间;用Esc键

2. Visual Basic语言中;允许出现的数为

A 3.47E-10 B 886

D. 34.75D+6 E. 12E3

3.下面关于多重窗体程序设计描述正确的是

A.在多重窗体程序中;只能有一个窗体是启动窗体

B.在多重窗体程序中;系统默认第一个被装载内存的窗体成为启动窗体

C.在多重窗体程序中包括多个窗体;每个窗体都要作为一个文件保存

D.多重窗体程序的保存操作步骤按照先保存工程文件;再保存窗体文件

E.在多重窗体程序中;允许为工程生成可执行文件

4.组成结构化程序设计的结构是

A顺序结构 B.等价结构 C.选择结构

D.循环结构 E.转移结构

5. Visual Basic的特点包括下面的

A.不需编程 B.面向对象的程序设计 C.可视化程序设计

D.事件驱动的程序设计 E.自动化程序设计

三、填空题本题共15小题;每小题2分;共30分

请将正确答案填写在答题纸相应位置上;答在试卷上不能得分..

1. Visual Basic中;取出字符串中的一部分连续字符组成新的字符串的函数是 ..

2.设x=5; y=6;表达式x

3.根据数据的存取方式和结构;文件可以分为顺序文件和 ..

4. Visual Basic中;将字符串转换成ASCII代码的函数是 ..

5.语句Print"25*40"输出的结果是 ..

6. Data控件是Visual Basic中用于访问数据库的标准控件. Data控件提供了 方法用于关闭一个

数据库..

7.在Visual Basic中;工程文件的扩展名是 ..

8.假定建立了一个工程;该工程包括两个窗体;其名称分别为Form 1和Form2;启动窗体为Form 1;在

Form 1上画一个命令按钮Command 1;程序运行后;要求当单击该命令按钮时;Form 1窗体消失;显示窗体

Form2;请将程序补充完整..

Private Sub Command l_Click

Unload Form 1

Form2．

End Sub

9.下面程序计算2*4*6*…*16;请将程序补充完整..

Private Sub Command 1_Click

Dim t As Single; k As Integer

k＝0: t＝1

While k＜16

k＝k＋2

Wend

Print t

End Sub

10.执行下列程序段;输出结果是

a=3

b=5

c=8

Print ac

11.设计一个显示时间的窗体;窗体有两个标签和一个计时器;Label1的标签为“时间”;另－个标签用于

显示当前机器的时间..计时器的Interval属性为1000请将程序补充完整..

Private Sub timer1_timer

Labe12. =Time

End Sub

12.下面程序计算1+1+2＋1+2+3＋…＋1+2+3+4+……＋10..;请将程序补充完整..

Private Sub Command1_Click

Dim i As Integer; sum As Long

For i＝1To10

sum＝sum＋totali

Next i

Print"和数为"：sum

End Sub

Public Function totalx As Integer As Long

Dim ss As Long; i As Integer

ss＝0

For i＝1 To x

ss＝

Next i

total＝ss

End Function

13.以下程序的功能是：从键盘上输入若干个学生的考试分数;当输入负数时结束;然

后输出学生的最高分数和最低分数..请将程序补充完整..

Private Sub Command 1_Click

Dim x As Single; amax As Single; amin As Single

x＝InputBox"Enter a score"

amax＝x

amen＝x

Do While

If x＞amax Then

Amax=x

End If

If amin＞x Then

amm＝x

End If

x＝InputBox"Enter a score"

Loop

Print "Max--"；amax; "Min="：amin

End Sub

14.下面程序计算1 *2+2*3+3*4+…+N+1*N;请将程序补充完整..

Private Sub Command 1_click

s＝0

For k＝1 Ton

s＝s＋ *k

Next k

Print s

End Sub

15.下面程序的功能是用Array函数建立一个含有8个元素的数组;然后查找并输出该数组中元素的最

人值..请把程序补充完整..

Private Sub Command 1_Ciick

Dim arrl;Max As Integer

arrI＝Array12; 435;76;24; 78; 54; 866; 43

＝arr10

For i＝OTo7

if arrli＞Max Then Max＝arr 1i

Next i

Print "最大值是："：Max

End Sub

四、阅读程序题本题共8小题;1-4每小题2分;5-8每小题3分;共20分

请将正确答案填写在答题纸相应位置上;答在试卷上不能得分..

1.在窗体上画一个命令按钮;其名称为Command l;然后编写如下程序：

Private Sub Command1_Click

Dim a As Integer; b As Integer

A=5

b＝10

sub l a; b

Print "a="；a; "b="; b

End Sub

Sub sub Ix As Integer; y As Integer

x＝x＋5

Y＝Y一5

End Sub

程序运行后;单击命令按钮;输出结果为 ..

2.在窗体上画一个命令按钮;其名称为Command l;然后编写如下程序：

Private Sub Command 1 Clicks

Sum＝0

For k＝1 To 3

If k＜＝1 Then

X=I

ElseIf k＜＝2 Then

x＝2

Elself k＜＝3 Then

x＝3

Else

X=4

End If

Sum＝Sum＋x

Next k

Print Sum

End Sub

程序运行后;单击命令按钮;输出结果为 ..

3.窗体上画一个名称为Command 1的命令按钮;编写如下程序：

Private Sub Command1_Click

a＝1:b＝2:c＝3

a＝b:b＝c:c＝a

Print a; b; c

End Sub

程序运行后;单击命令按钮;则窗体上显示 ..

4.窗体上画一个名称为Command l的命令按钮;编写如下程序：

Private Sub Command1_Click

a＝0

b＝1

Do

a＝a＋b

b=a＋b

Loop While a＜20

Print a; b