在VB编程中，实现数字倒序的方法有多种。以下是几种常见的方法：
方法一：使用StrReverse函数
StrReverse函数可以直接将字符串倒序输出。你可以将输入的数字转换为字符串，然后使用StrReverse函数进行倒序，最后再将倒序后的字符串转换回数字。
```vb
Dim inputNumber As String
Dim reversedNumber As String
inputNumber = InputBox（"请输入一个正整数"）
reversedNumber = StrReverse（inputNumber）
MsgBox "倒序后的数字是： " & reversedNumber
```
方法二：循环拆分数字并倒序输出
你可以将输入的数字拆分成数组，然后倒序输出这个数组。
```vb
Dim inputNumber As String
Dim numberArray（） As String
Dim reversedArray（） As String
inputNumber = InputBox（"请输入一个正整数"）
numberArray = Split（inputNumber, ""）
ReDim reversedArray（UBound（numberArray））
For i As Integer = 0 To UBound（numberArray）
reversedArray（i） = numberArray（UBound（numberArray） - i）
Next
MsgBox "倒序后的数字是： " & Join（reversedArray, ""）
```
方法三：使用循环和取余操作
通过循环和取余操作，可以将数字逐位取出并倒序输出。
```vb
Dim inputNumber As String
Dim reversedNumber As String
Dim remainder As Integer
inputNumber = InputBox（"请输入一个正整数"）
For i As Integer = Len（inputNumber） - 1 To 0 Step -1
remainder = Int（inputNumber \ 10）
reversedNumber = reversedNumber & remainder
inputNumber = inputNumber Mod 10
Next
MsgBox "倒序后的数字是： " & reversedNumber
```
方法四：使用逆序计算公式
将待计算的数字转换为字符串，然后使用字符串的逆序循环计算，最后将逆序字符串转换为数字。
```vb
Dim inputNumber As String
Dim reversedNumber As Integer
inputNumber = InputBox（"请输入一个正整数"）
reversedNumber = Integer.Parse（New String（inputNumber.Reverse（）.ToArray（）））
MsgBox "倒序后的数字是： " & reversedNumber
```
建议
以上方法都可以实现数字倒序，选择哪种方法取决于你的具体需求和编程习惯。StrReverse函数和循环拆分数字的方法比较简单直观，而逆序计算公式则更加灵活，适用于更复杂的场景。