7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
dongge2000 2003-12-24
- 打赏
- 举报
10进制-----八进制------二进制
SoHo_Andy 2003-12-22
- 打赏
- 举报
内置的只有8进制和16进制的两个函数
用函数Oct()将十进制位数 转换为八进制，用Hex（）将十进制位 数转换为十六进制
用函数Oct()将十进制位数 转换为八进制，用Hex（）将十进制位 数转换为十六进制
senvy 2003-12-22
- 打赏
- 举报
感谢。呵呵
但，VB没有内置的函数么？如HEX
再次感谢。
但，VB没有内置的函数么？如HEX
再次感谢。
SoHo_Andy 2003-12-22
- 打赏
- 举报
呵呵，试试
Option Explicit
Private Function TenturnTwo(ByVal varNum As Long) As String
Dim returnString As String
Dim ModNum As Integer
Do While varNum > 0
ModNum = varNum Mod 2
varNum = varNum \ 2
returnString = Trim(Str(ModNum)) + returnString
Loop
TenturnTwo = returnString
End Function
Private Function TwoturnTen(ByVal varString As String) As Long
Dim Slen As Long
Dim I As Long
Dim returnNum As Long
Slen = Len(varString)
For I = 0 To Slen - 1
returnNum = returnNum + Val(Mid(varString, I + 1, 1)) * (2 ^ (Slen - I - 1))
Next
TwoturnTen = returnNum
End Function
Private Sub Command3_Click()
MsgBox TenturnTwo(5)
MsgBox TwoturnTen("101")
End Sub
Option Explicit
Private Function TenturnTwo(ByVal varNum As Long) As String
Dim returnString As String
Dim ModNum As Integer
Do While varNum > 0
ModNum = varNum Mod 2
varNum = varNum \ 2
returnString = Trim(Str(ModNum)) + returnString
Loop
TenturnTwo = returnString
End Function
Private Function TwoturnTen(ByVal varString As String) As Long
Dim Slen As Long
Dim I As Long
Dim returnNum As Long
Slen = Len(varString)
For I = 0 To Slen - 1
returnNum = returnNum + Val(Mid(varString, I + 1, 1)) * (2 ^ (Slen - I - 1))
Next
TwoturnTen = returnNum
End Function
Private Sub Command3_Click()
MsgBox TenturnTwo(5)
MsgBox TwoturnTen("101")
End Sub
