vb_2014_slip 6

SLIP 6_1

Option Explicit

Private Sub cmdReverse_Click()

Call Reverse

End Sub

Function Reverse()

Dim number As Integer

Dim reminder As Integer

Dim sum As Integer

number = Val(Text1.Text)

While number > 0

reminder = number Mod 10

sum = sum * 10 + reminder

number = number \ 10

Wend

Text2.Text = sum

End Function

Private Sub Text1_Click()

Text1.Text = ""

End Sub