搞定了，直接用mod运算就可以了，不用搞那么复杂了，呵呵
Dim val As Integer
Dim byesContents As Byte()
val = 113549
byesContents = New Byte(2) {}
Dim i As Integer = 0
Do
If val < 128 Then
byesContents(i) = val
Console.WriteLine(Hex(byesContents(i)))
Exit Do
Else
byesContents(i) = val Mod 128
val = val \ 128 '此处一定要用反斜进行取整运算，否则会出现错误
Console.WriteLine(Hex(byesContents(i)))
i += 1
End If
Loop
