16jinzhi
2016-04-28 17:32
405 查看
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
相关文章推荐
- Handle机制的原理
- Struts国际化
- BeanUtils复制Timestamp属性时No value specified
- jQuery中,选中一级菜单,二级菜单自动出现的js代码
- canvas 手写功能pc移动端
- tomcat 部署项目 there are no resources that can be add
- Android中修改toast的显示位置
- 机器学习中常见的字母解析及MarkDown代码
- RxJS入门(5)----编写并发程序
- Lenovo System x3850 X6 配置报价
- Volley简介
- 用光流法实现视频中特征点的跟踪
- 15电气李书鹏4月28日VB作业(3)
- JAVA 判断一个字符串是不是一个合法的日期格式
- 【框架】Fresco加载图片
- 关于getch()函数
- 关于getch()函数
- 关于getch()函数
- C/C++中判断两个变量是否相等,相减是否为0、大于0或小于0时要特别注意机器误差带来的影响!
- 关于castle和Could not find the dialect in the configuration错误