Function Exchange(ByVal num As Integer) If num > 99 Or num < 10 Then Return "ERROR" Exchange = Mid(num,1,1) & Mid(num,0,1)End FunctionREM 调用时只需要 Exchange(52) 这种就可以了
StrReverse