• Home
 · 
• Math/Dates
 · 
• Reverses all numbers

Reverses all numbers

Reverses all numbers

Rate Reverses all numbers

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   Dim intCount As Integer
   Dim strNumber As String
   lblNumber.Caption = ""
   strNumber = txtNumber.Text 'User types in text
   If IsNumeric(strNumber) = True Then
    For intCount = Len(strNumber) To 1 Step -1
     lblNumber.Caption = lblNumber.Caption & Mid(strNumber,intCount,1)
    Next intCount
   Else
    lblNumber.Caption = ""
   End If
End Sub 'cmdEnter_Click()

Private Sub cmdDone_Click()
   Unload Me
End Sub 'cmdDone_Click()

Private Sub txtNumber_Change()
   lblNumber.Caption = ""
End Sub 'txtNumber_Change()