1、VB机试模拟试卷 184及答案与解析 一、基本操作题（ 30分） 1 在名为 Form1的窗体上绘制两个标签 (名称分别为 Lab1和 Lab2，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Text1和 Text2， Text属性均为空白 )和一个命令按钮 (名称为 Cmd1，标题为 Display)。然后编写命令按钮的 Click事件过程，使程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如下图所示。 注意： 程序中不得使用任何变量；文件必须存放在考生文件夹中，工程 文件名为 execise57.vbp，窗体文件名为 e
2、xecise57.frm。 二、简单应用题（ 40分） 2 在考生文件夹中有一个工程文件 execise76.vbp(相应的窗体文件名为execise76.frm)，在名为 Form1的窗体上有 4个文本框，初始内容为空 :1个命令按钮，标题为 Average。其功能是通过调用过程 Average求数组的平均值。请装入该文件。程序运行后，在 4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整 ，并能正确运行。 要求： 去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部
3、分。最后，按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为 Text1。内空；两个命令按钮的名称分别为 Command1与 Command2、标题分别为 “读取 ”与“加密 ”；单选按钮的名称分别为 Optionl和 Option2，标题分别为 “3”和 “5”。单击“读取 ”，程序将读入考生文件夹下的文本文件 in5 txt，单击 “加密 ”，加密过的文本显示在 Text1中。根据单选按钮中的不同的数字，加密的方法不
4、同。例如选择Optionl则逐一把读入的字符串改为它前面的第 3个字母。程序运行时效果如图55所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名：和文件夹。 VB机试模拟试卷 184答案与解析 一、基本操作题（ 30分） 1 【正确答 案】 二、简单应用题（ 40分） 2 【正确答案】 三、综合应用题（ 30分） 3 【正确答案】 单选按钮组常用于提供唯一选择， Value属性值决定每个单选按钮的选中状态： False表示未选、 True表示选中， Caption属性用于设置或返回单选按钮的标题。
5、Chr函数返回 String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode)。 charcode为必要参数，是一个用来识别某字符的 Long函数。 Mid$(字符串，起始位置 ，个数 )函数用于从字符串指定位置开始的含指定个数字符的字符串； String(个数，字符 )函数用于返回含指定个数字符的字符串；Asc(字符串 )函数用于返回字符串首字符的 ASCII码值。根据题意，将一个文本框控件、两个单选按钮控件和两个命令按钮添加到窗体中，文本框的名称为 Textl、Text属性为空，单选按钮的名称分别为 Optionl和 Option2， Caption属性分别
6、为 “3”和 “5”，命令按钮的名称为 Commandl和 Command2， Caption属性分别为 “读取 ”和“加密 ”。双击 Commandl进入 代码窗口，编写如下代码： Private Sub Command1_Click() Dim str As String Dim tmp As String Dim hum As Integer str=“ Open“App Path& in5 txt“For Input As#1 打开文件准备读取 While EOF(1)=False 判断是否读到文件尾 Input#1， tmp读取文件 str=str+trap 将渎取的文本连接起来放入
7、 str中 Wend Close#l关闭文件 Textl Text str在 Textl中显示 str End Sub Private Sub Command2_Click() Dim str As String Dim trap As String Dim i As Integer Dim ind As Integer If Optionl Value=True Then ind=3当选中 Optionl时，则移 3位 ElseIf Option2 Value=True Then ind=5当选中 Option2时，则移 5位 End If str=“ For i=1 To Len(Text
8、l Text) tmp=Mid(Text1 Text， i， 1) 一个一个读入字符 (Mid函数 ) If Asc(tmp)=Asc(“A“)Then If Asc(trap)=Asc(“a“)Then tmp=Chr(Asc(tmp)-ind-Asc(“a“)+26)Mod 26+Asc(“a“) Else当输入为大写字母时 tmp=Chr(Asc(tmp)-ind-Asc(“A“)+26)Mod 26+Asc(“A“) End If End If str=str +tmp 将字符串连起来 Next i Textl Text=str 在 Textl中将加密后的字符串显示出来 End Sub单击 按钮运行程序，并按要求保存。
