补充代码
本程序是把给定的二进制整数转换为八进制整数。
以下是引用片段:
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