1、VB机试模拟试卷 40及答案与解析 一、基本操作题（ 30分） 1 新建一个工程，在窗体中创建两个文本框，其名称分别为 Text1和 Text2。编写一个事件过程，实现在程序运行后，当文本框 Text1获得焦点时，其前景颜色与背景颜色交换显示。如图 13所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylcl.vbp，窗体文件名为 ylcl.frm。2 新建一个工程。在窗体中画三个标签，名称分别为 Label1、 Label2和 Label3，标题分别为 “加数 1”、 “加数 2”和 “和 ”。 在三个标签下分别有三个文本框 (名称分别为Textl、 Tex
2、Q和 Text3)用来输入数字。要求编写一个事件过程，程序运行后在文本框 Text1和 Text2中输入数字，单击文本框删后其中输出两个数的和。如图 14所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc2.vbp，窗体丈件名为 ylc2.frm。二、简单应用题（ 40分） 3 有一个工程文件 ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组 合框中的项目；如果已有此项，则弹出提示： “已有此项 ”，之后清除输入的内容。界面如图20所示。 注意：存盘时必须存放在考生文件夹下，工
3、程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。 VB机试模拟试卷 40答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择“标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择文本框控件，在窗体上创建两个文本框。双击文本框 Text1，弹出代码窗口，添加如下代码： Private Sub Text1_Gotfocus() Dim a As Long a=Text1. ForeColor Text1.ForeCotor=Text1.BackColor Text1.BackColor=
4、a End Sub (3)按 F5键运行程序。如图 13所示。 (4)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 ylcl.vbp，窗体文件命名为 ylcl.tim。 【试题解析】 (1)第 1小题中使用了临时变量 a， 在事件中，利用这个 临时变量将 Text1的前景色与背景色进行交换。 2 【正确答案】 Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择 “标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择标签控件，在窗体中要求位置画出 3个标签，其 Caption属性分别为 “加数 1”、 “加数 2”和 “和 ”。 (3)在工具箱中选择
5、文本框控件，在窗体上创建 3个文本框。双击文本框 Text3弹出代码窗口，添加代码： Private Sub Text3 click() Text3=Val(Text1)+Val(Text2) End Sub (4)按 F5键运行程序。如图 14所示。 (5)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 yle2.vbp，窗体文件命名为ylc2.frm。 【试题解析】 (2)第 2小题中，利用 Val函数将输入的字符串转换为数值进行计算。 二、简单应用题（ 40分） 3 【正确答案】 1操作步骤 (1)在 Visual Basic集成环境中选择 “文件 ”“ 打开工程 ”命令，在对话
6、框中选择 ylc6.vbp工程文件，单击 “确 定 ”按钮打开。 (2)选择工具中的 ComboBox控件，在窗体中画命名为 Comboll的组合控件。在属性窗口分别设置它们的名称、 Text属性为空。 (3)在属性编辑框中设置 Comboll组合控件的 List属性，其初始数据为 “语文 ”、“数学 ”、 “英语 ”、 “物理 ”、 “化学 ”、 “生物 ”、 “历史 ”、 “政治 ”和 “地理 ”。 (4)在工具箱中选择命令按钮控件，在窗体上拖动创建并命名为 Command1，标题为 “确定 ”。 2行为编码 在代码框选择 Command1对象和 Click事件，代码如下： Private
7、 Sub Command1_Click() For i=0 To Combol. ListCount-1 If Combol.List(i)=Combol.Text Then 清除输入内容 Combol.Text=“ “ MsgBok(“已有此项 “) End If Next i End Sub 3存盘保存 执行 “文件 ”“ 保存工程 ”命令， 工程文件名为 ylc6.vbp，窗体文件名为ylc6.frm。 【试题解析】 (1)这是一道简单的应用题，主要考查 ComboBox控件的相关特性、数据的初始化、项目的多少、程序设计中循环结构的编程，以及程序中提示信息对话框的使用。 (2)代码中使用组合控件的 ListCount属性，得到控件数据的个数，使用 Comboll的 List属性得到 Comboll内某项字符中的值。在 For.Next循环中将输入的字符串与 Comboll内的字符串逐个比较。如果输入的字符串在控件中已存在，则使用MsgBox信息捉示框显示提示信息。
