1、全国计算机等级考试二级 VISUAL+BASIC 机试真题 2010 年 9 月及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上画一个列表框，其名称为 List1，通过属性窗口向列表框中输入 9 个项目，分别为 10、20、30、40、50、60、70、80、90；画一个文本框，其名称为 Hscrol1，Min 属性和 Max 属性分别为 0 和 100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。要求：不得使用任何变量。（分数：
2、15.00）_2.在名称为 Form1 的窗体中画一个图像框，名称为 Image1，其高、宽分别为 1800、4500，通过属性窗口把考生文件夹下的图像文件 smile.bmp 装入图像框；再画一个命令按钮，名称为 Cmd1，标题为“放大”。请编写适当事件过程，程序运行后，单击“放大”按钮，则把图像框的高度、宽度均增加 100，同时图像也随之自动放大。注意：程序中不得使用任何变量。程序运行时的界面如下图所示。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，及其窗体文件 sjt3.frm，程序运行时，如果用鼠标左键按住窗
3、体，并在其上移动，则窗体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，并在其上移动，则显示“您按下了鼠标的右键”。程序运行时的窗体界面如图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序：1 Private Sub Form_MouseMove(Button As Integer, ShiftAs Integer，X As Single，Y As Single)2 If Button=?Then Print “您按下了鼠标的左键“3 If Button=?Then Print “您按下了鼠标的右键“4 End Sub（分数：20.00）_4.在
4、考生文件夹下有一个工程文件 sjt4.vbp，及其窗体文件 sjt4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕。现使用 KeyPress 事件编写一个口令程序，程序运行后，在文本框中输入口令如果正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3 次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如下图所示。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有工程文件 djks043.vbp 及窗体文件 djks043.frm，该程序是不完整的，请在有?的地方填入正确内容，然后删除
5、?及所有注释符()，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为 Label1 与 Label2，标题分别为“原文本”、“加密文本”；文本框的名称分别为 Text1 与Text2，Text 属性均为空；两个控制按钮的名称分别为 Command1 与 Command2，标题分别为“加密”与“读入”；单选框的名称统一为 Option1，标题分别为 2、4、6；框架名称为 Frame1，标题为“加密类型”。单击“读入”按钮，程序将读入考生文件夹下的文本文件 in043.txt，单击“加密”按钮，
6、加密过的文本显示在 Text2 中。根据单选框中不同的数字，加密的方法不同。例如选择 Option1，则逐一把 Text1 中的字符串改为它后面的第 2 个字母。程序运行时的窗体界面如下图所示。（分数：30.00）_全国计算机等级考试二级 VISUAL+BASIC 机试真题 2010 年 9 月答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上画一个列表框，其名称为 List1，通过属性窗口向列表框中输入 9 个项目，分别为 10、20、30、40、50、60、70、80、90；画一个文本框，其名称为 Hsc
7、rol1，Min 属性和 Max 属性分别为 0 和 100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。要求：不得使用任何变量。（分数：15.00）_正确答案：(第一步：启动 Visual Basic，新建工程文件。第二步：设计窗体。根据题意，该用户界面包括三个对象，即窗体和两个文本框。单击工具箱中的文本框图标，在窗体的适当位置画一个文本框。画完后，文本框内自动标有 Text1。重复以上步骤，再添加一个文本框为 Text2。第三步：设置属性。根据题意，窗体的名称(Name)和标题(Caption)属性都为默认的 Fo
8、rm1，因此无须再为其重新设置属性。单击 Text1，将其激活，在属性窗口中将其 Name 属性改为 T1。然后单击 Text2，使其变为活动控件，在属性窗口中将其 Name 属性改为 T2。根据题意，在初始情况下，两个文本框中都没有内容，这可以通过在属性窗口中将其 Caption 属性设置为空值或在代码窗口中的“Form1Load”事件中通过代码来实现。本题采用编写代码来实现。设置完属性之后就可以通过双击窗口进入代码编辑窗口编写代码如下：1 PriVate Sub Form_Load( )2 T1.Text=“3 T2.Text=“4 End Sub5 PriVate Sub T1 Chan
9、ge( )6 T2 Text=T1.Text7 End Sub第四步：保存。程序设计完成经调试无误后进行存盘。执行“文件”菜单中的“保存工程”命令，打开“文件另存为”对话框，窗体文件名为“sjt1.form”，单击“保存”按钮。然后在紧接着出现的“工程另存为”划话框中选择工程文件名为“sjt1.vbp”，单击“保存”按钮。)解析：解析 本题主要考查的是文本框的 Change 事件的用法。当用户向文木框中输入新信息，或程序把Text 属性设置为新值从而改变文本框的 Text 属性时，将触发 Change 事件。程序运行后，在文本框中每键入一个字符，就会引发一次 Change 事件。在本题中要求当
10、在一个文本框中输入字符时在另一个文本框中立即显示该字符，那么可以通过在文本框 1 即 T1 的 Change 事件中将 T1 的 Text 属性赋值给 T2 的 Text属性，就可以实现两个文本框中内容的同步变化。2.在名称为 Form1 的窗体中画一个图像框，名称为 Image1，其高、宽分别为 1800、4500，通过属性窗口把考生文件夹下的图像文件 smile.bmp 装入图像框；再画一个命令按钮，名称为 Cmd1，标题为“放大”。请编写适当事件过程，程序运行后，单击“放大”按钮，则把图像框的高度、宽度均增加 100，同时图像也随之自动放大。注意：程序中不得使用任何变量。程序运行时的界面
11、如下图所示。（分数：15.00）_正确答案：(第一步：启动 Visual Basic，新建工程文件。第二步：设计窗体。根据题意，该用户界面包括三个对象，即窗体、一个文本框和一个命令按钮。因此在窗体上添加一个文本框和一个命令按钮并放置在窗体的适当位置。第三步：设置属性。根据题意，窗体的名称(Name)和标题(Caption)属性都为默认的 Form1，因此无须再为其重新设置属性。将文本框的名称(Name)和标题(Caption)属性分别设置为“Text1”和空值。将命令按钮的名称(Name)和标题(Caption)属性分别设置为“C1”和“移动”。设置完属性之后就可以通过双击命令按钮进入代码编辑
12、窗口编写代码如下：1 Private Sub C1_Click( )2 Text1.Left=03 End Sub第四步：保存。程序设计完成经调试无误后进行存盘。以 sjt2.vbp，和 sjy2.frm 进行保存。)解析：解析 本题主要考查对象的 Left 属性的概念。Left 属性是用来设置对象的左边的坐标值，坐标值的默认单位为 twip。当用程序代码设计时其格式为：对象.Left=x。这里的对象可以是窗体和绝大多数控件。当“对象”为窗体时，Left 指的是窗体的左边界与屏幕左边界的相对距离；而当“对象”为控件时，Left 指控件的左边界与窗体的左边的相对距离。和 Lert 属性相同的还有
13、 top 属性，它是用来设置对象的顶边的坐标值，其对象的概念和 Left 属性中相同。本题要求单击按钮后文本框水平移动到窗体的最左端。对象为文本框，它的 Left 值是相对于窗体的左边界来说的，因此当它移动到窗体最左端时其Left 值为 0。二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，及其窗体文件 sjt3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，并在其上移动，则显示“您按下了鼠标的右键”。程序运行时的窗体界面如图所示。要求：题目中所给的程序不完整，请读懂程
14、序后将其补充完整，以原文件名保存。试题源程序：1 Private Sub Form_MouseMove(Button As Integer, ShiftAs Integer，X As Single，Y As Single)2 If Button=?Then Print “您按下了鼠标的左键“3 If Button=?Then Print “您按下了鼠标的右键“4 End Sub（分数：20.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 sjt3.vbp。第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：第一个?处填入 AddItem。第二个
15、?处填入 L1.ListIndex。第三步：填写完毕，调试成功后，以原文件名保存。)解析：解析 本题主要考查列表框的 AddItem 和 RemoveItem 方法的使用和 ListIndex 属性的概念。AddItem 方法用于在程序代码中向列表框中添加一个选项。具体格式为：列表框名.AddItem 选项内容字符串,索引值。此方法可将某个字符串作为选项内容插入到列表框数组中的指定位置，由索引值说明该字符串插入到数组中的下标值。如果省略“索引值”则文本被放入列表框的尾部。此方法只能每次向列表框中加入一个选项。RemoveItem 方法用来删除列表框中指定的项目，其格式为：列表框.RemoveI
16、tem 索引值。使用RemoveItem 方法后从列表框中删除以“索引值”为地址的项目，该方法每次只能删除一个项目。ListIndex 属性的设置值是已选中的表项的位置。表项位置由索引值指定，第 1 项的索引值为 0，第 2 项为 1，依次类推。如果没有选中任何项，ListIndex 的值为-1。在程序中设置 ListIndex 后，被选中的条目反相显示。在本题中要求单击按钮后，将文本框中的内容添加到列表框中，因此要使用列表框的 AddItem 方法。当单击列表框中的某一项时立即将该项删除，就要使用列表框的 RemoveItem 方法，索引值是选中项的索引值，因此用 ListIndex 表示。
17、4.在考生文件夹下有一个工程文件 sjt4.vbp，及其窗体文件 sjt4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕。现使用 KeyPress 事件编写一个口令程序，程序运行后，在文本框中输入口令如果正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3 次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如下图所示。（分数：20.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 sjt4.vbp。第二步：双击窗体中的命令按钮，进入代码编辑窗口，对确定按钮的单击事件进行代码编辑如下：1
18、PriVate Sub C1_Click( )2 If Op1.Value=True Then3 Text1.Text=“需要 1 小时“4 Else If Op2.Value = TrueThen5 Text=1.Text=“需要 10 小时“6 Else7 Text1.Text=“需要 15 小时“8 Enci If9 End Sub第三步：填写完毕，调试成功后，以原文件名保存。)解析：解析 本题主要考查对单选按钮的操作和选择结构程序的运用。单选按钮的一个重要属性是 Value 属性，该属性用来决定是否选中了该选项。若此属性值为 True，代表该选项被选中，否则，代表该选项没有被选中。一般
19、系统默认值为 False。条件语句也称为 If 语句，它有两种格式，一种是单行结构，一种是块结构。单行条件语句比较简单，其格式为：If 条件 Then then 部分Else else 部分。块结构条件语句以 If 开头，以 End If 结束，中间有多个 else if 分支可以用于对多个不同条件进行比较判断，从而执行对应的语句。在本题中主要是通过对每个单选按钮的选中与否进行判断，也就是对单选按钮的 Value 属性值进行判断，当某一个单选按钮的 Value 属性值为真时，在文本框中显示对应的信息。在本题所给出的一段程序中，是在窗体的 Unload 事件中对文件进行写操作，写入最后一次执行后
20、各个单选按钮的 Value 值和文本框中的信息。首先用 Open 语句打开文件名为 out4.txt 的文件，然后用 Print#语句将对应的字段写入该文件中。窗体的 Unload 事件用来清除内存中指定的窗体，当关闭窗体或执行Unload 语句时触发该事件。将文件的写操作放在这个事件，因此在程序运行并执行了某个操作后，关闭窗口将触发该事件，也就将这次执行后的情况写入指定文件中。这也是本题最后所给的两点要求的原因。三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有工程文件 djks043.vbp 及窗体文件 djks043.frm，该程序是不完整的，请在有?的地方填入正确内
21、容，然后删除?及所有注释符()，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为 Label1 与 Label2，标题分别为“原文本”、“加密文本”；文本框的名称分别为 Text1 与Text2，Text 属性均为空；两个控制按钮的名称分别为 Command1 与 Command2，标题分别为“加密”与“读入”；单选框的名称统一为 Option1，标题分别为 2、4、6；框架名称为 Frame1，标题为“加密类型”。单击“读入”按钮，程序将读入考生文件夹下的文本文件 in043.txt，单击“
22、加密”按钮，加密过的文本显示在 Text2 中。根据单选框中不同的数字，加密的方法不同。例如选择 Option1，则逐一把 Text1 中的字符串改为它后面的第 2 个字母。程序运行时的窗体界面如下图所示。（分数：30.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 sjt5.vbp。第二步：把计时器控件的 Enabled 属性设置为“False”，Interval 属性设置为 1000。第三步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：笫一个?处填入 Index。第二个?处填入 0。笫三个?处填入+1。第四步：填写完毕，调试成功后，以原文件
23、名保存。)解析：解析 在本题中是用两个命令按钮来控制计时器的启动和停止，因此应在窗体设计时将其Enabled 属性设置为 False。由于本题要求时间间隔为 1s，因此计时器的 Interval 属性应设置为1000ms。在本题中两个命令按钮组成了一个控件数组，名称为 C1。查看 Index 属性可知，开始计数按钮的 Index值为 0，停止计数按钮的 Index 值为 1。本题中用到了多分支选择语句 Selectcase 语句结构。在这种结构中，只有一个用于判断的表达式，根据此表达式的不同计算结果，执行不同的语句体部分。本题中根据控件数组的 Index 属性值的取值情况决定计时器的 Enabled 属性值。
