Private Sub Command1_Click()
Dim a
a = InputBox("请输入一个数")
Print StrReverse(a)
End Sub