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

1、电子系计控专业面向对象的程序设计期末试卷（A）答案 一、选择题（每题1分，共20分）1、如果要改变窗体的标题，则需要设置的属性是 A 。A. CaptionB. Name C. BackColor D. BorderStyle2、工程文件的扩展名是C。A. frxB. basC. vbpD.frm3、初始状态下，VB工具箱的控件称为A。A. 标准控件（或内部控件） B. 外部控件 C. ActiveX控件 D. 可插入对象4、将命令按扭Command1设置为不可见，应修改命令按钮的 A 属性。A. Visible B. Value C. Caption D. Enable5、在窗体上画三个单选

2、按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是 B 。A. TagB. IndexC. ListIndexD. Name6、要改变控件的高度，应修改控件的D属性。A. Top B. Left C. Width D. Height7、只能用来显示字符信息的控件是 B 。A. 文本框 B. 标签 C. 图片框 D. 图象框8、InputBox$(函数返回值的类型为 B 。A. 数值B. 字符串C. 变体 D. 数值或字符串（视输入的数据而定）9、确定复选框是否选中，可访问的属性是A。A. ValueB. Checked C. Selected D. Caption

3、10、选中复选框时，Value的值为 B 。A. 0 B.1 C. True D. False11、添加列表框中的项目，应该用列表框的 C 属性。A. Selected B. Value C. List D. Text12、若要在同一窗体中安排两组单选按扭，可用D控件来分隔。A. 列表框 B. 组合框 C. 图片框 D. 框架13、用户可以通过设置菜单项的C属性的值为False来使该菜单项失效。A. HideB. VisibleC. EnableD. Checked14、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动事件是 C 。A. MoveB. ChangeC. ScrollD.

4、Getfocus15、以下 D 语句将删除列表框List1中的最后一项。A. List1.RemoveItem List1.ListCount B. List1.ClearC. List1.List( List1.ListCount-1=” D. List1. RemoveItem List1.ListCount-116、菜单编辑器中，同层次的 B 设置为相同，才可以设置索引值。A. Caption B. NameC.Index D. ShortCut17、将CommonDialog1通用对话框以“打开文件”对话框方式打开，需用 A 方法。A. ShowOpen B. ShowColor C.

5、 ShowFont D. ShowSave18、要从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 A 正确。A. f=“c:t1.txt”Open f For Input As #1B. f=“c:t1.txt”Open “f” For Input As #2C. f=“c:t1.txt”Open c:t1.txt For Output As #2D. f=“c:t1.txt”Open “c:t1.txt” For Output As #219、设定文件列表框中所显示的文件类型，应该修改该控件的 A 属性。A.Pattern B. Path C. FileName D. Name2

6、0、通用对话框可以通过对 D 属性的设定来过滤文件类型。A. Action B. Filterindex C. Font D. Filter二、判断题1、单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。 （×）2、窗体的Enabled属性值为False 时，该窗体上的按钮、文本框等控件就不会对用户的操作作出反应。 （）3、当定时器控件的Interval属性值设置为0时，不会激发Timer事件。 （）4、过程中的静态变量是局部变量，当过程再次被调用时，它的值是上一次调用后的值。（）5、移动框架时，框架内的控件也跟随着一起移动，因此框架内的控件的Left和Top属性值也

7、随之改变。（×）6、定时器控件在运行时不可见，所以在设计时，它的大小和位置可随意确定。（）7、菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的按键。（）8、滚动条控件可作为用户输入数据的一种方法。 （）9、通用对话框的Filename属性返回的是一个输入或选取的文件名字符串。 （）10、用关键字Public声明的过程可以被工程中的其它模块调用。 （）三、填空题（每空2 分，共20分）1、表达式Int(-3.5+Fix(3.5的值是-12、如果定义一个数组“Dim a(5 As Integer”，其元素最多有 6 个，如果之前在通用段设置了语句“Option Bas

8、e 1”，则元素的个数有 5 个。3、VB的工作模式有设计模式、运行模式和中断模式。4、表达式Len(“abc”+Space(2+”efg”的值为 8 。5、调试程序中可能遇到的三类错误分别为编译错误、 运行时错误 和 逻辑错误 。6、用Dim定义数值变量时，该数值变量自动赋初值 0 。7、在变量后面加符号 $ ，表示该变量为字符串类型。8、长整型变量（Long类型）占用 4 个字节。四、程序阅读题（每小题5分，共20分）1、在窗体上画一个文本框和一个标签，然后编写如下两个事件过程：Private SubForm_ Click(Text1=”花好月圆”End SubPrivate SubTex

9、t1_ Change(Label1=”月落乌啼”End Sub程序运行，单击窗体后，则在文本框中显示的内容是 花好月圆 ，在标签中显示的内容是月落乌啼。2、写出下列程序运行时连续4次单击窗体后，Form1上的输出结果。Private SubForm_ Click(Static a As IntegerDim b As Integerb=a+b+1a=a+bForm1.Print ”a=”;a, ”b=”;bEnd Suba=1 b=1a=3 b=2a=7 b=4a=15 b=83、代码如下：Private Sub Form_MoudeDown(Button As Integer, Shift

10、As Integer,X As Single,Y As SingleIf Button=2 Then PopupMenu mnupopupEnd SubmnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名Private Sub mnuChoice1_Click(Print “你好！”End SubPrivate Sub mnuChoice2_Click(Form1.Print “你们好”+“！”End SubPrivate Sub mnuChoice3_Click(Me.Print “大家好” & “！”End Sub请写出在鼠标右击后出现的弹出式菜单中，点击菜单第

11、一项后在窗体上的显示结果。答: 你好！ 4、下面程序运行后，单击窗体，写出窗体上显示的内容。Private SubForm_ Click(Dim a As Integer, b As Integera=20;b=50p1 a ,bp2 a,bp3 a,bPrint”a=”;a,”b=”;bEnd SubSub p1(x As Integer,ByVal y As Integerx=x+10v=v+20End SubSub p2(byVal x As Integer, y As Integerx=x+10y=y+20End SubSub p3(byVal x As Integer, byVal

12、y As Integerx=x+10y=y+20End Suba=30 b=70、完善程序（每小题10分，共20分1、应用程序界面如下图所示。以下代码用Line Input #语句和Input #语句两种方式将文本文件的内容读入文本框。请按要求完善程序代码和注释：Private Sub Command1_Click( ´按行读Dim d As StringOpen “d:file1.txt” For Input As # 1 注：以读方式打开文件 Text1.Text=“”Do While Not EOF(1Line Input # 1,d 注：一行一行读 Text1.Text= T

13、ext1.Text+d+Chr(13+Chr(10LoopClose # 1End Sub Private Sub Command2_Click( ´按字符读，编写代码Dim InputData As StringText1.Text = ""Open "d:file1.txt" For Input As #1Do While Not EOF(1Input #1, InputDataText1.Text = Text1.Text + InputDataLoopClose #1End Sub Private Sub Command3_Click(

14、 ´结束程序，编写代码Unload MeEndEnd Sub 2、完成一个字体设置程序的设计，要求分别单击三个组合列表框的列表项时，都能实现对标签控件Label1字体的设置。最终效果如下图所示。请根据题意补充完整程序代码：Private Sub Combol_Click(Label1.FontName=Combo1.TextEnd SubPrivate Sub Combo2_Click(Select Case Combo2.Textcase“常规” Label1.FontBold=FalseLabel1.FontItalic=False case“斜体”Label1.FontBold=FalseLabel1.FontItalic=Truecase“粗体”Label1.FontBold=TrueLabel1.FontItalic=False case“粗体斜体”Label1.FontBold=TrueLabel1.FontItalic=TrueEnd SelectEnd SubPrivate Sub Combo3_Click(Label1.FontSize= Combo3.TextEnd SubPrivate Sub Form_Load( 初