1、VB机试模拟试卷 186及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上建立一个垂直滚动条，请在属性窗口中把它的名称设置为 VSl， Max属性设置为 50 Mill属性设置为 0 Value属性设置为 50。程序运行后，滚动块位于滚动条最下端，如图 181所示，如果单击滚动条之外的窗体部分，则滚动块跳到最上端。 注意：只能直接为相应的属性赋值，不得使用变量。保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为sjl vbp。 (2)在名称为 Forml的窗体中建立一个标 签，名称为 Lablel，在标签上显示 “编程语言 ”并设置为四号宋体
2、；再建立 3个复选框，名称分别为 Checkl、 Check2和 Check3，标题分别为 “C+”、 “Basic”和 “JAVA”，字体大小均为四号宋体，加粗，其中 “JAVA”被禁用，如图 182所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 在考生文件夹中有工程文件 execise21.vbp及窗体文件 execise21.frm。在名为Form1的窗体中有一个名为 Image1的图像框，还有两个命令按钮 (名称分别是Cmd1和 Cmd2，标题分别是 “放大 ”和 “缩小 ”)。 要求程序运行后，单
3、击 “放大 ”按钮，则图像框变大：单击 “缩小 ”按钮，则图像框变小。本程序不完整，请补充完整，并能正确运行。 要求： 去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题（ 30分） 3 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 在考生文件夹 下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确的程序代码，然后删除 ?及所有注释符号 (即 号 )，但不能修改其他部分。修改后的程序文件都保存
4、，存盘时不得修改文件夹和文件名。 本题描述如下： 在窗体上有一个名称为 Text1的文本框，三个命令按钮，名称分别是 C1、 C2和 C3，标题分别是 “读入 ”、 “加密 ”和 “存盘 ”。要求程序运行后，点击 “读入 ”按钮，将文本文件in7.txt(该文件在考生文件夹下 )中的文本信息读入文本框 Text1中；点击 “加密 ”按钮将 Text1中的英 文字母加密转换，并将转换后的结果显示到 Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是 “a”，则转换后的是 “c”；点击 “存盘 ”按钮，则将转换后的文本框中的文本保存到 out7.txt文件中 (
5、该文件保存到考生文件夹下 )。程序设计界面如图 12-8所示。VB机试模拟试卷 186答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个垂直滚动条添加到窗体中，将其名称设为 VSl， Max属性为 50， Min属性为 0， Value属性为 50，然后双击 Forml窗体在 Form_Click事件中编写如下代码： Private Sub Form_Click() VSl Value=0 End Sub 单击 按钮运行程序。并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个标签和 3个复选按钮添加到窗体中，标签的名称为I
6、 abetl， Caption属性为 “编程语言 ”，字体大小为四号， 3个复选按钮的名称分别为 Checkl、 Check2和 Check3 Caption属性分别为 “C+”、 “Basic”和 “JAVA”，字体均为四号宋体，且加粗 ， Check3的 Value值为 2。设置后单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 三、综合应用题（ 30分） 3 【正确答案】 文本框中显示的内容由 Text属性设置。单击命令按钮触发 Click事件，命令按钮的标题由 Caption属性设置。 题目要求加密原理是：在原来字符的 ASCII码加上一个整数 (题目要
7、求为 2)转换为其他的字符，然后再将加密后的字符显示在文本框中。这样就用到了 Chr函数和Asc函数。 Chr函数返回 String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode必要参数，是一个用来识别某字符的 Long。 Asc函数返回一个 Integer，代表字符串中首字母的字符代码。其语法格式为： Asc(string) string必要的参数，可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String ? “in7.tx
8、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
9、“ 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 第二步：调试并运行程序 第三步：按题目要求存盘
