vb本科2007(B)

河北农业大学试题纸
专业年级_____________姓名_____________学号_____________卷别 B
科目高级语言程序设计（本科）第一页（共六页）
所有题目的答案都在答案页上做，其它地方的答案无效！
一、单项选择题（每题1分，共40 分）
1.Visual Basic有三个版本，（）包括另外两个版本的全部功能。

A．学习版 B. 企业版 C. 专业版 D.以上全错
2.Visual Basic有三种工作模式，（）是错误的。

A．设计模式 B. 停止模式 C.中断模式 D. 运行模式
3.窗体文件的扩展名是（）。

A．.bas B. .cls C. .frm D. .res
4.以下说法中正确的是（）。

A. Visual Basic 是一种可视化编程工具
B. Visual Basic 是面向过程的编程语言
C. Visual Basic 是非结构化程序设计语言
D. Visual Basic采用代码驱动编程机制
5.VB可根据工程开发需要，把对象添加到应用程序中，在设计阶段可通过（）设置对象属性。

A. 对象浏览器
B. 属性窗口
C. 工程窗口
D.代码窗口
6.表示检查框被选中的属性是( )。

A. Alignment
B. Enable
C. Value
D. Check
7.用Shight!声明的变量类型是（）。

A．单精度型B．整型C．字符串型D．日期型
8.以下叙述中错误的是（）
A．双击鼠标可以引发DblClick事件B．窗体或控件的事件的名称可以由编程人员确定
C．移动鼠标时会引发MouseMove事件D．控件的名称可以由编程人员设定
9. Len(“我的12.124”)的输出结果是（）。

A．0 B．9 C．8 D．10
10.任何控件都有（）属性。

A．Name B.Caption C. BackColor D.BorderStyle
11.用情况选择语句Select Case X，选择|X| >5情况的语句为Case（）。

A. Not (-5 To 5)
B. 5 To -5
C.Is < -5, Is >5
D. ABS(X) > 5
12.若X = -5，执行If X Then X = 0 Else X = 1 的结果为（）。

A. 实时错误
B. 编译错误
C. X = 1
D. X = 0
13.窗体是应用程序的界面，如果想在窗体的标题栏中显示应用程序的名字，可通过( )实现。

A. 修改窗体的Caption属性
B. 修改窗体的Name属性
C. 修改应用程序中窗体文件的名字
D. 修改工程文件的名字
14.Print方法及图形方法可在某些对象上显示文本信息或绘制图形，但不能用于哪一个对象。

A. 图片框
B. 窗体
C.文本框
D. 打印机
15.图象框（Image）控件可用于显示图形信息,若想使装入的图片自动拉申，以恰好适应图象框的大小，应修改其( )属性。

A. DragMode
B. DragIcon
C. Stretch
D. Picture
16.定义数组Dim B（1 To 3，4，-2 To 1）As String 后，B有( )个元素
A．12 B．24 C．60 D．120
17.续行符的正确书写格式是（）。

A. 一个下划线“_”
B. 一个空格加一个下划线“ _”
C. 一个连字符“-”
D. 一个空格加一个连字符“ -”
18.一个命令按钮（CommandButton）为“缺省命令钮”时按回车键即可激活其Click事件，要使一个命令钮为缺省的，应修改其( )属性。

A. MouseIcon
B. MousePointer
C. Default
D. Caption
19.程序运行时如果改变了滚动条的滚动块，则哪一项属性随之改变。

A.Max
B. Min
C. Value
D. Largechange
20.设窗体上有一个列表框控件List1，且其中含有若干列表项。

则能表示当前被选中的表项内容的是( )。

A．List1.List B．List1.ListIndex C．List1.Index D．List1.Text
21.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是( )。

A．MouseDown B．MouseUp C．Load D．Click
22.设a = 10，b = 5，c = 1，执行语句Print a>b>c后，窗体上显示的是（）。

A．True B．False C．1D．出错信息
23.以下正确的描述是（）。

A．窗体ScaleHeight属性值与Height属性值相等B．窗体ScaleHeight总小于Height属性值
C．窗体ScaleHeight属性值总大于Height属性值D．ScaleHeight属性值有时大于Height属性值23.以下能判断是否能达到文件尾的函数是（）。

A．BOF B．LOC C．LOF D．EOF
24.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。

A．=B．*C．&D．-
25.设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是（）。

A．若“条件”是False，则一次也不执行循环体
B．“条件”可以是关系表达式、逻辑表达式或常数
C．循环体中可以使用Exit Do语句
D．如果“条件”总是为True，则不停地执行循环体
26.下列不是图形控件的是( )。

A．Picture B．Circle C．Line D．Shape
27.关于文件,下列说法不正确的是( )。

