VB 将八进制转化为二进制

Function baTo2(ByVal su As String) As String
'8进制转换为2进制

For i = 1 To Len(su)
n = Mid(su, i, 1)
Select Case n
Case 0
baTo2 = baTo2 & "000"
Case 1
baTo2 = baTo2 & "001"
Case 2
baTo2 = baTo2 & "010"
Case 3
baTo2 = baTo2 & "011"
Case 4
baTo2 = baTo2 & "100"
Case 5
baTo2 = baTo2 & "101"
Case 6
baTo2 = baTo2 & "110"
Case 7
baTo2 = baTo2 & "111"
Case Else
baTo2 = "数据错误!"
Exit Function
End Select
Next
baTo2 = Format(baTo2, "0") '去除前面的0
End Fu