
- UID
- 300574
- 帖子
- 550
- 精华
- 0
- 威望
- 0
- 阅读权限
- 100
- 注册时间
- 2005-7-18
|
原帖由 漫天的迷雾 于 2006-12-6 17:36 发表
十六转十
Public Function HEX_to_DEC(ByVal Hex As String) As Long
Dim i As Long
Dim B As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(He ...
因为老师还没说过HEX函数,所以他说不能用这个。。。要初级一点的办法。。。 |
|