将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/30 02:11:13
将字母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.
提示:用到字符串函数Len、Mid、Chr和Asc.大写字母的ASCII码为[65,90],小写字母的ASICC码为[97,122].
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放加密后的字符串.点击窗体执行.
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放加密后的字符串.点击窗体执行.
将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D
将字母A变成E a变成e 也就是将字母变成其后4位 W变成A X变成B Y变成C 以此类推 求
有一行电文,已按规律译成密码.即将字母变成其后第二个字母(a变成c,b变成d,c变成e,…,x变成z,y变成a,z变
译密码.A变成字母E,a变成e即变成其后的第四个字母,W变A,X变B,Y变C,Z变D.请修改下面程序,并指出错误
英语翻译将A变成E,a变成e,W变成A.即将原字母变成之后的第四个字母,非字母字符不变.如“Wonderful!”转换为
编写一个java application程序,运用加密操作将字母变成倒序字母,如A变成Z,B变成Y?
有一行电文译文下面规律译成密码: A->Z a->z B->Y b->y C->X c->x … 即第一个字母变成第26
请用c++编写下列4个程序 1,将“fiy”译成密码“jpc”.编码规律:将字母a变成字母f,即变成其后的第4个字
C语言编程 将大写字母A、B变成小写字母
有一行电文,已按下面规律译成密码:A->Z a->z B->Y b->y C->X c->x … 即第一个字母变成第26
A反应成B.C.B.C反应变成D.E D.E反应变成B.C B.C再反应变成A
我想将字母变成字