《面向对象的程序设计》期末试卷(A)答案

一、选择题（每题1分，共20分）

1、如果要改变窗体的标题，则需要设置的属性是 A 。 A. Caption B. Name C. BackColor D. BorderStyle

2、工程文件的扩展名是＿C＿。A. frx B. bas C. vbp D.frm 3、初始状态下，VB工具箱的控件称为＿A＿。

A. 标准控件（或内部控件） B. 外部控件 C. ActiveX控件 D. 可插入对象 4、将命令按扭Command1设置为不可见，应修改命令按钮的 A 属性。 A. Visible B. Value C. Caption D. Enable

5、在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是 B 。 A. Tag B. Index C. ListIndex D. Name

6、要改变控件的高度，应修改控件的＿D＿属性。A. Top B. Left C. Width D. Height 7、只能用来显示字符信息的控件是 B 。A. 文本框 B. 标签 C. 图片框 D. 图象框 8、InputBox$()函数返回值的类型为 B 。

A. 数值 B. 字符串 C. 变体 D. 数值或字符串（视输入的数据而定）

9、确定复选框是否选中，可访问的属性是＿A＿。A. Value B. Checked C. Selected D. Caption 10、选中复选框时，Value的值为 B 。A. 0 B.1 C. True D. False

11、添加列表框中的项目，应该用列表框的 C 属性。A. Selected B. Value C. List D. Text 12、若要在同一窗体中安排两组单选按扭，可用＿D＿控件来分隔。 A. 列表框 B. 组合框 C. 图片框 D. 框架

13、用户可以通过设置菜单项的＿C＿属性的值为False来使该菜单项失效。 A. Hide B. Visible C. Enable D. Checked

14、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动事件是 C 。 A. Move B. Change C. Scroll D. Getfocus 15、以下 D 语句将删除列表框List1中的最后一项。

A. List1.RemoveItem List1.ListCount B. List1.Clear

C. List1.List( List1.ListCount-1)=”” D. List1. RemoveItem List1.ListCount-1 16、菜单编辑器中，同层次的 B 设置为相同，才可以设置索引值。 A. Caption B. Name C.Index D. ShortCut

17、将CommonDialog1通用对话框以“打开文件”对话框方式打开，需用 A 方法。 A. ShowOpen B. ShowColor C. ShowFont D. ShowSave 18、要从磁盘上读入一个文件名为“c:\1.txt”顺序文件，如下 A 正确。 A. f=“c:\1.txt”

Open f For Input As #1 B. f=“c:\1.txt”

Open “f” For Input As #2 C. f=“c:\1.txt”

Open c:\1.txt For Output As #2 D. f=“c:\1.txt”

Open “c:\1.txt” For Output As #2

19、设定文件列表框中所显示的文件类型，应该修改该控件的 A 属性。

第 1 页 共 5 页

A.Pattern B. Path C. FileName D. Name

20、通用对话框可以通过对 D 属性的设定来过滤文件类型。 A. Action B. Filterindex C. Font D. Filter 二、判断题

1、单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。 （×）

2、窗体的Enabled属性值为False 时，该窗体上的按钮、文本框等控件就不会对用户的操作作出反应。 （√） 3、当定时器控件的Interval属性值设置为0时，不会激发Timer事件。 （√）

4、过程中的静态变量是局部变量，当过程再次被调用时，它的值是上一次调用后的值。（√）

5、移动框架时，框架内的控件也跟随着一起移动，因此框架内的控件的Left和Top属性值也随之改变。（×） 6、定时器控件在运行时不可见，所以在设计时，它的大小和位置可随意确定。（√） 7、菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的按键。（√） 8、滚动条控件可作为用户输入数据的一种方法。 （√）

9、通用对话框的Filename属性返回的是一个输入或选取的文件名字符串。 （√） 10、用关键字Public声明的过程可以被工程中的其它模块调用。 （√）

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

1、表达式Int(-3.5)+Fix(3.5)的值是＿-1＿ 2、如果定义一个数组“Dim a(5) As Integer”，其元素最多有 6 个，如果之前在通用段设置了语句“Option Base 1”，则元素的个数有 5 个。

3、VB的工作模式有设计模式、运行模式和＿中断模式＿。 4、表达式Len(“abc”+Space(2)+”efg”)的值为 8 。

