狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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