2004VB期末试卷

2004年春VB程序设计期末试卷(A)

考生请注意：所有答案都写在答题纸上。请保管好试卷，下学期进行讲评。

一、判断题（本题共15分，每小题1分）

1.一个工程必须有一个启动对象，只能将窗体设置为启动对象。

2.无论将窗体的ScelaMode属性设置为什么，窗体的Left、Top、Width和Height这4个属性的度量单位仍然是Twip。

3.所谓保存工程，是指保存正在编辑的工程的窗体。

4.SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。

5.Caption是标签的缺省属性，Text是文本框的缺省属性。

6.通过设置列表框或组合框的MultiSelect属性可以使它们支持多选。

7.用户在拖动滚动框时只触发滚动条的Scroll事件，不触发滚动条的Change事件。

8.移动框架时框架内控件也跟随移动，但是框架内控件的Left和Top属性值并不会改变。

9.单选钮和复选框都有Value属性，当选中它们时，Value属性都为True。

10.要改变Line控件的长度，可以设置它的Width属性。

11.Shape控件不响应任何事件，所以不能在程序代码中改变Shape控件的有关属性。

12.图片框的AutoSize属性和影像框的Stretch属性作用完全一样，当它们设置为True时，都能在各自对象中显示完整的图形。

13.每个菜单项都是一个对象，它不能与其他对象同名。

14.通用对话框控件的ShowOpen方法只是显示了“打开文件”的对话框，对话框中的“打开”按钮并没有实现打开文件的操作。

15.若要新建一个磁盘上的顺序文件（原先不存在该文件），可以用Output或Append方式打开文件。

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

1．将VB新建的“标准EXE”工程保存在磁盘上，至少会产生文件。

A、 .frx和.frm

B、.exe和.vbp

C、 .vbp和.frm

D、.frm和.bas

2．语句将清除当前窗体中用Print方法和图形方法输出的文字和图形。

A、Me.Clear

B、Me.Cls

C、Me=””

D、Me.Delete

3．要将窗体向下移动100Twips，语句是正确的。

A、Move Top+100

B、Move Left,Top+100

C、Move Top=Top+100

D、Move ,Top+100

4．不会运行Command1_Click事件代码。

A、Command1.Value = True

B、Command1.Enabled = True

C、单击Command1按钮

D、当焦点在Command1按钮上时，按回车键

5．文本框中文字的颜色是由属性来决定的。

A、Color

B、FontColor

C、ForeColor

D、TextColor

6．要将标签的标题文字居中，应该设置标签的属性。

A、WordWrap

B、AutoSize

C、Alignment

D、Center

7．将文本框中选中的内容复制到剪贴板中的语句是。

A、Clipboard.GetText Text1.Text

B、Clipboard.SetText Text1.Text

C、Clipboard.GetText Text1.SelText

D、Clipboard.SetText Text1.SelText

8．设计动画时通常用定时器控件的属性控制速度。

A、Interval

B、Timer

C、Move

D、Enabled

9．表达式Val("&H10") * Int(-2.7)和Asc(String(3, 65))的值分别是。

A、-30和65

B、-48和65

C、-30和6

D、-48和6

10．会是语句“a = 5: b = 1: Print c = a + b”执行的结果。

A、c = 6

B、c = a + b

C、False

D、出现错误提示

11．在下列关于Select Case X的叙述中，是错误的。

A、Case "a" To "z" 表示X的首字母是否小写字母

B、Case Is>=10,Is<=100 表示X的值是否介于[10，100]

C、Case 1, 3, 5 表示X的值是否1，3，5中的一个

D、Case 100 To 200 表示X的值是否介于[100，200]

12．用Dim a(2, 2 To 4) As Single语句定义的数组占字节。

A、36

B、24

C、18

D、12

13．算术式(2tg(30°)+e -5 )ln x的VB表达式是。

A、 (2 * Tan(30) + e ^ -5) * ln(x)

B、 (2 * Tan (3.14 / 6) + e ^ -5) * Log(x)

C、 (2 * Tan (3.14 / 6) + Exp(-5)) * ln(x)

D、 (2 * Tan (3.14 / 6) + Exp(-5)) * Log(x) 14．任意一个三位正整数x，求出它十位数上数字的表达式是。

A、 Mid(Str(x), 2, 1)

B、x \ 10 Mod 10

