在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。 在窗体上有一个名为一rextl的文本框,两个命令按钮,名称分别为Com

admin2009-03-26  32

问题     在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。
    在窗体上有一个名为一rextl的文本框,两个命令按钮,名称分别为Commandl、Command2、标题分别是“读取”和“加密保存”,要求程序运行后,单击“读取”按钮,将考生文件夹下文本文件in5.txt中的文本信息读入文本框Text1中;单击“加密保存”按钮,将Text1中的英文字母加密转换,将转换后的结果显示到Text1中并保存到考生文件夹下的out5.txt文件中。转换方式为转换成该字母对应字母表中前一个位置的字母。例如,转换前的字母是“b”,则转换后的是“a”,转换前的是“G”,转换后的是“F”。程序运行时的窗体界面如图69—5所示。

注意:文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名sj5.vbp,加密的结果存入out5.txt,否则没有成绩。

选项

答案根据题意,将两个命令按钮和一个文本框控件添加到窗体中,命令按钮的名称分别为Commandl和Command2,Caption分别为“读取”和“加密保存”,文本框的名称为Textl,MultiLine属性为True、Scrollbars属性为2。设计完成后编写如下代码: Dim str As String Private Sub Commandl_Click() str="" Dim trap As String Open"App.Path&\in5.txt"For Input As#l While EOF(1)=False Input#1,tmp’逐行读取文件 str=str+tmp’将读取到的字符放入str字符串中 Wend Close#1 Textl.Text=str ’在Textl中显示字符串 End Sub Private Sub Command2_Click() str="" Dim tmp As String For i=1 To Len(Text1.Text) tmD=Mid(Textl.Text,i,1) ’通过Mid函数一个一个读入字符 If Asc(tmp)<=Asc("z")And Ase(tmp)>=Asc("A")Then If Asc(tmp)<=Asc("z")And Asc(tmp))>=Asc("a")Then ’当输人为小写字母时 tmp=Chr((Asc(tmp)-1-Asc("a")+26)Mod 26+Asc("a")) Else’当输入为大写字母时 tmp=Chr((Asc(tmp)-1-Asc("A")+26)Mod 26+Asc("A")) End If End If str=str+tmp’将字符串连起来 Next i Open"App.Path&\out5.txt"For Output As#2 Print#2,str Close#2 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/NV1p777K
0

最新回复(0)