二进制转化
2016-04-28 17:34
295 查看
Private Sub Command1_Click()
Me.Font.Size = 20
Print erjinzhi(230)
End Sub
Private Function erjinzhi(m As Byte) As String
Dim n As Byte
n = m
Const er As Byte = 2
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 8) As Byte
Dim i As Byte
i = UBound(yushu)
shang = n \ er
yushu(i) = n Mod er
returnS = returnS & yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returnS = yushu(i) & returnS
Wend
enjinzhi = returnS
End Function
Me.Font.Size = 20
Print erjinzhi(230)
End Sub
Private Function erjinzhi(m As Byte) As String
Dim n As Byte
n = m
Const er As Byte = 2
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 8) As Byte
Dim i As Byte
i = UBound(yushu)
shang = n \ er
yushu(i) = n Mod er
returnS = returnS & yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returnS = yushu(i) & returnS
Wend
enjinzhi = returnS
End Function
相关文章推荐
- 关于java的递归写法,经典的Fibonacci数的问题
- 《ArcGIS Runtime SDK for Android开发笔记》——(13)、图层扩展方式加载Google地图
- CodeSmith和PowerDesigner的使用安装和数据库创建(原创系列教程)
- 小木的智慧屋--微信公众号的推广案例分析(1)
- NIO java
- 委托中的协变和逆变(C# 编程指南)
- Codeforces 237B Young Table 【构造】
- 机器学习算法----贝叶斯网络
- Unity3D 动态创建Mesh
- sqlite3中 timestamp使用
- iOS开发多线程篇—多线程简单介绍
- 优秀程序员的十个习惯
- SearchView基本功能用法
- hibernate之自定义数据类型
- 发布cocoapods
- 当孩子伸手向你要钱时,千万不能这样做,一辈子的阴影。
- 盲打练习
- 二进制数转化
- 十进制转化为十六进制
- 冲刺第九天