2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即’号)，但不能修改其他部分。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即’号)，但不能修改其他部分。

admin2012-10-09  48
问题 注意：下面出现的“考生文件夹”均为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码加上一个整数(题目要求为2)转换为其他的字符，然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。 Chr函数返回String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode必要参数，是一个用来识别某字符的Long。 Asc函数返回一个Integer，代表字符串中首字母的字符代码。其语法格式为： Asc(string) string必要的参数，可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String ’? "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub Command2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) ’ strchange=strchange+?(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub Command3_Click() Open "out7.txt" For Output As 1 ’Print #1, ? Close #1 End Sub 参考代码： Private Sub C1_Click() Dim strinfo As String Open "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub C3_Click() Open "out7.txt" For Output As 1 Print #1, Text1.Text Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘
解析
转载请注明原文地址:https://www.kaotiyun.com/show/83hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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