C、 x Mod 100 \ 10

D、x Mod 100 - x Mod 10

15．以下程序段执行后，显示的k和j的值为。

For j = 9 To 5 Step -2

k = j + 1

If k < 6 Then Exit For

Next j

Print k; j

A、 6 3

B、 6 5

C、 4 3

D、 4 5

16．代码窗口中有以下程序段：

Private Sub Picture1_Click()

Picture1 = LoadPicture

End Sub

那么程序运行后，以下说法是正确的。

A、单击图片框Picture1后，将剪贴板中的图形加载到图片框中

B、单击图片框Picture1后，清除图片框中的图形

C、单击图片框Picture1后，出现打开文件对话框，将所选择的图形文件加载到图片框中

D、单击图片框Picture1后，系统将出现错误提示

17．语句Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, , -3.14 / 2, -3.14 / 3将画出 图形。

18． 将“apple ”添加到列表框List1中的第3项。

A 、List1.List(3) = "apple"

B 、List1.List(2) = "apple"

C 、List1.AddItem "apple", 3

D 、List1.AddItem "apple", 2

19．通用对话框控件要以“颜色”对话框方式打开，应该设置 属性。

A 、Flags

B 、Color

C 、Action

D 、ShowColor

20. 在VB 中颜色实际上是用一个长整数来表示的，其中0和255分别表示 。

A 、白色和红色

B 、黑色和兰色

C 、黑色和红色

D 、白色和兰色

21．一个菜单项是否为分隔条，是由菜单项的 属性决定的。

A 、Name

B 、Caption

C 、Visible

D 、Enabled

22．已知在C:\Winnt\System32目录下有Calc.exe 文件，那么在VB 中运行计算器应用程序的正确语句是 。

A 、Shell c:\winnt\system32\calc.exe

B 、Call Shell "c:\winnt\system32\calc.exe"

C 、Call Shell (c:\winnt\system32\calc.exe)

D 、Shell "c:\winnt\system32\calc.exe"

23．为了使目录列表框Dir1的显示内容与驱动器列表框Drive1的选择一致，应当 。

A 、 在Dir1_Change 事件中加入代码 Dir1.Path = Drive1. Drive

B 、 在Dir1_Change 事件中加入代码 Drive1.Drive = Dir1.Path

C 、 在Drive1_Change 事件中加入代码 Dir1.Path = Drive1. Drive

D 、 在Drive1_Change 事件中加入代码Drive1.Drive = Dir1.Path

24．要使得文件列表框File1只显示文件后缀为bmp 和jpg 的图形文件，以下 语句是正确的。

A 、 File1.Pattern = "*.bmp|*.jpg"

B 、 File1.Pattern = "*.bmp;*.jpg"

C 、 File1.Filter="bmp 文件|*.bmp|jpg 文件|*.jpg"

D 、 File1.Filter="*.bmp;*.jpg"

25．执行语句“Write #1, 234; -34.56, "Hi"; Date ”后，相应的文件内被写入 。

A 、234,-34.56,"Hi",#2004-06-11#

B 、234;-34.56,"Hi";#2004-06-11#

C 、234,-34.56,Hi,2004-06-11

D 、234 -34.56 "Hi" #2004-06-11#

A 、

B 、

C 、

D 、

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

阅读下列程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个正确答案。

1．下列程序能在指定的[m,n]范围内找出所有的素数，m和n均由键盘输入，并且必须保证m

Private Sub Command1_Click()

Dim m As Integer, n As Integer

Dim i As Integer

Do

m = Val(InputBox("m="))

n = Val(InputBox("n="))

Loop (1)

For i = （2）

If （3）Then

Print i

End If

Next i

End Sub

Public Function prime(x As Integer) As Boolean

Dim i As Integer

For i = 2 To x - 1

If x Mod i = 0 Then (4)

Next i

prime = True

End Function

(1) A、While m >= n B、While m< n

C、Until m <= n

D、Until m >= n

