在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单

admin2012-10-09  19

问题 在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单选按钮的名称分别为Optionl和Option2,标题分别为“3”和“5”。单击“读取”,程序将读入考生文件夹下的文本文件in5.txt,单击“加密”,加密过的文本显示在Text1中。根据单选按钮中的不同的数字,加密的方法不同。例如选择Optionl.则逐一把读入的字符串改为它前面的第3个字母。程序运行时效果如图5—5所示。

    注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名:和文件夹。

选项

答案单选按钮组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:False表示未选、True表示选中,Caption属性用于设置或返回单选按钮的标题。Chr函数返回String,其中包含有与指定的字符代码相关的字符。其语法格式为:Chr(charcode)。charcode为必要参数,是一个用来识别某字符的Long函数。Mid$(字符串,起始位置[,个数])函数用于从字符串指定位置开始的含指定个数字符的字符串;String(个数,字符)函数用于返回含指定个数字符的字符串;Asc(字符串)函数用于返回字符串首字符的ASCII码值。 根据题意,将一个文本框控件、两个单选按钮控件和两个命令按钮添加到窗体中,文本框的名称为Textl、Text属性为空,单选按钮的名称分别为Optionl和Option2,Caption属性分别为“3”和“5”,命令按钮的名称为Commandl和Command2,Caption属性分别为“读取”和“加密”。双击Commandl进入代码窗口,编写如下代码: Private Sub Command1_Click() Dim str As String Dim tmp As String Dim hum As Integer str="" Open"App.Path&\in5.txt"For Input As#1 ’打开文件准备读取 While EOF(1)=False ’判断是否读到文件尾 Input#1,tmp’读取文件 str=str+trap ’将渎取的文本连接起来放入str中 Wend Close#l’关闭文件 Textl.Text str’在Textl中显示str End Sub Private Sub Command2_Click() Dim str As String Dim trap As String Dim i As Integer Dim ind As Integer If Optionl.Value=True Then ind=3’当选中Optionl时,则移3位 ElseIf Option2.Value=True Then ind=5’当选中Option2时,则移5位 End If str="" For i=1 To Len(Textl.Text) tmp=Mid(Text1.Text,i,1) ’一个一个读入字符(Mid函数) If Asc(tmp)<=Asc("Z")And Asc(trap)>=Asc("A")Then If Asc(trap)<=Asc("z")And Asc(tmp)>=Asc("a")Then tmp=Chr((Asc(tmp)-ind-Asc("a")+26)Mod 26+Asc("a")) Else’当输入为大写字母时 tmp=Chr((Asc(tmp)-ind-Asc("A")+26)Mod 26+Asc("A")) End If End If str=str +tmp ’将字符串连起来 Next i Textl.Text=str ’在Textl中将加密后的字符串显示出来 End Sub 单击[*]按钮运行程序,并按要求保存。

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

随机试题
最新回复(0)