Private Sub Command1_Click()
Dim s As String, i As Integer, j As String, t As String
s = Text1.Value
i = 1: j = Len(s)
While i < j
t = Mid(s, i, 1)
Mid(s, i, 1) = Mid(s, j, 1)
Mid(s, j, 1) = t
i = i + 1
j = j - 1
Wend
Text2.Value = s
End Sub
对外观的改变基本都是在格式里面，比如大小，下划线，字体等，对内容的改变在编辑，对其具体有什么用在属性里，知道这些你很快就能想到在哪里找了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024