A．操作系统以文件为单位对数据进行管理B．文件是数据的集合
C．文件只能按顺序读取D．文件能保存在外部介质中
28.在通用对话框中（）属性决定实际的对话框类型。

A．Name B．Action C．DialogTiltle D．Index
29.说明全局级过程，应在过程名前加上（）。

A．Public B．Private C．Static D．ByVal
30.关于菜单说法错误的是( )。

A．任一菜单项都有Name和Caption属性B．任一菜单项都响应click事件
C．任一菜单项都可设置快捷键D．任一菜单项都可设置热键
31.时钟控件只响应一个( )事件。

A．Interval B．Timer C．Click D．Enable
32.使窗体全屏显示的属性是( )。

A．Maxbutton B．Widowstate C．Mdichild D．Borderstyle
33.在程序运行时，可以用（）方法调用快捷菜单。

A．Popupmenu B．Print C．Pset D．Move
34.Mid(C,10,5)的含义是（）。

A．在字符串C中自第10个字符开始向右取出5个字符。

B．在字符串C中自第5个字符开始向右取出10个字符。

C．在字符串C中自第10个字符开始向左取出5个字符。

D．上述都错。

35.对于循环的嵌套，下面叙述错误的是（）
A．内外循环变量不能同名。

B．程序可内、外循可以交错。

C．外循环必须包含内循环。

D．FOR循环和DO循环都可以嵌套。

36.将文本框的（）属性设置为True时，文本框允许输入多行文本。

A. ScrollBars
B. Enabled
C. WordDrap
D. MultiLine
37.要使标签中的文本居中显示，应设置标签框的（）属性。

A．Caption B. Name C. Alignment D. Font
38.以下各项，可作为VB变量名的是（）。

A．23.456 B. 21_luck C. goodluck D. good-luck
39.Visual Basic中，可以在（）中检测函数或表达式的值。

A．对象窗口 B. 属性窗口C. 立即窗口 D. 工程资源管理器窗口
40.在窗体上画一个名为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 20 Then m = m + n \ 3
Next n
Print n
End Sub
程序运行后,如果单击命令按钮,则窗体上显示的内容是( )。

A．错误B．21C．18D．24
二、填空题（每空2分，共20分）
1.下面代数式的Visual Basic表达式是__(1)___。

2
2.执行下列循环语句，退出循环后的i 值为___(2)___，n的值为___(3)__。

For i = 0 To 7.2 Step 3
n=0
n=n+1
Next i
3.菜单项显示为Tool( T )，则应在设计时将菜单项的 (4) 属性设定为 (5) 。

4.欲使计时器控件每隔0.5秒触发一次Timer事件，需将其Interval属性值设定为 (6) 。

5.设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr, Min As Integer
arr = Array(12, 435, 76, 24, 78, 54, 866, 45)
(7) = arr(1)
For i = 2 To 8
If Min ___(8)___ arr(i) Then
(9)
End If
Next i
Print "最小值是：", ____(10)___
End Sub
以上程序功能是用Array函数建立一个含有个8个元素的数组，然后查找并输出该数组中元素的最小值。

三、程序阅读题（每题5分，共20分）
1.在窗体是画一个名称为Command1的命令按钮，然后编写如下事件过程，写出程序运行结果。

Private Sub Command1_Click()
Dim num As Integer
num = 1
Do While num > 5
num = num + 2
Loop
Print num
End Sub
2.写出执行下面的代码后的运行结果。

Dim X ，Y
X = ”123” ：Y = X-23
X =X & Y
Y =X+Y
Print “X=”;X
Print “Y=”;Y
3. 写出执行下面的代码后的运行结果。

dim X,J,K
X=0
for J=1 to 3
X=X+1
for K=1 to 2
X=X+1
neXt K
neXt J
print “K=”;K;
print “J=”;J
4.写出连续三次单击Command1，输入”5”后，窗体显示的结果。

Private Sub Command1_Click()
Static Y as integer
Dim X as integer, Z as integer
X = Val(InputBox("请输入X："))
If Y > 5 Then
Y = Y - X
Z = Z + Y + X
ElseIf Y > 0 Then
Y = Y + X
Z = Z + Y + X
Else
Y = Y + 4
Z = Z + Y + X
End If
Print Y; Z
End Sub
四、程序设计题（每题10分，共20分）
1.计算1到200所有偶数之和，即s=2+4+6+……+200，并将结果显示在标签框控件Lable1中（要求：将所使用变量声明为整型）Private Sub Command1_Click()
End Sub
2.对任意4个整数a，b，c（这三个数假设已知）按照由小到大的顺序排序，并将结果显示在图片框控件Picture1中。

（要求：结果在Picture1中显示在同一行）注：可使用数组存储这san个数，也可直接使用a,b,c三个变量代表其中的值。

Private Sub Command1_Click()
End Sub。