1、VB机试模拟试卷 43及答案与解析 一、基本操作题（ 30分） 1 有一个工程文件 ylc5.vbp，窗体上有一个单选按钮数组，含 3个没有标题的单选按钮。为单选按钮添加标题 “语文 ”、 “数学 ”、 “英语 ”；再添加一个标题为 “显示 ”的命令按钮，运行后将根据单选按钮的选中情况，在窗体上显示 “我喜欢语文 ”、 “我喜欢数学 ”、 “我喜欢英语 ”。要求单选按钮的初始值为英语。运行后如图 21所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc5.vbp，窗体文件名为ylc5.frm。 二、简单应用题（ 40分） 2 有 一个工程文件 ylc6.vbp。请在窗体上画一个文本框
2、，其名称为 Text1；画一个命令按钮，名称为 Command1，标题为 “确定 ”。再画 5个单选按钮，名称分别为option1、 Option2、 Option3、 Option4和 Option5，标题分别为 “飞机 ”、 “火车 ”、“汽车 ”、 “自行车 ”和 “步行 ”，如图 26所示。编写适当事件过程。选中一个单选按钮，并单击 “确定 ”按钮，按照表 3-1在文本框中显示相应的内容。提供 Command1对象的Click事件源代码如下，请补充完整。 Private Sub Command1_Click() If ? Then Text1.Text=“需要 1小时 “ End If
3、 If ? Then Text1. Text=“需要 10小时 “ End If If ? Then Text1. Text=“需要 20小时 “ End If If ? Then Text1. Text=“需要 100小时 “ End If If ? Then Text1.Text =“需要 500小时 “ End If End Sub 注意：不得修改已经给出的程序。在结束程序运行之前，必须选择进行上面的一种操作退出程序 时必须通过单击窗体右上角的关闭按钮存盘时必须存放在考生丈件夹下，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm VB机试模拟试卷 43答案与解析 一、基本操
4、作题（ 30分） 1 【正确答案】 1操作步骤 (1)在 Visual Basic集成环境中选择 “文件 ”“ 打开工程 ”命令，在对话框中选择 ylc5.vbp工程文件，单击 “确定 ”按钮打开。 (2)在工具箱中选择 OptionButton控件，分别在窗口中创建 3个，都命名为Option1。 Visual Basic提示是否建立 单选控件数组，选择确定。在属性窗口中其名称 (Name)分别为 Option(0)、 Option(1)、 Option(2)，标题 (Caption)分别为 “语文 ”、“数学 ”和 “英语 ”。 (3)根据题目要求，在属性窗口设置标题为英语的控件 Opti
5、on(2)的 Value属性为True，表示其初始值是英语。 (4)选择命令按钮，设置名称 (Name)为 Command1，标题 (Caption)为 “显示 ”。 1行为编码 选择 Command1对象和 Click事件，命令按钮的事件过程代码如下： Private Sub Command1_Click() 清除窗体上所有的图形和文本 Form1.Cls For i=0 To Option1.Count-1 If Optionl.Item(i).Value Then 使用控件的 Caption属性显示名称，进行字符串连接后显示在窗体上 Form1.Print(“我喜欢 “ & Option
6、1. Item(i).Caption) End If Next i End Sub 3存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 ylc5.vbp，窗体文件名为 ylc5.frm。 【试题解析】 (1)本题考查单选按钮控件组的处理。通过循环判断每次选择的单选按钮，在窗体上显示相应的标题字符的组合。 (2)注意 OptionButton控件数组的建立、 For循环语句、 Form对象的 Print方法。 (3)在 For循环中检测当前单选按钮数组的值，连接字符串，通过 Print方法打印在窗体上。 二、简单应用题（ 40分 ） 2 【正确答案】 1操作步骤 (1)在 Visua
7、l Basic集成环境选择 “文件 ”“ 打开工程 ”命令，在对话框中选择ylc6.vbp工程文件，单击 “确定 ”按钮打开。 (2)在工具箱中选择 TextBox控件，在窗体中创建命名为 Text1。在属性窗口分别设置属性为空。 (3)从工具箱中选择选项控件，在窗体中拖动创建，在属性窗口分别命名为Option1、 Option2、 Option3、 Option4和 Option5，标题分别为 “飞机 ”、 “火车 ”、“汽车 ”、 “自行车 ”和 “步行 ”。 (4)通过工具箱创建命令按钮，命名为 Command1，标题为 “确定 ”。 2行为编码 补充后 Command1对象的 Clic
8、k事件的完整代码如下： Private Sub Command1_Click() If Option1.Value Then Text1.Text=“需要 1小时 “ End If If Option2. Value Then Text1.Text=“需要 10小时 “ End If If Option3.Value Then Text1.Text=“需要 20小时 “ End If If Option4.Value Then Text1.Text=“需要 100小时 “ End If If Option5.Value Then Text1.Text=“需要 500小时 “ End If End Sub 3存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 yle6.vbp，窗体文件名为 ylc6.frm。 【试题解析】 (1)这是一道简单的应用题，主要考查 OptionButton控件的应用能力。在编程中使用判定的控制流程，显示出不同的结果信息。 (2)上面的控制流程使用 3个 If， Then End If，分别判断 3个单选按钮是否被选中。判断后在文本框中显示相应的信息。
