1、二级 VISUAL+BASIC 机试-80 及答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下完成如下基本操作。1新建一个工程，在窗体中创建两个文本框，其名称分别为 Text1 和 Text2。编写一个事件过程，实现在程序运行后，当文本框 Text1 获得焦点时，其前景颜色与背景颜色交换显示。如图 13 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylcl.vbp，窗体文件名为 ylcl.frm。（分数：25.00）_2.新建一个工程。在窗体中画三个标签，名称分别为 Label1、Label2 和 Label3，标题分别为“加数 1”、
2、“加数 2”和“和”。在三个标签下分别有三个文本框(名称分别为 Textl、Tex2 和 Text3)用来输入数字。要求编写一个事件过程，程序运行后在文本框 Text1 和 Text2 中输入数字，单击文本框 Text3 后其中输出两个数的和。如图 14 所示。程序中不得使用任何变量。（分数：25.00）_3.新建一个工程。在窗体中画两个文本框，名称分别为 Textl 和 Text2，没有初始内容。建立一个下拉菜单，标题为“操作”。该菜单有两个菜单项，名称分别为 item1 和 item2，标题分别为 Copy 和 Clear。编写一个事件过程，程序运行后，单击 Copy 菜单项，则把 Tex
3、t1 中的内容复制到 Text2 中；单击 Clear 菜单项，则清除 Text1 和 Text2 内容。如图 15 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc3.vbp，窗体文件名为 ylc3.frm（分数：25.00）_4.新建一个工程。在窗体中画一个列表框，名称为 List，通过属性窗口向列表框中添加 3 个项目，分别为“中文”、“广东话”和 English。编写一个事件过程，要求运行程序后，双击列表中的任何一项，都会在后面加上“谢谢”，如图 16 所示。（分数：25.00）_二级 VISUAL+BASIC 机试-80 答案解析(总分：100.
4、00，做题时间：90 分钟)1.在考生文件夹下完成如下基本操作。1新建一个工程，在窗体中创建两个文本框，其名称分别为 Text1 和 Text2。编写一个事件过程，实现在程序运行后，当文本框 Text1 获得焦点时，其前景颜色与背景颜色交换显示。如图 13 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylcl.vbp，窗体文件名为 ylcl.frm。（分数：25.00）_正确答案：(Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择文本框控件，在窗体上创建两个文本框。双击文本框
5、 Text1，弹出代码窗口，添加如下代码：Private Sub Text1_Gotfocus()Dim a As Longa=Text1. ForeColorText1.ForeCotor=Text1.BackColorText1.BackColor=aEnd Sub(3)按 F5 键运行程序。如图 13 所示。(4)执行“文件”“保存工程”命令，将工程文件命名为 ylcl.vbp，窗体文件命名为 ylcl.frm。)解析：解析 (1)第 1 小题中使用了临时变量 a，在事件中，利用这个临时变量将 Text1 的前景色与背景色进行交换。2.新建一个工程。在窗体中画三个标签，名称分别为 Lab
6、el1、Label2 和 Label3，标题分别为“加数 1”、“加数 2”和“和”。在三个标签下分别有三个文本框(名称分别为 Textl、Tex2 和 Text3)用来输入数字。要求编写一个事件过程，程序运行后在文本框 Text1 和 Text2 中输入数字，单击文本框 Text3 后其中输出两个数的和。如图 14 所示。程序中不得使用任何变量。（分数：25.00）_正确答案：(Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择标签控件，在窗体中要求位置画出 3 个标签，其 Caption 属性分别为“加数 1
7、”、“加数 2”和“和”。(3)在工具箱中选择文本框控件，在窗体上创建 3 个文本框。双击文本框 Text3 弹出代码窗口，添加代码：Private Sub Text3_click()Text3=Val(Text1)+Val(Text2)End Sub(4)按 F5 键运行程序。如图 14 所示。(5)执行“文件”“保存工程”命令，将工程文件命名为 ylc2.vbp，窗体文件命名为 ylc2.frm。)解析：解析 (2)第 2 小题中，利用 Val 函数将输入的字符串转换为数值进行计算。3.新建一个工程。在窗体中画两个文本框，名称分别为 Textl 和 Text2，没有初始内容。建立一个下拉菜
8、单，标题为“操作”。该菜单有两个菜单项，名称分别为 item1 和 item2，标题分别为 Copy 和 Clear。编写一个事件过程，程序运行后，单击 Copy 菜单项，则把 Text1 中的内容复制到 Text2 中；单击 Clear 菜单项，则清除 Text1 和 Text2 内容。如图 15 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc3.vbp，窗体文件名为 ylc3.frm（分数：25.00）_正确答案：(Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择文本
9、框控件，在窗体上创建两个文本框，名称分别为 Text1 和 Text2。(3)单击工具栏中的 按钮，进入菜单编辑器。如图 32 所示。(4)在菜单编辑器中分别填入标题和名称。单击：“下一个”按钮建立下一个菜单，单击 将该菜单设置为下级菜单。选中后输入标题和名称。全部设置完毕后选择“确定”。(5)选择 Clear 对象添加以下代码：Private Sub Clear_Click(index As Integer)Text1.Text=“ “Text2.Text=“ “End Sub选择 Copy 对象，添加以下代码：Private Sub Copy_Click(index As Integer)
10、Text2.Text=Text1.TextEnd Sub)解析：解析 (3)第 3 小题中主要考查了对菜单编辑器的使用，包括设置菜单的属性与对菜单的 Click 事件的处理。4.新建一个工程。在窗体中画一个列表框，名称为 List，通过属性窗口向列表框中添加 3 个项目，分别为“中文”、“广东话”和 English。编写一个事件过程，要求运行程序后，双击列表中的任何一项，都会在后面加上“谢谢”，如图 16 所示。（分数：25.00）_正确答案：(Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择 ListBox 控件，在窗体上拖动创建一个列表框，名称为 List1。在其属性窗口中，添加三个项目，分别为“中文”、“广东话”和 English。(3)在 Listl 的代码窗口中添加以下代码：Private Sub List1_DblClick()List1.AddItem(“谢谢!“)End Sub(4)按 F5 键运行程序。如图 16 所示。(5)执行“文件”“保存工程”命令，将工程文件命名为 ylc4.vbp，窗体文件命名为 ylc4.frm。)解析：解析 (4)第 4 小题中，主要考查了列表框的建立和 AddItem 的使用。
