2014计算机等级《二级VB》上机考试预测题及答案2

　　43

　　在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm，该程序是不完整的，请在有 "?"的地方填入正确的程序代码，然后删除 ?及代码前的所有注释符号(即 '号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。

　　本题描述如下：

　　在窗体上有一个名称为Text1的文本框，3个命令按钮，名称分别是Command1、Command2和Command3，标题分别是"读入"、"加密转换"和"保存"。要求程序运行后，单击"读入"按钮，将文本文件in5.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;单击"加密转换"按钮将Text1中的小写英文字母加密转换，并将转换(变为大写)后的结果显示到Text1中。加密方式是该字母对应字母表中的后一个位置的字母，如"a"加密后是"b"，转换方式为转换成加密后的字母对应字母的大写形式。例如，转换前的字母是"a"，则转换后的是"B";单击"保存"按钮，则将转换后的文本框中的文本保存到out5.txt文件中(该文件保存到考生文件夹下)。程序运行界面如图27-7所示。

　　图27-7

　　在原来字符的ASCII码加上一个整数(题目要求为1) 转换为其他的字符，然后再将加密后的字符显示在文本框中。这要用到Chr函数和Asc函数。Chr函数返回String，其中包含与指定的字符代码相关的字符。其语法格式为：Chr(charcode) 。charcode是必要参数，是一个用来识别某字符的Long型。Asc函数返回一个Integer，代表字符串中首字母的字符代码。其语法格式为：Asc(string) 。string必要的参数，可以是任何有效的字符串表达式。

　　根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为空，命令按钮的名称分别为Command1、Command2和Command3，Caption属性分别为"读取"、"加密转换"和"保存"。双击Command1进入代码窗口，补充后的具体代码如下：

　　Dim rel As String

　　Private Sub Command1_Click()

　　Dim str As String

　　str = ""

　　Text1.Text = "" '初始化Text1的文本

　　Open App.Path&"\in.txt" For Input As #1′打开文件，进行读取

　　While EOF(1) = False '判断文件是否读取完

　　Input #1, str '读取文本

　　Text1.Text = Text1.Text + str

　　Wend

　　Close #1

　　End Sub

　　Private Sub Command2_Click()

　　Dim str As String

　　Dim tmp As String

　　Dim i As Integer

　　str = ""

　　rel = ""

　　Text1.Text = "" '初始化Text1的文本

　　Open App.Path&"\in.txt" For Input As #1′打开文件，进行读取

　　While EOF(1) = False '判断文件是否读取完

　　Input #1, str '读取文本

　　For i = 1 To Len(str)

　　tmp = Mid(str, i, 1) '将str中的字符逐个传给tmp进行判断

　　If Asc(tmp) >= Asc("a") And Asc(tmp) <= Asc("z") Then

　　tmp = Chr((Asc(tmp) + 1 - Asc("a") + 26) Mod 26 + Asc("a"))

　　'向后移一位，如果到最后为z则变为a

　　tmp = UCase(tmp) '如果是小写字母，则将其转换成大写

　　End If

　　rel = rel + tmp '将字符连接起来

　　Next i

　　Text1.Text = Text1.Text + rel '在Text1中显示转换后文本

　　Wend

　　Close #1

　　End Sub

　　Private Sub Command3_Click()

　　Open "App.Path&\out5.txt" For Output As #2

　　Print #2, rel '将转换后的文本存入文件中

　　Close #2

　　End Sub

　　单击

　　按钮运行程序，并按要求保存。

　　相关推荐：

　　2014年全国计算机二级VB上机考试试题汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题