1、VB 机试-试卷 40 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.1. 在窗体上画 1 个水平滚动条(名称为 HS1，最小值为 0，最大值为 80)和 3 个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如图 11 所示(单击“左端”命令按钮)。存盘时，工程文件
2、名为 sjt1.vbp，窗体文件名为 sjt1.frm。2请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。在窗体上画一个命令按钮，其名称为 C1，标题为“清除”，编写适当的事件过程。程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图 12 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2.vbp，窗体文件名为sjt2.frm。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.1. 在窗体上画 1 个组合框(名称为 Cbl，设置为简单组合框)和 1 个命令按钮(名称为 C1，
3、标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图 21 所示。存盘时，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。2在窗体上画一个名称为 L1 的列表框，通过属性窗口向列表框中添加 3 个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图 22 所示。注意：保存
4、时必须存放在考生文件夹下，窗体文件名为 sjt4.frm，工程文件名为 sjr4.vbp。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sjt5.vbp，在 Form1 的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为 1000、0；再画两个标签，名称分别为 Label1 和 Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为 C1 和 C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为 Timer1(如图 31 所示)。请设置控件适当的属
5、性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动 100；单击“向左移动”按钮，则水平滚动条的滚动框每秒向左移动 100；当滚动框到达两端时，它将改变移动的方向，但速度不变。注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能。修改后的文件以原来的文件名存盘。 （分数：2.00）_VB 机试-试卷 40 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.1. 在窗体上画 1 个水平滚动条(名称为 HS1，最小值为 0，最
6、大值为 80)和 3 个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如图 11 所示(单击“左端”命令按钮)。存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。在窗体上画一个命令按钮，其名称为 C1，标题为“清除”，编写适当的事件过程。程序运行后，如
7、果单击命令按钮，则清除窗体的标题，程序运行结果如图 12 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2.vbp，窗体文件名为sjt2.frm。 （分数：2.00）_正确答案：(正确答案：按以下步骤操作： 启动 Visual Basic，在窗体上画 1 个水平滚动条和 3 个命令按钮。 按 F4 键激活属性窗口，在属性窗口中设置 3 个命令按钮的属性，见表 1。 编写 3 个命令按钮的事件过程； Private sub C1_Click() HS1.ValueHS1.Min End Sub Private sub C2_Click() HS1.Value=HS1.Max/2
8、End Sub Private sub C3_Click() HS1.Value=HS1.Max End Sub 2 对象主要属性设置如表 2 所示。 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.1. 在窗体上画 1 个组合框(名称为 Cbl，设置为简单组合框)和 1 个命令按钮(名称为 C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图 21
9、所示。存盘时，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。2在窗体上画一个名称为 L1 的列表框，通过属性窗口向列表框中添加 3 个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图 22 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm，工程文件名为 sjr4.vbp。 （分数：2.00）_正确答案：(正确答案： 启动 Visual Basic，在窗体上画 1 个组合框和 1 个命令按钮。 按 F4 键，激活属性窗门，在属性
10、窗口中设置组合框和命令按钮的属性，见表 3。 编写命令按钮的 Click 事件过程： Private Sub C1_Click() Dim flag As Boolean For i0 To Cb1.ListCount1 If Cb1.List(i)Cb1.Text Then flagTrue Else flagFalse End If Next If flag Then MsgBox“此项已存在“,“ Cb1.Text=“ Else Cb1.Addltem Cb1.Text End If End Sub 2 对象主要属性设置如表4 所示。 )解析：三、综合应用题(总题数：2，分数：4.00)
11、5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sjt5.vbp，在 Form1 的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为 1000、0；再画两个标签，名称分别为 Label1 和 Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为 C1 和 C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为 Timer1(如图 31 所示)。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动 100；单击“向左移动”按钮，则水平滚动条的滚动框每秒向左移动 100；当滚动框到达两端时，它将改变移动的方向，但速度不变。注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能。修改后的文件以原来的文件名存盘。 （分数：2.00）_正确答案：(正确答案： 建立界面和设置控件属性。 题目提供了程序用到的控件及其属性，如下表 4所示。 )解析：
