十进制???转换为十六进制数
2016-04-28 17:25
274 查看
Private Sub Command1_Click()
Me.Font.Size = 50
Print shiliujinzhi(???)
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(???)
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
相关文章推荐
- 【BZOJ-3196】二逼平衡树 线段树 + Splay (线段树套平衡树)
- MicroERP如何配置网络应用
- php缓存数组到文件
- 安卓 .9.png图片写聊天对话框的 详细教程
- 个人博客系统--项目实战
- 位运算状态压缩——跳棋
- 前端ers 必须知道的几个jquery cdn加速节点
- 用kaldi平台跑timit实例
- iOS去掉导航栏底部黑线
- 原生js实现下拉到底事件
- 杨毅:不够优秀就不要腆着脸继续占便宜
- Mysql常用语句
- HDU 2010 水仙花数(打表+水题)
- 批量压缩解压
- 二进制
- 十进制改为十六进制
- 探索react native首屏渲染最佳实践
- Java:reflection
- coreData(2)
- 集合框架(List存储字符串并遍历)