vb本科0708(B)

河北农业大学课程考试试卷

2007--2008学年第2学期 2007 级卷别：B

考试科目：高级语言程序设计(VB) 本科考核方式：闭卷考试

本试卷共（ 6 ）页

一、单项选择题（每题1分，共40分）

1、下列哪个是VB窗体文件的扩展名（）。

A、vbp

B、bas

C、frm

D、bmp

2、控件中的Height属性表示（）。

A、控件的宽度

B、控件左上角的坐标

C、控件到屏幕顶部的距离

D、控件的高度

3、Visual Basic 6.0有三种工作模式，请选出其中的一种（）

A、设计模式

B、属性窗口模式

C、代码窗口模式

D、错误模式

4、下列哪个属于对象的三要素之一（）。

A、类别

B、外观

C、事件

D、行为

5、如想设某按钮上显示文字为：KO，则应设置其Caption属性为（）。

A、KO

B、K下划线O

C、K&O

D、K*O

6、下列哪个是合法的VB变量名（）。

A、8c

B、AB

C、Dim

D、*A

7、下列哪句代码能够设置窗体Frm的前景色为红色（）。

A、Frm.ForeColor=RGB（255，0，0）

B、Frm.ForeColor=RGB（0，255，0）

C、Frm.BackColor=RGB（255，0，0）

D、Frm.BackColor=RGB（0，255，0）

8、按钮的可用性（对用户事件的响应）由其（）属性决定。

A、Name

B、Visible

C、Caption

D、Enabled

9、文本框内输入的任何字符都显示“#”，则需设置文本框的（）属性为“#”。

A、PasswordChar

B、Text

C、Caption

D、Font

10、VB开发环境一般在（）中改变控件的名称。

A、对象浏览窗口

B、工程窗口

C、属性窗口

D、窗体布局窗口

11、设置图片框Image控件大小自动调整，以便于完整显示装入的图片，需要设置图像框的（

）属性为True。

A、Picture

B、Name

C、Autosize

D、Stretch

12、下列关于数组的说法正确的是（）。

A、数组的下标界限不可更改。

B、数组常与循环语句结合使用。

C、数组的长度是固定的。

D、数组是一种数据类型。

13、Visual Basic有三个版本，（）包括另外两个版本的全部功能。

A．学习版 B. 企业版 C. 专业版 D.以上全错

14、下列代码执行完毕后在窗体上输出（）。

Dim x As Integer ：x=int(3/10) ：Print x

A、0.3

B、1

C、0

D、3

15、下列代码执行完毕后在窗体上输出（）。

Dim x As Boolean ：x=”ab”>”AB”：Print x

1

A、True

B、False

C、1

D、0

16、下列代码执行完毕后在窗体上输出（）。

Print Len（“VB程序设计”）‘字符串内没有空格

A、6

B、10

C、12

D、8

17、下列代码执行完毕后在窗体上输出（）。

Print Asc（Chr（“65”））

A、@

B、65

C、a

D、A

18、下列代码执行完毕后在窗体上输出（）。

Print Right（“abc”，1）； Mid（“abc”，2，1）

A、121

B、cb

C、cab

D、abc

19、下列代码执行完毕后在窗体上输出（）。

Print 5\4 ；4 Mod 2

A、1.25 0

B、1 0

C、1 2

D、1.25 2

20、下列代码执行完毕后在窗体上输出（）。

Print “2” + “2”；2 & “2”

A、22 22

B、4 22

C、22 4

D、4 4

21、强制退出Do循环可使用的语句为（）

Ａ、Exit Do Ｂ、Exit For Ｃ、End For Ｄ、End Do

22、时钟控件中的（）事件会在设定的Interval时间间隔到达后发生。

A、Enabled

B、Click

C、Timer

D、Visible

23、用VB的表达式写出求根公式中的判别式b2-4ac正确的是（）。

A、b2-4ac

B、b*b-4*a*c

C、b2-4*a*c

D、b^2-4ac

24、在程序运行时，能够同时选择多个同类项目的控件是（）。

A、单选钮

B、检查框（复选框）

C、命令按钮

D、都可以

25、下列代码执行完毕后在窗体上输出（）。

If 5<6 Then Print “a” Else Print “b”

A、a

B、b

C、97

D、98

26、以下叙述中错误的是（）

A、双击鼠标可引发DblClick事件

B、控件的事件名称可由编程人员确定

C、移动鼠标会引发MouseMove事件

D、控件的名称可以由编程人员设定