5、调试程序中可能遇到的三类错误分别为编译错误、 运行时错误 和 逻辑错误 。 6、用Dim定义数值变量时，该数值变量自动赋初值 0 。 7、在变量后面加符号 $ ，表示该变量为字符串类型。 8、长整型变量（Long类型）占用 4 个字节。

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

1、在窗体上画一个文本框和一个标签，然后编写如下两个事件过程： Private Sub Form_ Click() Text1=”花好月圆”

End Sub

Private Sub Text1_ Change() Label1=”月落乌啼” End Sub

程序运行，单击窗体后，则在文本框中显示的内容是 花好月圆 ，在标签中显示的内容是月落乌啼。

2、写出下列程序运行时连续4次单击窗体后，Form1上的输出结果。 Private Sub Form_ Click()

Static a As Integer

第 2 页 共 5 页

Dim b As Integer b=a+b+1 a=a+b

Form1.Print ”a=”;a, ”b=”;b End Sub a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8

3、代码如下：

Private Sub Form_MoudeDown(Button As Integer, Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu mnupopup End Sub

‘mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名 Private Sub mnuChoice1_Click() Print “你好！” End Sub

Private Sub mnuChoice2_Click() Form1.Print “你们好”+“！” End Sub

Private Sub mnuChoice3_Click() Me.Print “大家好” & “！” End Sub

请写出在鼠标右击后出现的弹出式菜单中，点击菜单第一项后在窗体上的显示结果。 答: 你好！

4、下面程序运行后，单击窗体，写出窗体上显示的内容。 Private Sub Form_ Click() Dim a As Integer, b As Integer a=20;b=50 p1 a ,b p2 a,b p3 a,b Print”a=”;a,”b=”;b End Sub Sub p1(x As Integer,ByVal y As Integer) x=x+10

第 3 页 共 5 页

v=v+20 End Sub Sub p2(byVal x As Integer, y As Integer) x=x+10 y=y+20 End Sub Sub p3(byVal x As Integer, byVal y As Integer) x=x+10 y=y+20 End Sub

a=30 b=70

、完善程序（每小题10分，共20分

1、应用程序界面如下图所示。以下代码用Line Input #语句和Input #语句两种方式将文本文件的内容读入文本框。请按要求完善程序代码和注释：

Private Sub Command1_Click() ´按行读

Dim d As String Open “d:\\file1.txt” For Input As # 1 ‘注：以读方式打开文件 Text1.Text=“” Do While Not EOF(1) Line Input # 1,d ‘注：一行一行读 Text1.Text= Text1.Text+d+Chr(13)+Chr(10) Loop Close # 1 End Sub

Private Sub Command2_Click() ´按字符读，编写代码

Dim InputData As String Text1.Text = \"\" Open \"d:\\file1.txt\" For Input As #1 Do While Not EOF(1) Input #1, InputData Text1.Text = Text1.Text + InputData Loop Close #1 End Sub

Private Sub Command3_Click() ´结束程序，编写代码

Unload Me End

第 4 页 共 5 页

End Sub 2、完成一个字体设置程序的设计，实现对标签控件Label1字体的设请根据题意补充完整程序代码： Private Sub Combol_Click()

End Sub

Private Sub Combo2_Click()

Select Case Combo2.Text case“常规”

Label1.FontBold=False

Label1.FontItalic=False case“斜体”

Label1.FontBold=False Label1.FontItalic=True case“粗体”

Label1.FontBold=True Label1.FontItalic=False case“粗体斜体”

Label1.FontBold=True Label1.FontItalic=True End Select End Sub

Private Sub Combo3_Click()

Label1.FontSize= Combo3.Text End Sub

Private Sub Form_Load() „初始化 Dim i As Integer

For i=4 to 72 Step 4

Combo3. Additem Str(i) Next i

Combo1. additem“黑体”

Combo1. additem“楷体＿gb2312”Combo1. additem“隶书” Combo1. additem “宋体” Combo2. additem“常规” Combo2. additem“粗体” Combo2. additem“斜体” Combo2. additem“粗体斜体” End Sub

要求分别单击三个组合列表框的列表项时，都能置。最终效果如下图所示。

Label1.FontName=Combo1.Text

第 5 页 共 5 页