1、VB机试模拟试卷 191及答案与解析 一、基本操作题（ 30分） 1 在名为 Form1的窗体上建立一个名为 Lab1的标签：两个名称分别为 Cmd1和Cmd2，标题分别为 “显示广和 “显示 2”的命令按钮。编写适当的事件过程，使程序运行后、若单击 “显示广命令按钮，则在标签卜显示字符串 Cmd；如果单击 “显示2”命令按钮，则在标签上显示字符串 Cmd2。如下图所示。注意： 不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 execise62.frm，工程文件名为execise62.vbp。 二、简单应用题（ 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小时
3、 “ End If 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 三、综合应用题（ 30分）
4、 3 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确的程序代码，然后删除 ?及所有注释符号 (即 号 )，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。 本题描述 如下： 在窗体上有一个名称为 Text1的文本框，三个命令按钮，名称分别是 C1、 C2和 C3，标题分别是 “读入 ”、 “加密 ”和 “存盘 ”。要求程序运行后，点击 “读入 ”按钮，将文本文件in7.txt(该文件在考生文件夹下 )中的文本信息读入文本框
5、Text1中；点击 “加密 ”按钮将 Text1中的英文字母加密转换，并将转换后的结果显示到 Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是 “a”，则转换后的是 “c”；点击 “存盘 ”按钮，则将转换后的文本框中的文本保存到 out7.txt文件中 (该文 件保存到考生文件夹下 )。程序设计界面如图 12-8所示。VB机试模拟试卷 191答案与解析 一、基本操作题（ 30分） 1 【正确答案】 二、简单应用题（ 40分） 2 【正确答案】 1操作步骤 (1)在 Visual Basic集成环境选择 “文件 ”“ 打开工程 ”命令，在对话框中选择ylc6
6、.vbp工程文件，单击 “确定 ”按钮打开。 (2)在工具箱中选择 TextBox控件，在窗体中创建命名为 Text1。在属性窗口分别设置属性为空。 (3)从工具箱中选择选项控件，在窗体中拖动创建， 在属性窗口分别命名为Option1、 Option2、 Option3、 Option4和 Option5，标题分别为 “飞机 ”、 “火车 ”、“汽车 ”、 “自行车 ”和 “步行 ”。 (4)通过工具箱创建命令按钮，命名为 Command1，标题为 “确定 ”。 2行为编码 补充后 Command1对象的 Click事件的完整代码如下： Private Sub Command1_Click()
7、 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存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 yl
8、e6.vbp，窗体文件名为 ylc6.frm。 【试题解析】 (1)这是一道简单的应用题，主要考查 OptionButton控件的应用能力。在编程中使用判定的控制流程，显示出不同的结果信息。 (2)上面的控制流程使用 3个 If， Then End If，分别判断 3个单选按钮是否被 选中。判断后在文本框中显示相应的信息。 三、综合应用题（ 30分） 3 【正确答案】 文本框中显示的内容由 Text属性设置。单击命令按钮触发 Click事件，命令按钮的标题由 Caption属性设置。 题目要求加密原理是：在原来字符的 ASCII码加上一个整数 (题目要求为 2)转换为其他的字符，然后再将加密后
9、的字符显示在文本框中。这样就用到了 Chr函数和Asc函数。 Chr函数返回 String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode必要参数，是一个用来识别某字符的 Long。 Asc函数返回一个 Integer，代表字符串中首字母的字符代码。其语法格式为： Asc(string) string必要的参数，可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String ? “in7.txt“ For Input As 1 Inp
10、ut #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub Command2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+?(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub Command3_Click() Open “out7.txt“ For Output As 1 Pri
11、nt #1, ? Close #1 End Sub 参考代码： Private Sub C1_Click() Dim strinfo As String Open “in7.txt“ For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub C3_Click() Open “out7.txt“ For Output As 1 Print #1, Text1.Text Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘
