1、VB 机试模拟试卷 29 及答案与解析 一、基本操作题（ 30分） 1 1. 在窗体上画 1个水平滚动条 (名称为 HS1，最小值为 0，最大值为 80)和 3个命令按钮 (名称分别为 C1、 C2、 C3，标题分别为 “左端 ”、 “居中 ”和 “右端 ”)，然后编写适当的事件过程。程序运行后，如果单击 “左端 ”命令按钮，则滚动框位于滚动条最左端处；如果单击 “居中 ”命令按钮，则滚动框位于滚动条中间；如果单击 “右端 ”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如图 11所示 (单击“左端 ”命令按钮 )。存盘时，工程文件名为 sjt1.vbp， 窗体文件名为 sjt1.frm
2、。 2请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在窗体上画一个命令按钮，其名称为 C1，标题为 “清除 ”，编写适当的事件过程。程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图 12所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2.vbp，窗体文件名为sjt2.frm。二、简单应用题（ 40分） 2 1. 在窗体上画 1个组合框 (名称为 Cbl，设置为简单组合框 )和 1个命令按钮 (名称为 C1，标题为 “添加 ”)，编写适当的 事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表
3、，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示 “此项已存在 ”，并清除输入的内容。程序的运行情况如图 21所示。存盘时，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。 2在窗体上画一个名称为 L1的列表框，通过属性窗口向列表框中添加 3个项目，分别为 “123”、 “456”和 “789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项 之和。程序的运行情况如图 22所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm，工程文件名为 sjr4.vbp。三、综合应用题（ 3
4、0分） 3 在考生文件夹下有一个工程文件 sjt5.vbp，在 Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为 1000、 0；再画两个标签，名称分别为 Label1和 Label2，标题分别为 “1000”、 “0”；再画两个命令按钮，名称分别为 C1和 C2，标题分别为 “向右移动 ”、 “向左移动 ”；再画一个计时器，名称为 Timer1(如图 31所示 )。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击 “向右移动 ”按钮，则水平滚动条的滚动框每秒向右移动 100；单击 “向左移动 ”按钮，则水平滚动条的滚动框每秒向左移动 100；当滚
5、动框到达两端时，它将改变移动的方向，但速度不变。注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能。修改后的文件以原来的文件名存盘。 VB 机试模拟试卷 29 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 按以下步骤操作： 启动 Visual Basic，在窗体上画 1个水平滚动条和 3个命令按钮。 按 F4键激活属性窗口，在属性窗口中设置 3个命令按钮的属性，见表 1。 编写 3个命令按钮的事件过程； Private sub C1_Click() HS1.Value HS1.Min End Sub Private sub C2_Clic
6、k() HS1.Value=HS1.Max/2 End Sub Private sub C3_Click() HS1.Value=HS1.Max End Sub 2 对象主要属性设置如表 2所示。 分析：按试题要求在窗 体上画一个命令按钮，并将它的属性按表 2的内容进行设置。 Caption属性用来定义对象的标题，将空字符串赋值给 Caption，即可清除 Caption中的内容。 编程代码： Private Sub C1_Click() Form1.Caption “ End Sub 二、简单应用题（ 40分） 2 【正确答案】 启动 Visual Basic，在窗体上画 1个组合框和 1个
7、命令按钮。 按 F4键，激活属性窗门，在属性窗口中设置组合框和命令按钮的属性，见表 3。 编写命令按钮的 Click事件过程： Private Sub C1_Click() Dim flag As Boolean For i 0 To Cb1.ListCount1 If Cb1.List(i) Cb1.Text Then flag True Else flag False End If Next If flag Then MsgBox“此项已存在 “,“ Cb1.Text=“ Else Cb1.Addltem Cb1.Text End If End Sub2 对象主要属性设置如表 4所示。 分
8、析：按试题要求在窗体上画一个列表框，并分别将它们的属性按表 4的内容进行设置。 ListIndex 属性返回或设置控件中当前选择项目的索引值。当双 击列表框中的任一项时，即触发了 DblCilck(双击 )事件。向列表框 (对象 )中添加内容的方法为 AddItem，其格式为：对象 AddItem字符串表达式，位置如果 省略 “位置 ”，当 Sorted属性设置为 False时， “字符串表达式 ”将添加到列表的结尾。 编程代码： Private Sub L1 DblClick() For i 0 To L1. ListIndex s s+Val(L1.list(i) Next i L1.Ad
9、dItem s End Sub 三、综合应用题（ 30分） 3 【正确答案】 建立界面和设置控件属性。 题目提供了程序用到的控件及其属性，如下表 4所示。 编写程序代码。 程序提供的代码： Dim dis As Integer Private Sub C1_Click() Timer1.Enabled ? dis 100 End Sub Private Sub C2_C1ick() Timer1.Enable=True dis ? End Sub Private Sub Timer1_?() HSeroll1. Value HScroll1. Value+dis If HScroll1.Val
10、ue =HScroll1. Max Then HScroll1. Value=HScroll1.Max dis=-100 End if If ? Then HScroll1. Value=HSeroll1. Min dis=100 End If End Sub修改后的参考代码： Dim dis AS Integer Private Sub C1_Click() Timer1.Enabled=True dis=100 End Sub Private Sub C2_Cliek() Timer1.Enabled=True dis=100 End Sub Private Sub Timerl_Timer() HScroll1. Value=HSeroll1.Value + dis If HScroll1. Value =HSeroll1. Max Then HScroll1. Value=HScroll1. Max dis=100 End if If HScroll1. Value =HSeroll1.Min Then HScroll1. Value=HScroll1. Min dis=100 End If End Sub 按题目要求存盘。
