请问十进制与二进制互转的函数...

senvy 2003-12-22 01:52:12
如题。

知道请复。

谢谢。
...全文
47 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dongge2000 2003-12-24
10进制-----八进制------二进制
回复
SoHo_Andy 2003-12-22
内置的只有8进制和16进制的两个函数
用函数Oct()将十进制位数 转换为八进制,用Hex()将十进制位 数转换为十六进制
回复
senvy 2003-12-22
感谢。呵呵

但,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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7486

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-12-22 01:52
社区公告
暂无公告