27、设置命令按钮Cmd1为关联“ESC”键用于“取消”操作的缺省按钮，则需要设置其（

）属性为True。

A、Enabled

B、Cancel

C、Default

D、Name

28、关于vb的编程规则,说法错误的是( )。

A、符号常量的名字可与关键字一样

B、可不区分大小写

C、变量可不声明，系统会默认它为变体类型

D、变量名不可以是关键字

29、修改Label标签控件的名称，则需要修改标签的（）属性。

A、Caption

B、Name

C、Text

D、Enabled

30、设置图片框Picturebox装入的图像自动调整大小以适应图像框的大小，需设置图片框 (

)属性为True。

A、Picture

B、Name

C、Autosize

D、Stretch

31、下面的赋值语句，不正确的是（）。

A、x=15

B、x=x+15

C、x+y=15

D、x=y

32、表达式Int(Rnd*30)产生的是在（）区间内的随机整数。

A、（0,30）

B、[0,30]

C、[0,29]

D、(0,29)

33、在程序运行阶段，读取单选按钮OptionButton是否被选，需对（）属性读取。

A、Caption

B、Name

C、Visible

D、Value

34、单击滚动条空白处，改变的是滚动条的（）属性值。

A、Length

B、Value

C、LargeChange

D、SmallChange

35、定义语句Dim A (-2 to 2，3) as Integer，定义数组的元素个数是（）。

A、20

B、12

C、16

D、9

36、当用户在窗体上单击键盘时，不会触发的事件是（）。

Ａ、Click Ｂ、Keypress Ｃ、KeyUp Ｄ、Keydown

37、如要改变显示字体的粗体属性，应修改（）属性。

A、Fontname

B、Fontsize

C、Fontbold

D、FontItalic

38、下列代码执行完毕后在窗体上输出（）行。

Print 123

Print “123”

A、0

B、1

C、2

D、3

39、Do While … Loop 循环结构最少执行（）循环。

A、0次

B、1次

C、任意

D、依具体情况

40、下列代码执行完毕后在窗体上输出（）。

Print 3<2

A、3<2

B、3

C、True

D、False

二、程序填空题（每空2分，共20分）

1、若A=2，B=8，C=7，则表达式（A+B）>9 AND (NOT A*C>20)值是 (1) 。

2、下面代数式的Visual Basic表达式是__(2)___。

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

Dim n As Integer

n=1

For i = 0 To 10 Step 3

n=n+1

Next i

4、下列语句功能为判断两个整型变量x和y的大小，将大数存储在x中,小数存储在y中。请

将代码补充完整。

Dim x As Integer，y As Integer，t As Integer

If （5） Then

（6）

x=y

（7）

End If

5、RndSub函数的功能为产生一个[10，20]之间的随机整数，并将该数报存在变量x中，如果

该数能被2整除则输出信息“偶数”，否则输出信息“奇数”，请将代码补充完整。

Private Sub RndSub（）

Dim x As Integer

x = (8)

If （9） Then

Print “偶数”

（10）

Print “奇数”

End If

End Sub

三、读程序，写出程序的运行结果（每题5分，共20分）

1、窗体上有一个名称为Command1的命令按钮，其事件过程如下，运行状态下点击Command1

按钮，写出窗体上的输出结果

Private Sub Command1_Click（）

s=1

i=6

If i<=5 Then

s=s*i

i=i+1

End If

Print i ，s

End Sub

2、窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程，运行状

态下点击Command1按钮，写出窗体上的输出结果。

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do While num < 6

Print num : num = num + 2

Loop

End Sub

3、写出下列程序段的输出结果。

Dim A as Boolean

A=1

Do While A

Print “2008”

For MyI=1 To 2

A=Not A

Exit For

Print “2008”

Next MyI

Loop

4、写出下列程序段的输出结果。

A=10

If A>11 then

M=1

ElseIf A>8 Then

M=2

ElseIf A=10 Then

M=3

End If

Print “M=”;M

四、写程序（每题10分，共20分）

1、统计某班某名学生某一门课程的成绩所属的分数等级 (<60为不及格；≥60而<70为及格；

≥70而<90为良好；≥90为优秀。)。学生成绩由文本框text1给出，单击命令按钮后将判断分数等级结果显示在图片框picture1中。

2、整数排序。功能：用户在文本框中分别输入三个整数值，然后单击“排序”按钮对这三个整

数值进行正向（由小到大）排序，将排序结果显示输出在图片框Picture1中。