2. 计算机
  3. 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个名称为Textl的文本框，3个命令按钮，名称分别是Commandl、Command2和Command3，标题分别是“读入”、“加密转换”和“保存”。要求程序运行

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个名称为Textl的文本框，3个命令按钮，名称分别是Commandl、Command2和Command3，标题分别是“读入”、“加密转换”和“保存”。要求程序运行

admin2010-07-13  18
问题 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个名称为Textl的文本框，3个命令按钮，名称分别是Commandl、Command2和Command3，标题分别是“读入”、“加密转换”和“保存”。要求程序运行后，单击“读入”按钮，将文本文件in5．txt(该文件在考生文件夹下)中的文本信息读入文本框Textl中；单击“加密转换”按钮将Textl中的小写英文字母加密转换，并将转换(变为大写)后的结果显示到Textl中。加密方式是该字母对应字母表中的后一个位置的字母，如“a”加密后是“b”，转换方式为转换成加密后的字母对应字母的大写形式。例如，转换前的字母是“a”，则转换后的是“B”；单击“保存”按钮，则将转换后的文本框中的文本保存到out5．txt文件中(该文件保存到考生文件夹下)。程序运行的窗体界面如图11—7所示。

    注意：请在有“?”的地方填入正确的程序代码，然后删除“?”及代码前的所有注释符号(即“’”号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。
选项
答案 在原来字符的ASCII码加上一个整数(题目要求为1)转换为其他的字符，然后再将加密后的字符显示在文本框中。这要用到Chr函数和Asc函数。Chr函数返回String，其中包含与指定的字符代码相关的字符。其语法格式为：Chr(charcode)。charcode是必要参数，是一个用来识别某字符的Long型。Asc函数返回一个Integer，代表字符串中首字母的字符代码。其语法格式为：Asc(string)。string必要的参数，可以是任何有效的字符串表达式。 根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Textl、Text属性为空，命令按钮的名称分别为Commandl、Command2和Command3，Caption属性分别为“读人”、“加密转换”和“保存”。双击Commandl进入代码窗口，补充后的具体代码如下： Dim Tel As String Private Sub Commandl_Click() Dim str As String ’ str="" Textl．Text=""’初始化Textl的文本 Open App．Path&"＼in．txt"For Input As#l’打开文件，进行读取 While EOF(1)=False ’判断文件是否读取完 Input#1，str’读取文本 Textl．Text=Textl．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="" Textl．Text="" ’初始化Textl的文本 Open App．Path&"＼in．txt"For Input As#1’打开文件，进行读取 While EOF(1)=False ’判断文件是否读取完 Input#l，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(trap)+1-Asc("a")+26)Mod 26+Asc("a")) ’向后移一位，如果到最后为Z则变为a tmp=UCase(tmp) ’如果是小写字母，则将其转换成大写 End If rel=rel+tmp’将字符连接起来 Next i Textl．Text=Textl．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 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/Hyg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)