UC知道我想知道这段代码的详细意思，最好每行都能说明
来源：百度知道 编辑：UC知道 时间：2024/05/02 20:30:09
重点是4、5、6、7、17、18、19、20行代码中函数的作用。谢谢！
Public Function Eight2Two(ByVal Oct As String) As String '八进制转二进制 函数
Dim i As Long
Dim sObject As String
Oct = UCase(Oct)
For i = 1 To Len(Oct)
Select Case Mid(Oct, i, 1)
Case "0": sObject = sObject & "000"
Case "1": sObject = sObject & "001"
Case "2": sObject = sObject & "010"
Case "3": sObject = sObject & "011"
Case "4": sObject = sObject & "100"
Case "5": sObject = sObject & "101"
Case "6": sObject = sObject & "110"
Case "7": sObject = sObject & "111"
End Select
Next i
While Left(sObject, 1) = "0"
sObject = Right(sObject, Len(sObject) - 1)
Wend
Eight2Two = sObject
End Function
Public Function Eight2Two(ByVal Oct As String) As String '八进制转二进制 函数
Dim i As Long
Dim sObject As String
Oct = UCase(Oct)
For i = 1 To Len(Oct)
Select Case Mid(Oct, i, 1)
Case "0": sObject = sObject & "000"
Case "1": sObject = sObject & "001"
Case "2": sObject = sObject & "010"
Case "3": sObject = sObject & "011"
Case "4": sObject = sObject & "100"
Case "5": sObject = sObject & "101"
Case "6": sObject = sObject & "110"
Case "7": sObject = sObject & "111"
End Select
Next i
While Left(sObject, 1) = "0"
sObject = Right(sObject, Len(sObject) - 1)
Wend
Eight2Two = sObject
End Function
Public Function Eight2Two(ByVal Oct As String) As String '定义一个函数 类型为string 参数为OCT
Dim i As Long '定义i为长整型
Dim sObject As String '定义sObject为字符串
Oct = UCase(Oct) '将Oct转换为大写字母 再赋给自己
For i = 1 To Len(Oct) '开始for循环 循环变量i为1到Oct的长度
Select Case Mid(Oct, i, 1)'select 开始 选择判断 Oct由i开始的第一个字符,也就是第i个字符
Case "0": sObject = sObject & "000" '当这个字符为0时 sObject 就加上 000这个字符串再赋给自己
Case "1": sObject = sObject & "001" '当这个字符为1时 sObject 就加上 0010这个字符串再赋给自己
Case "2": sObject = sObject & "010" '当这个字符为2时 sObject 就加上 010这个字符串再赋给自己
Case "3": sObject = sObject & "011" '当这个字符为3时 sObject 就加上 011这个字符串再赋给自己
Case "4": sObject = sObject & "100" '当这个字符为4时 sObject 就加上 100这个字符串再赋给自己
Case "5": sObject = sObject & "101" '当这个字符为5时 sObject 就加上 101这个字符串再赋给自己
Case "6": sObject = sObject & "