好啊.练习题: 123456,转换为654321. 转换过程中不得将之转化为字符串.开始!
答案嘛...问老大....徒伤悲.

Option Explicit

Private Sub Form_Click()
    Dim S, N As Long
    S = Val(InputBox("Number", "Number", 123456))
    Do
        N = 10 * N + S - 10 * Fix(0.1 * S)
        S = Fix(0.1 * S)
    Loop Until 0 = S
    MsgBox N, , "Number"
End Sub

Dim i As Long, j As Double
 i = 123456
 j = StrReverse(i)
 Print j