日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

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