二进制 120
来源:互联网 发布:股票t0交易平台源码 编辑:程序博客网 时间:2024/04/29 19:38
Private Sub Command1_Click()
Me.Font.Size = 60
Print erjinzhi(120)
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 '11
yushu(i) = n Mod er '1
returnS = yushu(i)
While shang <> 0
i = i - 1
n = shang '11 5 2 1
shang = n \ er '5 2 1 0
yushu(i) = n Mod er '1 1 0 1
returnS = yushu(i) & returnS
Wend
erjinzhi = returnS
End Function
Me.Font.Size = 60
Print erjinzhi(120)
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 '11
yushu(i) = n Mod er '1
returnS = yushu(i)
While shang <> 0
i = i - 1
n = shang '11 5 2 1
shang = n \ er '5 2 1 0
yushu(i) = n Mod er '1 1 0 1
returnS = yushu(i) & returnS
Wend
erjinzhi = returnS
End Function
0 0
- 二进制 120
- 二进制 120
- 二进制 120
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- BTrace原理之 -- VM Attach API
- document.write直接写入 HTML 输出流
- 小圆点drawable布局文件
- 15电气李书鹏4月28日VB作业(2)
- 数据迁移 flyway
- 二进制 120
- android 的activity 与IOS UIControllerView对比
- html5 压缩图片上传
- 栈与队列的区别
- 2位数乘以一位数
- [c++]parallel computing
- MapReduce\Tez\Storm\Spark四个框架的异同
- 不用集成微信sdk,直接客户端调起微信支付
- Hierachical token bucket theory