【计算机类职业资格】VB机试-试卷69及答案解析.doc

1、VB 机试-试卷 69 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.在名为 Form1 的窗体上建立一个名为 Lab1 的标签：两个名称分别为 Cmd1 和 Cmd2，标题分别为“显示广和“显示 2”的命令按钮。编写适当的事件过程，使程序运行后、若单击“显示广命令按钮，则在标签卜显示字符串 Cmd；如果单击“显示 2”命令按钮，则在标签上显示字符串 Cmd2。如下图所示。（分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.有一个工程文件 ylc6.

2、vbp。请在窗体上画一个文本框，其名称为 Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画 5 个单选按钮，名称分别为 option1、Option2、 Option3、Option4和 Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”，如图 26 所示。编写适当事件过程。选中一个单选按钮，并单击“确定”按钮，按照表 3-1 在文本框中显示相应的内容。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹

3、下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。 本题描述如下： 在窗体上有一个名称为 Text1 的文本框，三个命令按钮，名称分别是 C1、C2 和 C3，标题分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件 in7.txt(该文件在考生文件夹下)中的文本信息读入文本框 Text1 中；点击“加密”按钮将 Text1 中的英文字母加密转换，并将转换后的结果显示到 Text1 中。转换方式为

4、转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a”，则转换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到 out7.txt 文件中(该文件保存到考生文件夹下)。程序设计界面如图 12-8 所示。 （分数：2.00）_VB 机试-试卷 69 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.在名为 Form1 的窗体上建立一个名为 Lab1 的标签：两个名称分别为 Cmd1 和 Cmd2，标题分别为“显示广和“显示 2”的命令按钮。编写适当的事件过程，使程序运行后、若单

5、击“显示广命令按钮，则在标签卜显示字符串 Cmd；如果单击“显示 2”命令按钮，则在标签上显示字符串 Cmd2。如下图所示。（分数：2.00）_正确答案：(正确答案： )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.有一个工程文件 ylc6.vbp。请在窗体上画一个文本框，其名称为 Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画 5 个单选按钮，名称分别为 option1、Option2、 Option3、Option4和 Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”，如图 26 所示

6、编写适当事件过程。选中一个单选按钮，并单击“确定”按钮，按照表 3-1 在文本框中显示相应的内容。 （分数：2.00）_正确答案：(正确答案：1操作步骤 (1)在 Visual Basic 集成环境选择“文件”“打开工程”命令，在对话框中选择 ylc6.vbp 工程文件，单击“确定”按钮打开。 (2)在工具箱中选择 TextBox 控件，在窗体中创建命名为 Text1。在属性窗口分别设置属性为空。 (3)从工具箱中选择选项控件，在窗体中拖动创建，在属性窗口分别命名为 Option1、 Option2、Option3、Option4 和 Option5，标题分别为“飞机”、“火车”、“汽车”、

7、自行车”和“步行”。 (4)通过工具箱创建命令按钮，命名为 Command1，标题为“确定”。 2行为编码 补充后 Command1 对象的 Click 事件的完整代码如下： 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.T

8、ext=“需要 100 小时“ End If If Option5.Value Then Text1.Text=“需要500 小时“ End If End Sub 3存盘保存 执行“文件”“保存工程”命令，工程文件名为 yle6.vbp，窗体文件名为 ylc6.frm。)解析：解析：(1)这是一道简单的应用题，主要考查 OptionButton 控件的应用能力。在编程中使用判定的控制流程，显示出不同的结果信息。(2)上面的控制流程使用 3 个 If，ThenEnd If，分别判断3 个单选按钮是否被选中。判断后在文本框中显示相应的信息。三、综合应用题(总题数：2，分数：4.00)5.综合应用题

9、分数：2.00）_解析：6.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。 本题描述如下： 在窗体上有一个名称为 Text1 的文本框，三个命令按钮，名称分别是 C1、C2 和 C3，标题分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件 in7.txt(该文件在考生文件夹下)中的文本信息读入文本框

10、Text1 中；点击“加密”按钮将 Text1 中的英文字母加密转换，并将转换后的结果显示到 Text1 中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a”，则转换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到 out7.txt 文件中(该文件保存到考生文件夹下)。程序设计界面如图 12-8 所示。 （分数：2.00）_正确答案：(正确答案：文本框中显示的内容由 Text 属性设置。单击命令按钮触发 Click 事件，命令按钮的标题由 Caption 属性设置。 题目要求加密原理是：在原来字符的 ASCII 码加上一个整数(题目要求为 2)转换

11、为其他的字符，然后再将加密后的字符显示在文本框中。这样就用到了 Chr 函数和 Asc 函数。 Chr 函数返回 String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode 必要参数，是一个用来识别某字符的 Long。 Asc 函数返回一个 Integer，代表字符串中首字母的字符代码。其语法格式为： Asc(string) string 必要的参数，可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String ? “in7.tx

12、t“ For Input As 1 Input #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

13、 For Output As 1 Print #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 第二步：调试并运行程序 第三步：按题目要求存盘)解析：