文字到叙输出的实现步骤

Dim a() '声明一动态数组

Private SubCommand1_Click()

Dim n As Integer

Dim wz As String

wz = Text1.Text

n = Len(wz)

ReDim a(1 To n)

For i = 1 To n

a(i) = Mid(wz, i,1)

Next

For i = n To 1Step -1

Text2.Text =Text2.Text & a(i)

Next

End Sub

 

Private SubCommand2_Click()

Text1.Text =""

Text2.Text =""

End Sub