VB：怎样用循环实现倒序数（填空题）？

1.编写程序：实现输入一个任意位的整数，输出该数的位数及倒序数。如：输入1234567，则输出“该数的位数为7，其倒序数为7654321”。
2. 代码如下：

Private Sub Command1_Click()

Dim shu As Long, dshu As Long, i%, wei%, n%

dshu = 0 : n = 0

shu = InputBox("请输入一个任意位的整数：")

Do While  【1】  

    wei =  【2】             '取出数字串的最后一位

    dshu = dshu * 10  【3】               '用数学的方式计算倒数

    shu = shu \ 10

    n =  【4】                  '位数计数

Loop

Print "该数的位数为"; n; "，其倒序数为"; dshu

End Sub