二进制数转化
2016-04-28 17:33
363 查看
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
相关文章推荐
- 十进制转化为十六进制
- 冲刺第九天
- GUI for git|SourceTree|入门基础
- 集合框架(List集合的特点)
- 设置UITextField输入小数点位数的限制
- Codeforces 236B Easy Number Challenge 【因子和】
- 设计模式二三事——单例模式
- Android之EditText属性详解
- Unity5.3.4以前的旧版本打包问题Xcode7.3编译问题 Error "unknown type name __declspec" after Xcode 7.3 upgrade
- Linux进阶之bash编程(函数及总结)
- oracle函数
- UIPopoverPresentationController -
- 微信公众平台
- 【leetcode】String——Restore IP Addresses (93)
- 一文读懂机器学习
- 2进制
- 16jinzhi
- Handle机制的原理
- Struts国际化
- BeanUtils复制Timestamp属性时No value specified