注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有号的地方填入正确的程序代码，然后删除及所有注释符号(即’号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。
本题描述如下：
在窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别是C1、C2和C3，标题分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件in7.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中；点击“加密”按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a”，则转换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到out7.txt文件中(该文件保存到考生文件夹下)。程序设计界面如图12-8所示。
参考答案： 文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件，命令按钮的标题由Caption属性设置。
题目要求加密原理是：在原来字符的ASCII码加上一个整数(题目要求为B)转换为其他的字符，然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。
Chr函数返回String，其中包含有与指定的字符代码相关的字符。其语法格式为：
Chr(charcode)
charcode必要参数，是一个用来识别某字符的Long。
Asc函数返回一个Integer，代表字符串中首字母的字符代码。其语法格式为：
Asc(string)
string必要的参数，可以是任何有效的字符串表达式。解题步骤：
第一步：编写程序代码。
程序提供的代码：
Private Sub CA_Click()
Dim strinfo As String
’ "inG.txt" For Input As A
Input #A, strinfo
Close #A
TextA.Text=strinfo
End Sub
Private Sub CommandB_Click()
Dim strchange As String
Dim i As Integer
For i=A To Len(TextA.Text)
’ strchange=strchange+(Asc(Mid(TextA.Text, i, A) ) +B)
Next
TextA.Text=strchange
End Sub
Private Sub CommandC_Click()
Open "outG.txt" For Output As A
’Print #A,
Close #A
End Sub
参考代码：
Private Sub CA_Click()
Dim strinfo As String
Open "inG.txt" For Input As A
Input #A, strinfo
Close #A
TextA.Text=strinfo
End Sub
Private Sub CB_Click()
Dim strchange As String
Dim i As Integer
For i=A To Len(TextA.Text)
strchange=strchange+Chr(Asc(Mid(TextA.Text, i, A) ) +B)
Next
TextA.Text=strchange
End Sub
Private Sub CC_Click()
Open "outG.txt" For Output As A
Print #A, TextA.Text
Close #A
End Sub
第二步：调试并运行程序
第三步：按题目要求存盘