1、VB 机试-试卷 33 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名为 Forml 的窗体上绘制一个名为 Cmdl 的命令按钮，标题为“打开文件”，再绘制一个名为 CDl的通用对话框。程序运行后，若单击命令按钮，则弹出“打开文件”对话框(如图 131 所示)。请按下列要求设置属性和编写代码。 设置适当属性，使对话框的标题为“打开文件”。设置适当属性，使对话框的“文件类型”下拉式组合框中有两行：“文本文件”、“所有文件”(如图 131 所示)，默认的类型是“所有文件”。编写命令按钮的事件过程，
2、使得单击按钮可以弹出“打开文件”对话框。 注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为sjlvbp，窗体文件名为 sjlfrm。 (2)在名为 Forml 的窗体上绘制两个命令按钮，其名称分别为 Cmdl和 Cmd2。编写适当的事件过程，使程序运行后，若单击命令按钮 Cmdl，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 3 倍。程序的运行时的窗体界面如图 132 所示。 注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj2vbp，窗体文件名
3、为 sj2frm。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有一个工程文件 sj3vbp。相应的窗体文件名为 sj3frm。请装人该文件在窗体上画一个列表框和一个文本框，名称分别为 Listl 和 Textl。 编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加到列表框中(内容任意，不少于 3 个)，如图 173 所示；如果双击 Listl 的某一项则将其从列表框中删除，如图 174 所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。 注意：去掉程序中的注释
4、符“”，把程序中的“?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数 n；单击“计算”按钮则计算 1!+2 !+3 !+n!的值，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生文件夹下的 out4dat 文件中。程序运行时的窗体界面如图175 所示。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写”计算”按钮的 Click 事件过程。 （分数：2.00）
5、_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。窗体 Form1 中有一命令按钮与一个水平滚动条。命令按钮的名称为 Commandl，标题为“移动”；水平滚动条的名称为HScroll1。单击“移动”按钮后，在弹出的对话框中输入数值。输入一个整数后，单击“移动”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示“输入的数值太大”，如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示“输入的数值太小”，如图 15 所示。 （分数：2.
6、00）_VB 机试-试卷 33 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名为 Forml 的窗体上绘制一个名为 Cmdl 的命令按钮，标题为“打开文件”，再绘制一个名为 CDl的通用对话框。程序运行后，若单击命令按钮，则弹出“打开文件”对话框(如图 131 所示)。请按下列要求设置属性和编写代码。 设置适当属性，使对话框的标题为“打开文件”。设置适当属性，使对话框的“文件类型”下拉式组合框中有两行：“文本文件”、“所有文件”(如图 131 所示)，默认的类型是“所有文件”。编写命令按钮
7、的事件过程，使得单击按钮可以弹出“打开文件”对话框。 注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为sjlvbp，窗体文件名为 sjlfrm。 (2)在名为 Forml 的窗体上绘制两个命令按钮，其名称分别为 Cmdl和 Cmd2。编写适当的事件过程，使程序运行后，若单击命令按钮 Cmdl，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 3 倍。程序的运行时的窗体界面如图 132 所示。 注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj2vbp
8、，窗体文件名为 sj2frm。 （分数：2.00）_正确答案：(正确答案：(1)新建一个名为 Form1 的窗体。 选择“工程”菜单中的“部件”选项，弹出“部件”对话框或在“工具箱”上单击右键选择弹出菜单中的“部件”选项，弹出“部件对话框”，在对话框的“部件”列表中选择“MicroSoftCommonDialogControl60”项目，使它前边的方框为选中。 在窗体上添加一个通用对话框 CDl，并将其 DialogTitle 属性设置为“打开文件”，其 Filter 属性设置为文本文件|*txt|，所有文件|*|，其 FilterIndex 属性设置为 2。 再添加一个命令按钮名称为 Cmd
9、l， Caption 为“打开文件”； Private Sub Commandl_Click() CDlShowOpen End Sub 最后按照题目要求保存文件即可。 (2)新建一个名为 Forml 的窗体。 单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为 Cmdl 和 Cmd2，Caption分别为 Cmdl 和 Cmd2。 打开代码窗口输入如下代码： Private Sub Cmdl_Click() CmdlLeft=0将命令按钮放在最左方 CmdlTop=0将命令按钮放在最上方 End Sub Private Sub
10、 Cmd2_Click() Cmd2Height=Cmd2Height*3将 Cmd2 的高变为 3 倍 Cmd2Width=Cmd2Width*3将 Cmd2 的宽变为 3倍 End Sub 按要求保存文件即完成本题。)解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有一个工程文件 sj3vbp。相应的窗体文件名为 sj3frm。请装人该文件在窗体上画一个列表框和一个文本框，名称分别为 Listl 和 Textl。 编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加到列表框中(内容任意，不少于
11、 3 个)，如图 173 所示；如果双击 Listl 的某一项则将其从列表框中删除，如图 174 所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。 注意：去掉程序中的注释符“”，把程序中的“?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数 n；单击“计算”按钮则计算 1!+2 !+3 !+n!的值，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生文件夹下的 out4dat 文件中。程序运
12、行时的窗体界面如图175 所示。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写”计算”按钮的 Click 事件过程。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，将一个 ListBox 控件和一个 Text 控件添加到窗体上，ListBox 的名称为 Listl，Text 的名称为 Textl，Text 属性为空。双击 Listl 进入代码窗口，编写如下代码： Private Sub Listl_DblClick() ListlRemovehem(Listl Listlndex ) 双击删除选中项 End Sub Priv
13、ate Sub Textl_DblClick() 双击 Text 调用的函数 If TextlText“Then Listl. Addhem TextlText当 Textl 中有内容则添加到 Listl 中 End If End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查 Val()函数、InputBox()函数、MsgBox()函数、命令按钮的 Enabled 属性以及文件操作。根据题意，编写如下代码： Dim n As Integer Private Sub Commandl_Click() n=Val(InputBox(“请输入整数(812)“，“输入“) If n
14、12 Or n1 For k=2 To n s=s*k Next f= s End Function Private Sub Command3_Click() Open AppPath&“out4dat“For Output As#1 Print#1，n，Textl Close#1 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。窗体 Form1 中有一命令按钮与一个水平滚动条。命令按钮的名称为 Commandl，标题为“移动”；水平滚动
15、条的名称为HScroll1。单击“移动”按钮后，在弹出的对话框中输入数值。输入一个整数后，单击“移动”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示“输入的数值太大”，如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示“输入的数值太小”，如图 15 所示。 （分数：2.00）_正确答案：(正确答案：本题主要考查滚动条的属性和 IF 语句的使用。 滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其 Value 属性的值。滚动条的 Max 属性、Min 属性限定了滚动条所能表示的最大值和最小值，即 Value 属性值的取值范围，在程序
16、中改变 Value 属性的值，滚动条滑块会随之移动到相应位置。 InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型。在代码窗口编写如下代码： Private Sub Command1_Click() Dim a As Integer a=Val(InputBox(“请输入数值“) 通过输入对话框输入数值 If aHScrolllMax Then如果数值大于滚动条的最大值 Cls Print“输入的数值太大“ 在窗件上显示“输人的数值太大” ElseIf a Value=a 如果在范围内，则将滚动条移动指定的距离 End If End Sub 单击*按钮运行程序，并按要求保存。)解析：
