16进制
2016-05-19 17:53
134 查看
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
相关文章推荐
- 16进制的转换
- ios开发证书CER文件、P12文件,mobileprovition许可文件的用途
- Exchange 2013服务器常用的性能监视器
- 文章标题
- Tomcat解惑 之 CATALINA_HOME与CATALINA_BASE
- synchronized(this)总结
- ServletFileUpload.parseRequest()为空
- 奋斗吧,程序员——第四十章 一面风情深有韵,半笺娇恨寄幽怀
- (OK) ns3—genymotion—android
- 预编译头文件的创建(最新)
- 在开发大型项目的时候,如何进行内存泄露检测的? 内存泄露怎么处理?
- 线程与进程的关系
- 在最顶层窗口添加一个视图
- n*1
- 2进制
- LeetCode OJ 189. Rotate Array
- ambari无法登陆 设备空间不足
- java Socket实现简单在线聊天(二)
- iOS 极光推送
- memcached 并发原语CAS与GETS操作