用vb编写程序将十进制数转换成八进制数（vb十进制怎么补零）

Private Sub Command1_Click() Dim a As Long a = InputBox("输入一个正整数"): n = a Do s = s & a Mod 8 a = a 8 Loop Until a = 0 Print "十进制数" & n & "转换成八进制数后为:"; StrReverse(s)End Sub