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

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

admin2009-03-26  47
问题     在考生文件夹下有工程文件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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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