Win a copy of Rust Web Development this week in the Other Languages forum!

Edward Collins

Greenhorn
+ Follow
since Apr 26, 2021
Cows and Likes
Cows
Total received
0
In last 30 days
0
Total given
0
Likes
Total received
0
Received in last 30 days
0
Total given
0
Given in last 30 days
0
Forums and Threads
Scavenger Hunt
expand Ranch Hand Scavenger Hunt
expand Greenhorn Scavenger Hunt

Recent posts by Edward Collins

Microsoft's VBA:

For x = 10000 To 25000
   a$ = Trim(Str(x))
   Reverse_a$ = ""
   For y = Len(x) To 1 Step -1
       Reverse_a$ = Trim(Reverse_a$ + Mid(a$, y, 1))
   Next
   If Reverse_a$ = Trim(Str(x * 4)) Then MsgBox (a$)
Next x
8 months ago