7,763
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
yh1205 2003-10-23
- 打赏
- 举报
不好意写错了，应该是
hex(val(lstr))
hex(val(lstr))
yh1205 2003-10-23
- 打赏
- 举报
标准答案：
hex(val("&H" & lstr))
hex(val("&H" & lstr))
jinxjun 2003-10-23
- 打赏
- 举报
hex(val(lstr))还是字符串
应该用:
dim a as byte
lstr="2D"
a = cbyte("&H" & lstr)
应该用:
dim a as byte
lstr="2D"
a = cbyte("&H" & lstr)
flc 2003-10-23
- 打赏
- 举报
对是hex(val(lstr))
richardbao 2003-09-29
- 打赏
- 举报
对于你的题目就是：
Dim lStr As String, lNum As Integer
lStr = "2d"
lNum = Val("&H" & lStr)
Dim lStr As String, lNum As Integer
lStr = "2d"
lNum = Val("&H" & lStr)
richardbao 2003-09-29
- 打赏
- 举报
很简单啊，比如你的 HexNum = "A6"，那你就 Val("&H" & HexNum) = 166 啦！
viena 2003-09-28
- 打赏
- 举报
呵呵，还是字符串
northwolves 2003-09-28
- 打赏
- 举报
Private Sub Command1_Click()
Dim lstr As String
lstr = "2d"
MsgBox UCase(lstr) & " of 十六进制 is " & CDec("&H" & lstr) & " of 十进制"
End Sub
Dim lstr As String
lstr = "2d"
MsgBox UCase(lstr) & " of 十六进制 is " & CDec("&H" & lstr) & " of 十进制"
End Sub
aijunchai 2003-09-28
- 打赏
- 举报
先自己写个函数把字符串转换为十进制数
然后用函数Hex()把十进制数转换为十六进制数
然后用函数Hex()把十进制数转换为十六进制数
