1、二级 VISUAL+BASIC 机试-44 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.请根据以下各小题的要求设计 Visaul Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画 1 个列表框(名称为 L1)和 1 个水平滚动条(名称为 HS1，Min 属性为 0，Max属性为 100，SmallChange 属性为 2，LargeChange 属性为 10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图 11 所示，其中 xx
2、是滚动框所在的位置。存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在名称为 Form1 的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本2)在文本框中显示垂直滚动条3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图 12 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_二、2 简单应用题(总题数：1，分数
3、：40.00)2.在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图 21 所示)；再建立一个名称为 Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。2在考生文件夹中有工程文件 sit4.vbp，它包含一个窗体文件 form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为 Text1，和一个命令按钮，名称为 Command1，标题
4、为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目 1”、“项目 2”、“项目 3”、“项目 4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图 22)。要求：编写程序，以实现试题要求的功能。注意：存盘时必须放在考生文件夹下，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 sjt5.vbp，在 Form1 的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为 1000、0；再画两个标签，名称
5、分别为 Label1 和 Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为 C1 和 C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为 Timer1(如图 31 所示)。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动 100；单击“向左移动”按钮，则水平滚动条的滚动框每秒向左移动 100；当滚动框到达两端时，它将改变移动的方向，但速度不变。注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实（分数：30.00）_二级 VISUAL+BASIC 机试-44 答
6、案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.请根据以下各小题的要求设计 Visaul Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画 1 个列表框(名称为 L1)和 1 个水平滚动条(名称为 HS1，Min 属性为 0，Max属性为 100，SmallChange 属性为 2，LargeChange 属性为 10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图 11 所示，其中 xx 是滚动框所在的位置。存盘时，工程文件名为 sjt
7、1.vbp，窗体文件名为 sjt1.frm。2在名称为 Form1 的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本2)在文本框中显示垂直滚动条3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图 12 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_正确答案：(按以下步骤操作： 启动 Visual Basic，在窗体上画 1 个水平
8、滚动条和 1 个列表框。 按 F4 键，激活属性窗口，在属性窗口中设置滚动条和列表框的属性，见表 1。表 1* 编写窗体的 Click 事件过程；Private Sub Form_Click()L1.AddItem“滚动条的当前值是:“&HS1. ValueEnd Sub2 对象主要属性设置如表 2 所示。表 2对象 对象名 属性名 属性值窗体 Form1 Caption 设置文本框属性文本框 Text1 Text 程序设计MultiLine TureScrollBars 2FontName 黑体FontSize 三号 分析：按试题要求在窗体上画出一个文本框，并分别将它们属性按表 2 的内容进
9、行设置。MultiLine属性设置为 True，文本框显示多行文本；SerollBar 属性设置为 2，文本框显示垂直滚动条；设置 Text属性中的内容为初始信息；用 FontName 和 FontSize 属性分别设置文本框的字型和字号；Caption 属性设置窗体标题的内容。 编程代码：(无)解析：二、2 简单应用题(总题数：1，分数：40.00)2.在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图 21 所示)；再建立一个名称为 Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“
10、清除”命令按钮，则清除文本框中所显示的信息。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。2在考生文件夹中有工程文件 sit4.vbp，它包含一个窗体文件 form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为 Text1，和一个命令按钮，名称为 Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目 1”、“项目 2”、“项目 3”、“项目 4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图 22)。要求：编写程序，以实现试题要求的功能。注意
11、：存盘时必须放在考生文件夹下，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。（分数：40.00）_正确答案：( 对象主要属性设置如表 3 所示。表 3对象 对象名 属性名 属性值窗体 Form1 Caption Form命令按钮 Cmd1 Caption 清除文本框 Text1 Text AAAA 分析：按试题要求在窗体上画一个文本框和一个命令按钮，并分别将它们的属性按表 3 的内容进行设置。通过将一个空字符串 (即“)赋值给文本框的 Text 属性即可清除 Text 文本框的内容。 编程代码：Private Sub Cmd1_C1ick()Text1. Text“End s
12、ub2 窗体 Load 事件过程的程序如下：Private Sub Form_Load()List1.AddItem“项目 1“List1.AddItem“项目 2“List1.AddItem“项目 3“List1.Addltem“项目 4“End Sub 命令按钮 Click 事件的程序如下：Private Sub Command1_Click()For i0 To List1.ListCount1If List1. Selected(i)TrueThenText1. TextList1. List(i)End IfNext iEnd Sub)解析：三、3 综合应用题(总题数：1，分数：30
13、.00)3.在考生文件夹下有一个工程文件 sjt5.vbp，在 Form1 的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为 1000、0；再画两个标签，名称分别为 Label1 和 Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为 C1 和 C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为 Timer1(如图 31 所示)。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动 100；单击“向左移动”按钮，则水平滚动条的滚动框每秒向左移动 100；当滚动框到达两端时，
14、它将改变移动的方向，但速度不变。注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实（分数：30.00）_正确答案：( 建立界面和设置控件属性。题目提供了程序用到的控件及其属性，如下表 4 所示。表 4控 件 属 性 设 置 值标签 NameCaption Label1“1000“标签 NameCaption Label2“0“ 水平滚动条NameMaxMinHScroll110000 命令按钮 NameCaption C1“向右移动”命令按钮 NameCaption C2“向左移动”计时器NameEnabledIntervalTimer1False1000 编写
15、程序代码。程序提供的代码：Dim dis As IntegerPrivate Sub C1_Click() Timer1.Enabled?dis100End SubPrivate Sub C2_C1ick()Timer1.Enable=True dis?End Sub Private Sub Timer1_?()HSeroll1. ValueHScroll1. Value+disIf HScroll1.Value=HScroll1.Max ThenHScroll1. Value=HScroll1.Maxdis=-100End if If ? ThenHScroll1. Value=HSerol
16、l1. Min dis=100End IfEnd Sub修改后的参考代码：Dim dis AS IntegerPrivate Sub C1_Click()Timer1.Enabled=Truedis=100End SubPrivate Sub C2_Click()Timer1.Enabled=Truedis=100End SubPrivate Sub Timerl_Timer()HScroll1. Value=HSeroll1.Value + disIf HScroll1. Value=HSeroll1. Max ThenHScroll1. Value=HScroll1. Maxdis=100End ifIfHScroll1. Value=HSeroll1.MinThenHScroll1. Value=HScroll1. Min dis=100End IfEnd Sub 按题目要求存盘。)解析：
