1、VB机试模拟试卷 71及答案与解析 一、基本操作题（ 30分） 1 (1)在名为 Forml的窗体上绘制一个名为 Cmdl的命令按钮，标题为 “打开文件 ”，再绘制一个名为 CDl的通用对话框。程序运行后，若单击命令按钮，则弹出 “打开文件 ”对话框 (如图 131所示 )。请按下列要求设置属性和编写代码。 设置适当属性，使对话框的标题为 “打开文件 ”。 设置适当属性，使对话框的 “文件类型 ”下拉式组合框中有两行： “文本文件 ”、 “所有文件 ”(如图 131所示 )，默认的类型是 “所有文件 ”。 编写命令按钮的事件过程，使得单击按钮 可以弹出 “打开文件 ”对话框。 注意：程序中不得
2、使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名为 Forml的窗体上绘制两个命令按钮，其名称分别为 Cmdl和 Cmd2。编写适当的事件过程，使程序运行后，若单击命令按钮 Cmdl，则可使该按钮移到窗体的左上角 (只允许通过修改属性的方式实现 )；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 3倍。程序的运行时的窗体界面如图 132所示。 注意：不得使用任何变量；文件必 须存放在考生文件夹中，工程文件名为 sj2 vbp，窗体文件名为 sj2 frm。二、简单应用题（ 40分） 2
3、 (1)在考生文件夹下有一个工程文件 sj3 vbp。相应的窗体文件名为 sj3 frm。请装人该文件在窗体上画一个列表框和一个文本框，名称分别为 Listl和 Textl。 编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加到列表框中 (内容任意，不少于 3个 )，如图 173所示；如果双击 Listl的某一项则将其从列表框中删除，如图 174所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。注意：去掉程序中的注释符 “”，把程序中的 “?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)
4、在考生文件夹下有一个工程文件 sj4 vbp，窗体如图所示。其功能是单击 “输入数据 ”按钮，则可输入一个整数n；单击 “计算 ”按钮则计算 1!+2 !+3 !+n! 的值，并将计算结果显示在文本框中；单击 “存盘 ”按钮，则把文本框中的结果保存到考生文件夹下的 out4 dat文件中。程序运行时的窗体界面如图 175所示。 文件中已 经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 ”计算 ”按钮的 Click事件过程。 注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后将修改后的
5、文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。窗体 Form1中有一命令按钮与一个水平滚动条。命令按钮的名称为 Commandl，标题为 “移动 ”；水平滚动条的名称为 HScroll1。单击 “移动 ”按钮后，在弹出的对话框中输入数值。输入一个整数后，单击 “移动 ”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示 “输入的数值太大 ”，如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示 “输入的数值太小 ”，如图 15所示。 注意：请在有 “?”的地方
6、填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 VB机试模拟试卷 71答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1) 新建一个名为 Form1的窗体。 选择 “工程 ”菜单中的 “部件 ”选项，弹出 “部件 ”对话框或在 “工具箱 ”上单击右键选择弹出菜单中的 “部件 ”选项，弹出 “部件对话框 ”，在对话框的 “部件 ”列表中选择“MicroSoftCommonDialogControl6 0”项目，使它前边的方框为选中。 在窗体上添加一个通用对话框 CDl，并将其 DialogTitle属性设置为
7、“打开文件 ”，其 Filter属性设置为文本文件 |* txt|，所有文件 |* *|，其 FilterIndex属性设置为 2。 再添加一个命令按钮名称为 Cmdl， Caption为 “打开文件 ”； Private Sub Commandl_Click() CDl ShowOpen End Sub 最后按照题目要求保存文件即可。 (2) 新建一个名为 Forml的窗体。 单击工具箱中的 CommandButton控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为 Cmdl和 Cmd2， Caption分别为 Cmdl和Cmd2。 打开代码窗口输入如下代 码： Pr
8、ivate Sub Cmdl_Click() Cmdl Left=0将命令按钮放在最左方 Cmdl Top=0将命令按钮放在最上方 End Sub Private Sub Cmd2_Click() Cmd2 Height=Cmd2 Height*3将 Cmd2的高变为 3倍 Cmd2 Width=Cmd2 Width*3将 Cmd2的宽变为 3倍 End Sub 按要求保存文件即完成本题。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，将一个 ListBox控件和一个 Text控件添加到窗体上， ListBox的名称为 Listl， Text的名称为 Textl， Text属性
9、为空。双击 Listl进入代码窗口，编写如下代码： Private Sub Listl_DblClick() Listl Removehem(Listl Listlndex) 双击删除选中项 End Sub Private Sub Textl_DblClick() 双击 Text调用的函数 If Textl Text “Then Listl.Addhem Textl Text当 Textl中有内容则添加到 Listl中 End If End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查 Val()函数、 InputBox()函数、 MsgBox()函数、命令按钮的 Enabl
10、ed属性以及文件操作。根据题意，编写如下代码： Dim n As Integer Private Sub Commandl_Click() n=Val(InputBox(“请输入整数 (812)“， “输入“) If n12 Or n 按钮运行程序，并按要求保存。 三 、综合应用题（ 30分） 3 【正确答案】 本题主要考查滚动条的属性和 IF语句的使用。滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其 Value属性的值。滚动条的 Max属性、 Min属性限定了滚动条所能表示的最大值和最小值，即 Value属性值的取值范围，在程序中改变 Value属性的值，滚动条滑块会随之移动到相应位置。InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型。在代码窗口编写如下代码： Private Sub Command1_Click() Dim a As Integer a=Val(InputBox(“请输入数值 “) 通过输入对话框输入数值 If aHScrolll Max Then如果数值大于滚动条的最大值 Cls Print“输入的数值太大 “ 在窗件上显示 “输人的数值太大 ” ElseIf a 按钮运行程序，并按要求保存。
