Private Sub Command1_Click()
Text2.Text = ""
A = (Len(Text1.Text))
For B = 1 To A Step 1
C = UCase(Mid(Text1.Text, B, 1))
D = Asc(C) + 3
E = Chr(D)
Text2.Text = Text2.Text & E
Next B
End Sub
如果想改成其它字母的话也可以。将（D = Asc(C) + 3）中的“+3”改成“+6”或者“-10”都可以。这样原来的字母就变成其它的了。包括标点在内。如果不想包括标点在内的话可以用个IF语句来过滤一下就可以了。具体要怎么过滤这就要你自己想了。如果都问人的话你的VB提高不了。
对了，我的QQ是5408627。
