1、全国计算机等级考试二级 VISUAL+BASIC 机试真题 2010 年 3 月及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在窗体上拖拉出一个文本框，名称为 Txt1，Text 属性为空白。再画一个列表框，名称为 Lst1，通过属性窗口向列表框中添加 4 个项目，分别为“aaaa”、“bbbb”、“cccc”和“dddd”(如下图所示)。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序运行时的窗体界面如下图所示。（分数：15.00）_2.在名称为 For
2、m1 的窗体上建立两个名称分别为 Command1 和 Command2，标题分别为“上午”和“下午”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“上午”命令按钮，在窗体上显示“上午9:0012:00”；如果单击“下午”命令按钮，在窗体上显示“下午 12:0018:00”。程序中不能使用任何变量，直接显示字符串。程序运行结果如下图所示。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有工程文件 djks030.vbp 及窗体文件 djks030.frm。根据下文的描述，编写相应的程序。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一
3、个名为 Image1 的图像框，要求程序运行后，每用鼠标左键点击图像框一次，则图像框的高与宽都增加 300；每用鼠标右键点击图像框一次，图像框的高与宽都减小 300。窗体的高与宽为 3500，图像框最大化时不允许超过窗体的大小，最小化时图像框的高与宽不小于 500(高与宽的单位为 twip)。程序运行时的窗口界面如下图所示。（分数：20.00）_4.在考生文件夹中有文件 sjt4.vbp 及其窗体文件 sjt4.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为
4、 Text1 的文本框；两个复选框，名称分别为 check1 和 Check2，标题分别为“C+”和“Basic。要求程序运行后，如果 Check1 和 Check2 都不选，则单击窗体后在文本框中什么都不显示；如果只选中 Check1，则单击窗体后在文本框中显示“我掌握 C+”；如果只选中 Check2，则单击窗体后在文本框中显示“我掌握 Basic”；如果同时选中 Check1 和 Check2，则单击窗体后在文本框中显示“我掌握 C+和 Basic”。程序运行后，若选择 Check2，则单击窗体后显示界面如下图所示。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)
5、5.在名为 Form1 的窗体上建立一个文本框(名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2)和两个命令按钮(名称分别为 Cmd1 和 Cmd2，标题分别为 Read 和 Save)，如下图所示。（分数：30.00）_全国计算机等级考试二级 VISUAL+BASIC 机试真题 2010 年 3 月答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在窗体上拖拉出一个文本框，名称为 Txt1，Text 属性为空白。再画一个列表框，名称为 Lst1，通过属性窗口向列表框中添加 4 个项目，分别为“a
6、aaa”、“bbbb”、“cccc”和“dddd”(如下图所示)。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序运行时的窗体界面如下图所示。（分数：15.00）_正确答案：(第一步：建立工程和添加窗体。单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。启动 Visual Basic 后，在“新建工程”对话框中选择“新建”项目中的“标准 EXE”，然后单击“打开”按钮，建立一个新的工程文件，里面会同时自动建立一个名为 Form1 的窗体文件。第二步：设计窗体。单击工具箱中的 ListBox 控件图标
7、，然后在窗体上拖拉出一个列表框，通过属性窗口设计其 Name 属性为Lst1，通过设置 List 属性为列表框添加“aaaa”、“bbbb”、“cccc”和“dddd”四个列表项按Ctrl+Enter 组合键换行。单击工具箱中的 TextBox 控件图标，然后在窗体上拖拉出一个文本框，通过属性窗口设置其 Name 属性为 Txt1，Text 属性为空。第三步：编写代码：在弹出的代码窗口中，输入如下程序语句：1 Private Sub Lst1_DblCliek( )2 Lst1.AddItem Txt1.Text3 End Sub第四步：保存。)解析：解析 本题主要考查列表框的 AddItem
8、 方法，用来在列表框中插入一行文本。另外，注意本题的触发事件是 DblClick，而不是 Click。2.在名称为 Form1 的窗体上建立两个名称分别为 Command1 和 Command2，标题分别为“上午”和“下午”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“上午”命令按钮，在窗体上显示“上午9:0012:00”；如果单击“下午”命令按钮，在窗体上显示“下午 12:0018:00”。程序中不能使用任何变量，直接显示字符串。程序运行结果如下图所示。（分数：15.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程文件。第二步：将两个命令按钮和一个标签添加
9、到窗体中，将两个 Command 的名称分别设为 Command1 和Command2，Caption 属性分别设为“上午”和“下午”，标签的名称为 Label1，Caption 属性为空。第三步：编写程序代码：1 Private Sub Command1_Click( )2 Form1.Cls3 Print“上午 9:00-12:00“4 End Sub56 Private Sub Commmnd2_Click( )7 Form1.Cls8 Print“下午 12:00-18:00“9 End Sub第四步：调试并运行程序，运行正确后按要求保存。)解析：解析 单击命令按钮触发 Click 事
10、件，命令按钮的标题由其 Caption 属性设置；在窗体上打印信息通过 Print 方法来实现。二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有工程文件 djks030.vbp 及窗体文件 djks030.frm。根据下文的描述，编写相应的程序。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名为 Image1 的图像框，要求程序运行后，每用鼠标左键点击图像框一次，则图像框的高与宽都增加 300；每用鼠标右键点击图像框一次，图像框的高与宽都减小 300。窗体的高与宽为 3500，图像框最大化时不允许超过窗体的大小，最小化时图像框的高与宽不小于 500(高与宽的单
11、位为 twip)。程序运行时的窗口界面如下图所示。（分数：20.00）_正确答案：(第一步：启动 VB，打开考生文件夹下的工程文件 sjt3.vbp。第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：1 Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X AsSingle，Y As Single)2 If Button=1 Then3 If Image1.Height3500 Or Image1.Width3500 Then4 Image1.Height=Image1.Height+3005 Image
12、1.Width=Image1.Width+3006 End If7 End If8 If Button=2 Then9 If Image1.Height500 Or Image1.Width500 Then10 Image1.Height=Image1.Height-30011 Image1.Width=Image1.Width-30012 End If13 End If14 End Sub第三步：填写完毕，调试成功后，以原文件名保存。)解析：解析 根据题意，本题可以使用 MouseUp 事件也可以使用 MouseDown 事件。“Button=1”表示按下鼠标左键，“Buttor=2”表示按
13、下鼠标右键。“Image1.Height3500 Or Image1.Width3500”表示条件 Image1.Height3500 与条件 Image1.Width3500 只要任一为 True 时就执行 Then 后面的语句。下面的程序代码与此类似。4.在考生文件夹中有文件 sjt4.vbp 及其窗体文件 sjt4.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为 Text1 的文本框；两个复选框，名称分别为 check1 和 Check2，标题分别为“
14、C+”和“Basic。要求程序运行后，如果 Check1 和 Check2 都不选，则单击窗体后在文本框中什么都不显示；如果只选中 Check1，则单击窗体后在文本框中显示“我掌握 C+”；如果只选中 Check2，则单击窗体后在文本框中显示“我掌握 Basic”；如果同时选中 Check1 和 Check2，则单击窗体后在文本框中显示“我掌握 C+和 Basic”。程序运行后，若选择 Check2，则单击窗体后显示界面如下图所示。（分数：20.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 sjt4.vbp。第二步：将一个文本框控件和两个复选按钮添加到
15、窗体中，文本框控件的名称设为 Text1，复选按钮的名称分别设为 Check1 和 Check2，Caption 属性分别设为 C+和 Basic。由于是单击窗体触发事件，因此，双击窗体进入代码窗口，补充后的代码如下：1 Private Sub form_click( )2 Text1.Text=“3 If Check1.Value And NotCheck2.Value Then Text1.Text=“我掌握 C+“4 If Check1.Value=0 AndCheck2.Value Then Text1.Text=“我掌握 Basic“5 If Check1.Value AndChec
16、k2.Value=1 Then Text1.Text=“我掌握 C+和 Basic“6 End Sub第三步：填写完毕，调试并运行，运行无误后以原文件名保存。)解析：解析 复选框用来表示状态在程序运行期间可以改变其状态。复选框标题由 Caption 属性来设置，复选框的 Value 属性用来表示复选框的状态，其取值有：0-表示复选框未被选中；1-表示复选框被选中；2-表示复选框被禁止使用(灰色)。三、3 综合应用题(总题数：1，分数：30.00)5.在名为 Form1 的窗体上建立一个文本框(名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2)和两个命令
17、按钮(名称分别为 Cmd1 和 Cmd2，标题分别为 Read 和 Save)，如下图所示。（分数：30.00）_正确答案：(第一步：新建一个名为 Form1 的窗体。第二步：单击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为 Text1，将 MultiLine 属性设置为 True，ScrollBars 属性设置为 2。第三步：单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为 Cmd1 和 Cmd2，Caption 分别为 Read 和 Save。第四步：打开代码窗口输入如下代码
18、：1 Private Sub Cmd1_Click( )2 Open App.Path &“/in.txt“ For Input3 As#14 Text1.Text=“5 For i=1 To 1006 Input#1，a(i)7 Text1.Text=Text1.Text & a(i) &Space(1)8 Next i9 Close #110 End Sub11 Private Sub Cmd2_Click( )12 Text1.Text=“13 S=014 For i=1 To 10015 If a(i)Mod20 Then16 Text1.Text=Text1.Text & a(i) &Space(1)17 s=s+a(i)18 End If19 Next20 putdatas21 End Sub第五步：按要求保存文件即完成本题。)解析：解析 本题主要考查数据的输入输出及 Visual Basic 的控制结构及函数设计。
