REVERCE THE POSITION OF THREE DIGIT INTEGER
REVERCE THE POSITION OF THREE DIGIT INTEGER
API Declarations
a COMMAND BUTTON named command1
EVENT : - CLICK
Rate REVERCE THE POSITION OF THREE DIGIT INTEGER
(1(1 Vote))
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
a = Val(Text1.Text)
b = a \ 100
c = a - (100 * b)
d = c \ 10
e = c - (10 * d)
f = (e * 100) + (d * 10) + b
MsgBox f
REVERCE THE POSITION OF THREE DIGIT INTEGER Comments
No comments yet — be the first to post one!
Post a Comment