将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D译密码.为使电文保密,往往按一定规律将其转换成密码,收报人再按约定的规律将其译回原文.按以下规律将电文变
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 22:13:11
![将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D译密码.为使电文保密,往往按一定规律将其转换成密码,收报人再按约定的规律将其译回原文.按以下规律将电文变](/uploads/image/z/7465253-5-3.jpg?t=%E5%B0%86%E5%AD%97%E6%AF%8DA%E5%8F%98%E6%88%90%E5%AD%97%E6%AF%8DE%2Ca%E5%8F%98%E6%88%90e%2C%E5%8D%B3%E5%8F%98%E6%88%90%E5%85%B6%E5%90%8E%E7%9A%84%E7%AC%AC4%E4%B8%AA%E5%AD%97%E6%AF%8D%2CW%E5%8F%98%E6%88%90A%2CX%E5%8F%98%E6%88%90B%2CY%E5%8F%98%E6%88%90C%2CZ%E5%8F%98%E6%88%90D%E8%AF%91%E5%AF%86%E7%A0%81.%E4%B8%BA%E4%BD%BF%E7%94%B5%E6%96%87%E4%BF%9D%E5%AF%86%2C%E5%BE%80%E5%BE%80%E6%8C%89%E4%B8%80%E5%AE%9A%E8%A7%84%E5%BE%8B%E5%B0%86%E5%85%B6%E8%BD%AC%E6%8D%A2%E6%88%90%E5%AF%86%E7%A0%81%2C%E6%94%B6%E6%8A%A5%E4%BA%BA%E5%86%8D%E6%8C%89%E7%BA%A6%E5%AE%9A%E7%9A%84%E8%A7%84%E5%BE%8B%E5%B0%86%E5%85%B6%E8%AF%91%E5%9B%9E%E5%8E%9F%E6%96%87.%E6%8C%89%E4%BB%A5%E4%B8%8B%E8%A7%84%E5%BE%8B%E5%B0%86%E7%94%B5%E6%96%87%E5%8F%98)
将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D译密码.为使电文保密,往往按一定规律将其转换成密码,收报人再按约定的规律将其译回原文.按以下规律将电文变
将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D
译密码.为使电文保密,往往按一定规律将其转换成密码,收报人再按约定的规律将其译回原文.按以下规律将电文变成密码:将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D.
提示:用到字符串函数Len、Mid、Chr和Asc.大写字母的ASCII码为[65,90],小写字母的ASICC码为[97,122].
将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D译密码.为使电文保密,往往按一定规律将其转换成密码,收报人再按约定的规律将其译回原文.按以下规律将电文变
Private Sub Form_Click()
Dim i As Integer,c As Integer,k As Integer
k = 4
Label1.Caption = ""
For i = 1 To Len(Text1.Text)
c = Asc(Mid(Text1.Text,i,1)) + k
If c > Asc("z") Or c > Asc("Z") And c < Asc("a") + k Then c = c - 26
Label1.Caption = Label1.Caption & Chr(c)
Next
End Sub
以上代码用Text1放需要加密的字符串,Label1放加密后的字符串.点击窗体执行.