计算机二级VB常用算法：进制转化进八进制整数

补充代码
　　本程序是把给定的二进制整数转换为八进制整数。
以下是片段：
　　Private Sub Command1_Click()
　　Dim a As String, b As String, c As String
　　Dim L As Integer, m As Integer, n As Integer
　　a = InputBox("请输入一个二进制数", "输入框")
　　(1)
　　a = String(L, "0") ; a
　　(2)
　　For m = 1 To n / 3
　　b = Mid(a, 3 * m - 2, 3)
　　(3)
　　Next m
　　Text1.Text = c
　　End Sub
　　Private Function zh(s As String) As String
　　Dim i As Integer, n As Integer, p As Integer
　　p = 1
　　For i = 2 To 0 Step -1
　　(4)
　　p = p + 1
　　Next i
　　zh = Str(n)
　　End Function