VB编程序，求完整代码和方法，多谢！译密码。为使电文保密，往往按一定规律将其转换成密码，收报人再按约定的规律将其译回原文。按以下规律将电文变成密码:将字母A变成字母E，a变成

Question

VB编程序，求完整代码和方法，多谢！

1. 译密码。为使电文保密，往往按一定规律将其转换成密码，收报人再按约定的规律将其译回原文。按以下规律将电文变成密码: 将字母A变成字母E，a变成e，即变成其后的第4个字母，W变成A，X变成B，Y变成C，Z变成D。

2. 求1000以内的“同构数”。“同构数”：一个数它出现在它的平方数的右边。例如: 5*5=25,5是25中右侧的数;25*25=625,25是625中右侧的数，所以25和625都是“同构数”。

Answer 1

Private Sub Command1_Click()  s = Text1.Text  For i = 1 To Len(s)   If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then     If Mid(s, i, 1) {...