国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

private sub Command1_Click()
s=text1.text
n=len(s)
for i = 1 to n
s1 = s1 & chr((asc(mid(s,i,1))-62) mod 26 + 65)
next i
text2.text = s1
end sub

private sub Command2_Click()
s=text3.text
n=len(s)
for i = 1 to n
s1 = s1 & chr((asc(mid(s,i,1))-42) mod 26 + 65)
next i
text4.text = s1
end sub