十六进制
2016-04-28 17:29
260 查看
Private Sub Command1_Click()
Me.Font.Size = 50
Print shiliujinzhi(4545)
End Sub
Private Function shiliujinzhi(m As Integer)As String
Dim n As Integer
n = m
Const shiliu As Byte = 16
Dim returns As String
Dim shang As Integer
Dim yushu(1 To 32) As Byte
Dim i As Integer
i = UBound(yushu)
shang = n \ shiliu
yushu(i) = n Mod shiliu
returns = shiliujinzhifuhao(yushu(i))
While shang <> 0
i = i - 1
n = shang
shang = n \ shiliu
yushu(i) = n Mod shiliu
returns = shiliujinzhifuhao(yushu(i)) &returns
Wend
shiliujinzhi = returns
End Function
Private Function shiliujinzhifuhao(n AsByte) As String
Dim s As String
Select Case n
Case Is <= 9
s = n
Case Is >= 10
s = Chr(55 + n)
End Select
shiliujinzhifuhao = s
End Function
Me.Font.Size = 50
Print shiliujinzhi(4545)
End Sub
Private Function shiliujinzhi(m As Integer)As String
Dim n As Integer
n = m
Const shiliu As Byte = 16
Dim returns As String
Dim shang As Integer
Dim yushu(1 To 32) As Byte
Dim i As Integer
i = UBound(yushu)
shang = n \ shiliu
yushu(i) = n Mod shiliu
returns = shiliujinzhifuhao(yushu(i))
While shang <> 0
i = i - 1
n = shang
shang = n \ shiliu
yushu(i) = n Mod shiliu
returns = shiliujinzhifuhao(yushu(i)) &returns
Wend
shiliujinzhi = returns
End Function
Private Function shiliujinzhifuhao(n AsByte) As String
Dim s As String
Select Case n
Case Is <= 9
s = n
Case Is >= 10
s = Chr(55 + n)
End Select
shiliujinzhifuhao = s
End Function
相关文章推荐
- solr查询语句示例
- 图解HTTPS
- 简单讲解iOS应用开发中的MD5加密的相关使用
- Android录制微信小视频
- 杂学日记
- 计算机编码
- 非常经典的JAVA编程题(兔子规律)
- (礼拜四log)zTree插件扩展
- java实现等比例缩略图
- 《JAVA与模式》之访问者模式
- php 用户访问菜单页面,必须登录,判断用户是否登录
- NSDate
- Android SDK开发
- 专题三1013
- php 用户访问菜单页面,必须登录,判断用户是否登录
- php 用户访问菜单页面,必须登录,判断用户是否登录
- SVN切换路径的方法
- C++ c_str()使用总结
- 前端ers 必须知道的几个bootstrap cdn加速节点
- OpenGL、WebGL、H5