求救VB

Private Sub 分离()
Dim s As Integer, a As Integer
Dim b As Integer, c As Integer
s = Val(Text1.Text)
a = s \ 100
b = (s - a * 100) \ 10
c = s Mod 10
Text2.Text = CStr(a)
Text3.Text = CStr(b)
Text4.Text = CStr(c)
End Sub
Private Sub 交换()
Dim cc As String
cc = Text2.Text
Text2.Text = Text4.Text
Text4.Text = cc
End Sub
Private Sub 逆序数()
Dim s As Integer, a As Integer
Dim b As Integer, c As Integer
s = Val(Text1.Text)
a = s \ 100
b = (s - a * 100) \ 10
c = s Mod 10
s = c * 100 + b * 10 + a
Text5.Text = CStr(s)
End Sub

楼上正解，楼主参考一下

好快有了答案