7,763
社区成员
发帖
与我相关
我的任务
分享CByte()是将字符串、数字转换为Byte型，那么用什么函数把Byte转换成数字型呢？？
CByte()是将字符串、数字转换为Byte型，那么用什么函数把Byte转换成数字型呢？？
Hex()是把10进制转换为16进制，那么用什么可以把16进制转化为10进制？？
Hex()是把10进制转换为16进制，那么用什么可以把16进制转化为10进制？？
...全文
请发表友善的回复…
发表回复
northwolves 2003-12-10
- 打赏
- 举报
MsgBox CLng("&HABB")
踏平扶桑 2003-12-10
- 打赏
- 举报
Private Sub Form_Load()
Dim a(10) As Byte
Dim i As Integer
Dim i1 As Integer
For i = 48 To 57'0-9转为byte
a(i1) = CByte(i)
i1 = i1 + 1
Next
For i = 0 To 9'转为chr型
MsgBox a(i)
Debug.Print Chr(a(i))
Next
End Sub
Dim a(10) As Byte
Dim i As Integer
Dim i1 As Integer
For i = 48 To 57'0-9转为byte
a(i1) = CByte(i)
i1 = i1 + 1
Next
For i = 0 To 9'转为chr型
MsgBox a(i)
Debug.Print Chr(a(i))
Next
End Sub
