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

会计考友

补充代码
　　本程序是把给定的二进制整数转换为八进制整数。
以下是引用片段：
' B$ t. V9 B, ]8 c* w' I: I　　Private Sub Command1_Click()
　　Dim a As String, b As String, c As String
: u8 n: z9 ~0 C5 w! _& X7 |　　Dim L As Integer, m As Integer, n As Integer
　　a = InputBox("请输入一个二进制数", "输入框")
　　(1)
　　a = String(L, "0") & a
% D. ?) T6 C- v　　(2)
　　For m = 1 To n / 3
; F7 g, A- q+ x" V5 N+ e5 ?　　b = Mid(a, 3 * m - 2, 3)
　　(3)
7 T0 `, u- ]/ M+ \7 G  A% `. d0 S　　Next m
  L) s$ a' v" P" s. e& e　　Text1.Text = c
　　End Sub
　　Private Function zh(s As String) As String
　　Dim i As Integer, n As Integer, p As Integer
. W5 m4 |4 j8 C' j$ y+ O1 Y　　p = 1
: B  p4 t1 A! h　　For i = 2 To 0 Step -1
　　(4)
　　p = p + 1
' Z$ z# k# ]  b3 t0 k! @" M( _　　Next i
  g6 N( D! w  L- Z8 G3 Z/ a' S　　zh = Str(n)
　　End Function