Reverses all numbers

by Cade Herron (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 11^th November 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Reverses all numbers



   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()

Download this snippet Add to My Saved Code

Reverses all numbers Comments

No comments have been posted about Reverses all numbers. Why not be the first to post a comment about Reverses all numbers.

Reverses all numbers

Reverses all numbers Comments

Post your comment

Difficulty