[已解决]VBA语言编写任意整数转换为八进制数

vbyou127

VBA语言编写任意整数转换为八进制数

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-16 14:31

lichuanboy44 发表于 2016-4-16 13:24

Sub test()
    Dim i
    For i = 1 To 100
        Cells(i, 1) = VBA.Oct(i)
        Cells(i, 2) = Val(Int(i / 8) & i Mod 8)
        Cells(i, 3) = Cells(i, 1) = Cells(i, 2)
    Next
End Sub



2楼不对{:20:}

跳转到最佳答案楼层

lichuanboy44

1. Sub try()
   
2.     s10 = InputBox("输入拟转换的10进制数")
   
3.     s8 = Val(Int(s10 / 8) & s10 Mod 8)
   
4.     MsgBox s10 & "转换为八进制数" & s8
   
5. End Sub

复制代码

dsmch

1. Sub Macro2()
   
2. n = Val(InputBox("输入拟转换的10进制数"))
   
3. jz = 8 '8进制
   
4. Do Until n < jz
   
5.     y = n Mod jz
   
6.     n = n \ jz
   
7.     p = p & y
   
8. Loop
   
9. MsgBox n & StrReverse(p)
   
10. End Sub

复制代码

爱疯

lichuanboy44 发表于 2016-4-16 13:24

Sub test()
    Dim i
    For i = 1 To 100
        Cells(i, 1) = VBA.Oct(i)
        Cells(i, 2) = Val(Int(i / 8) & i Mod 8)
        Cells(i, 3) = Cells(i, 1) = Cells(i, 2)
    Next
End Sub



2楼不对{:20:}

lichuanboy44

爱疯 发表于 2016-4-16 14:31
Sub test()
    Dim i
    For i = 1 To 100

谢谢指点，我错了，64以上转为八进制后居然出现8和9的数字了，哈哈***
64转换得80后，还需对8进一步转换，即100