2011学年02学期VB程序设计期末试卷A试题卷

绍兴文理学院元培学院2011学年02 学期

非计算机 专业 11 级《VB 语言程序设计》期末试卷（A ）

考试形式：（闭卷）

一、判断题（共 10 分，每小题 1 分。正确的用A 表示，错误的用B 表示。） 1.在用户拖动滚动滑块时，滚动条的Change 事件连续发生。 2.InputBox 函数返回的数据是字符串类型。

3.在形参前加关键字ByRef 或者什么都不加，参数传送方式为引用（即按地址传递）。

4.清除List1列表框对象的内容的语句是List1.Cls ，清除Combo1组合框的内容的语句是Combo1.Clear 。

5.如果一个菜单项不可见时，其后的菜单项就会往上填充留下来的空位。

6.驱动器列表框.目录列表框和文件列表框三者之间能够自动实现关联。

7.在使用“字体”对话框之前可以设置Flag 属性。

8.如果要定时器控件每钞钟发生一个Timer 事件，则Interval 属性应设置为100。 9.若c=Picture1.Point(x,y)

，则变量c 的类型一定是long 类型。 10.FileLen 函数的功能是用来返回文件的长度。

二、单选题（共 30 分，每小题 1 分）

1.Visual Basic 中的工程文件的扩展名是_____________。

A..reg

B..frm

C..bas

D..vbp 2.一个整型变量占 ___ 个字节 。

A.1

B.2

C.4

D.8 3.当执行下面语句后，k 的值为 ___ 。 w=1

For k=2 to 6 step 2

w=w+1 Next k

Form1.Print k

A.6

B.8

C.4

D.10 4.以下不属于窗体方法的是 。

A.clear

B.print

C.show

D.hide 5.以下关于Visual Basic 语言的说法中，正确的是 。

A.Visual Basic 是一种面向过程的语言

B.Visual Basic 是一种面向对象的语言

C.Visual Basic 是一种低级语言

D.Visual Basic 是一种机器语言

6.表达式23\4/2 mod 2*2的值是 。

A.3

B.2

C.1

D.4 7.坐标度量单位可通过 来改变。

A.Drawstyle 属性

B.DrawWidth 属性

C.Scale 方法

D.ScaleMode 属性 8.将数据项“China ”添加到列表框List1中，且使之成为第一项，使用的语句是 。

A.List1.Additem “China ”,0

B.List1.Additem “China ”,1

C.List1.Additem “China ”

D.List1.Additem 0, “China ” 9.下面变量名错误的是 。

A.private

B.luck

C.a1_

D.yes123 10.执行下列程序后，列表框中的数据项为_____________。

Private Sub Form_Click() Dim i As Integer For i = 1 To 6 List1.AddItem i

Next i

For i = 1 To 3

List1.RemoveItem i Next i End Sub

A.1,5,6

B.2,4,6

C.4,5,6

D.1,3,5

11.在顺序文件中，当使用input#语句时，文件打开的方式必须是____________。

A.input

B.output 或append

C. output

D. append 12.Private sub form_click ()

Dim a(5) as integer,i as integer For i=1 to 4 a(i) =2*i Next i Print a(i)

End sub

程序运行后，单击窗体，窗体上显示的结果是_____________。 A. 0 B. 8 C. 10 D. 12 13.文件号最大可取的值为_____________。

A.255

B.256

C.511

D.512 14.列表框的_____________属性可测试某一项是否被选中。

A.list

B.selected

C.text

D.caption

15.要使窗体在运行时不可改变窗体的大小，并且没有最大化和最小化按钮，要对下

_____________属性进行设置。

A.MaxButton

B.Width

C.MinButton

D.BorderStyle

16.复选框没有_____________属性。

A.Enabled

B.Value

C.Text

D.Caption

17.private sub command1_click()

Dim i As integer ,n As integer

Do while i<32

i =(i+1)*(i+1)

n=n+1

Loop

Print n

End sub

程序运行后，单击command1按钮，窗体上的输出结果为_____________。

A.2

B.5

C.3

D.4

18.KILL语句在VB语言中的功能是_____________。

A.清内存

B.清病毒

C.删除磁盘上的文件

D.清屏幕

19. 以下各表达式中,计算结果为0的是______________。

A.INT(12.4)+INT(-12.6)

B.CINT(12.4)+CINT(-12.6)

C.FIX(13.6)+FIX(-12.6)

D.FIX(12.4)+FIX(-12.6)

20.要读出一个文件名为“c:\tt.txt”的顺序文件，下列___________是正确的语句。

A.F=''c:\tt.txt "

B.F="c:\tt.txt"

Open F For Input As #1 Open "F" For Input As #1

C.Open c:\tt.txt for Output As #1

D.Open “c:\tt.txt” For Ouput As # 1

21.要想从子过程调用后返回两个结果，则子过程语句说明方法是_____________。

A.Sub f1(byval n as integer ,byval m as integer)

B.Sub f1(n as integer ,byval m as integer)

C.Sub f1(n as integer , m as integer)

D.Sub f1(byval n as integer , m as integer)

22.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框

中输入以下字符串：Microsoft Visual Basic Programming。然后编写如下事件过程：

Private Sub Command1_Click()

Open “d:\aa.txt” For Output As #1

For i = To Len (Text1.Text)

C = Mid(Text1.Text,i,1)

If c>=”A” And C<=”Z” The Print #1 ,Ucase(C);

Next i

Close

End Sub

程序运行后，单击命令按钮，文件outf.txt中的内容是_____________。

A.MVBP

B.mvbp

C.M

D..m

V v

B b

P p

23.下列____________途径在程序运行时不能将图片添加到窗体.图片框或图像框的Picture属

性。

A.使用Loadpicture方法

B.对象间图片的复制

C.通过剪贴板复制图片

D.使用拖放操作

24.设置所画的线条宽度，可选用____________属性。

A.FillStyle

B.BoderStyle

C.DrawWidth

D.DrawStyle

25.执行语句Line(1200,1200)-step(1000,500),B后，currentX= ______________。

A.1200

B.2200

C.1000

D.1700

26.Private Sub f1(n As Integer, ByVal m As Integer)

n = n Mod 5

m = m \ 5

End Sub

Private Sub Form_Click()

Dim x As Integer, y As Integer

x = 14

y = 14

Call f1(x, y)

Print x;y

End Sub

程序运行后，单击窗体，窗体上的输出结果是______________。

A.4 14

B.4 2

C.14 4

D.14 2

27.默认情况下，语句Dim a(5) as Integer 声明数组a的元素个数为_____________。

A.5

B.6

C.7

D.4

28.单击滚动条两端的任意一个滚动箭头，将触发该滚动条的______________事件。

A.KeyDown

B.Change

C.Scroll

D.Click

29.Line(200,100) –Step(300,400), ,B将在窗体画______________。

A.（200,100）到（300,400）的线

B.（200,100）到（500,500）的线

C.（200,100）到（300,400）的矩形

D.（200,100）到（500,500）的矩形

30.当对Draw Width进行设置后，将影响______________。

A.Line.Circle.Pset方法

B.Line.Spape控件

C.Line.Circle.Point方法

D.Line.Circle.Pset方法和Line.Spape控件

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

1.输入英文句子，将其每个单词首字母变为大写字母，再输出。

Private Sub Form_Click()