Question

VB编程，输入一个八进制数，转换成为十进制数的子过程。

急求。。

Answer 1

将八进制转化为十进制

Public Function OCT_to_DEC(ByVal Oct As String) As Long

Dim i As Long

Dim B As Long   

For i = 1 To Len(Oct)

Select Case Mid(Oct, Len(Oct) - i + 1, 1)

Case "0": B = B + 8 ^ (i - 1) * 0

Case "1": B = B + 8 ^ (i - 1) * 1

Case "2": B = B + 8 ^ (i - 1) * 2

Case "3": B = B + 8 ^ (i - 1) * 3

Case "4": B = B + 8 ^ (i - 1) * 4

Case "5": B = B + 8 ^ (i - 1) * 5

Case "6": B = B + 8 ^ (i - 1) * 6

Case "7": B = B + 8 ^ (i - 1) * 7

End Select

Next i

OCT_to_DEC = B

End Function

扩展资料：

将十六进制转化为二进制

Public Function HEX_to_BIN(ByVal Hex As String) As String

Dim i As Long

Dim B As String

Hex = UCase(Hex)

For i = 1 To Len(Hex)

Select Case Mid(Hex, i, 1)

Case "0": B = B & "0000

Case "1": B = B & "0001"

Case "2": B = B & "0010"

Case "3": B = B & "0011"

Case "4": B = B & "0100"

Case "5": B = B & "0101"

Case "6": B = B & "0110"

Case "7": B = B & "0111"

Case "8": B = B & "1000"

Case "9": B = B & "1001"

Case "A": B = B & "1010"

Case "B": B = B & "1011"

Case "C": B = B & "1100"

Case "D": B = B & "1101"

Case "E": B = B & "1110"

Case "F": B = B & "1111"

End Select
Next i

While Left(B, 1) = "0"

B = Right(B, Len(B) - 1)

Wend

HEX_to_BIN = B

End Function

Answer 2

Private Sub Form_Click()
Dim N As String, S As Double
N = InputBox("请输入一个8进制数")
For i = Len(N) To 1 Step -1
S = S + 8 ^ Val(Len(N) - i) * Val(Mid(N, i, 1))
Next
Print S
End Sub

Answer 3

' 用途：将八进制转化为十进制
' 输入：Oct(八进制数)
' 输入数据类型：String
' 输出：OCT_to_DEC(十进制数)
' 输出数据类型：Long
' 输入最大数为17777777777,输出最大数为2147483647
Public Function OCT_to_DEC(ByVal Oct As String) As Long
Dim i As Long
Dim B As Long
For i = 1 To Len(Oct)
Select Case Mid(Oct, Len(Oct) - i + 1, 1)
Case "0": B = B + 8 ^ (i - 1) * 0
Case "1": B = B + 8 ^ (i - 1) * 1
Case "2": B = B + 8 ^ (i - 1) * 2
Case "3": B = B + 8 ^ (i - 1) * 3
Case "4": B = B + 8 ^ (i - 1) * 4
Case "5": B = B + 8 ^ (i - 1) * 5
Case "6": B = B + 8 ^ (i - 1) * 6
Case "7": B = B + 8 ^ (i - 1) * 7
End Select
Next i
OCT_to_DEC = B
End Function