VB 将十六进制转化为十进制

11 |

1 | 2009-6-27 14:59:51 | 显示全部楼层 |阅读模式

先转为2进制,在转为10进制 Function erTo10(ByVal su As String) As String'2进制转换为10进制
m = Len(su)
For i = 1 To m
n = Mid(su, i, 1)
If n = 0 Or n = 1 Then
erTo10 = Val(erTo10) + n * 2 ^ (m - i)
Else
erTo10 = "数据错误!"
Exit Function
End If
Next
...

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

加好友
发消息

回复楼主返回列表

问答

热门排行