(2）A、1 To m B、1 To n

C、m To n

D、n To m

（3） A、Not prime(i) B、prime(i)

C、prime(i) = 1

D、prime(i) Is True

（4） A、prime=False B、Exit Function

C、Exit For

D、Exit Do

2．已知在应用程序同一个目录下有p0.jpg、p1.jpg、……、p14.jpg共15幅图形文件，下列程序能自动循环将所有图片逐个显示在Image1中。请将程序补充完整。

Private Sub Form_Load()

Timer1.Interval = 100

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

（5）

Image1.Picture = (6)

n = n + 1

(7)

End Sub

（5）A、n=1 B、n = 0

C、Dim n As Integer

D、Static n As Integer

（6）A、LoadPicture(App.Path + "\p" +Str(n)+ ".jpg")

B、LoadPicture(App.Path & "\pn.jpg")

C、LoadPicture(App.Path + "\p" + n + ".jpg")

D、LoadPicture(App.Path & "\p" & n & ".jpg")

（7） A、If n = 15 Then n = 0 B、If n = 14 Then n=1

C、If n = 14 Then n = 0

D、If n = 15 Then n=1

3．以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。

Private Sub cmdDel_Click()

i = 0

Do While （8）

If List1.Selected(i) = True Then

（9）

Else

（10）

End If

Loop

End Sub

（8）A、i <= List1.ListCount

B、i < List1.ListCount

C、i < List1.ListCount - 1

D、i = List1.ListCount - 1

（9）A、List1.RemoveItem i

B、List1.List(i) = ""

C、List1.Clear

D、List1.RemoveItem List1.Selected(i)

（10） A、i = i - 1 B、Exit Do

C、i = i + 1

D、Exit Sub

四、程序阅读题（本题共20分，每小题5分）

1．写出在窗体上连续单击4次，分别输入1，2，3，4后窗体上显示的结果。

Private Static Sub Form_Click()

Dim x As Integer, y As Integer

x = Val(InputBox("x="))

If x ^ 2 >= x * 2 Then

y = y + x

End If

Print "y="; y

End Sub

2．写出单击窗体后，窗体上显示的结果。

Private Sub Form_Click()

Dim n As Integer, i As Integer

Dim s As String

n = Len(Text1)

Do Until n = 1

n = n \ 2

s = s & Left(Text1, n)

Text1 = Right(Text1, n)

Print s

Loop

End Sub

Private Sub Form_Load()

Text1 = "欢迎进入VB世界！"

End Sub

3．已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置：HScroll1.Min ：1

HScroll1.Max ：10

HScroll1.SmallChange ：1

https://www.360docs.net/doc/d47046025.html,rgeChange ：2

HScroll1.Value ：5

写出连续三次单击滚动条滚动滑块和右侧箭头之间空白位置后，窗体上显示的结果。

Private Sub HScroll1_Change()

Static y As Integer

Dim z As Integer

z = HScroll1.Value + ff(y)

Print "z="; z

End Sub

Public Function ff(x As Integer)

If x Mod 2 <> 0 Then

x = 3 * x

Else

x = x + 3

End If

ff = x

End Function

4．写出单击窗体后，列表框List1中显示的内容

Private Sub Form_Click()

Dim a(10) As Integer

Dim i As Integer, k As Integer

For k = 1 To 10

a(k) = k

Next k

For i = 1 To 5

swap a(i), a(10 - i)

Next

For k = 10 To 1 Step -2

List1.AddItem a(k)

Next

End Sub

Public Sub swap(x As Integer, y As Integer)

Dim t As Integer

t = x: x = y: y = t

End Sub

五、程序设计题（本题20分，每小题10分）

1． 编写窗体的单击事件：要求定义3个数组，随机产生100个∈[1，999]的整数，将这100个随机整数中的1位数（1

~9）、2位数（10 ~ 99）和3位数（100~999）分别存入这3个数组中。设计一个打印数组的通用过程PrintArray ，PrintArray 能将包含任意个数组元素的整型数组按每行5个的格式打印在窗体上。分别调用该过程输出以上3个数组。

2． 设计一个词霸小程序：界面如右图所示。当用户在文本框中输入一个

英文单词按下回车后，应用程序将在应用程序目录下的“dic.dat ”字

典数据文件中查找该英文单词的解释，查找时将忽略大小写。找到后

用消息框提示，如图2所示；如果字典中没有找到该单词，也用消息

框给出相应的提示，如图3所示。单击“定义新词”按钮，用户将通

过键盘输入英文单词和中文解释，将输入的新词和解释添加到字典数

据文件“dic.dat ”中。请完成Text1_KeyPress 事件和Command1_Click

事件代码的设计。

字典数据文件“dic.dat ”的格式如图4所示：

图1 图4

图

2