神马品牌网形容早晨的成语:我想知道这段代码的详细意思，最好每行都能说明
来源：百度文库 编辑：神马品牌网 时间：2024/04/19 05:35: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 '定义一个函数 类型为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 & "110" '当这个字符为6时 sObject 就加上 110这个字符串再赋给自己
Case "7": sObject = sObject & "111" '当这个字符为7时 sObject 就加上 111这个字符串再赋给自己
End Select 'select 结束
Next i 'For循环结束
While Left(sObject, 1) = "0" '判断sObject的第一个字符是否为0 为0时循环
sObject = Right(sObject, Len(sObject) - 1) '去掉sObject最后一个字符,然后赋给自己
Wend 'While循环结束
Eight2Two = sObject '函数Eight2Two得到值sObject
End Function '函数结束