任意数二进制转化
2016-04-28 17:40
381 查看
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
相关文章推荐
- Hibernate 常见的注解及使用方法
- Android中Activity与AppCompatActivity的理解
- 实例解析如何在Android应用中实现弹幕动画效果
- 集合框架(List存储学生对象并遍历)
- 《JAVA与模式》之门面模式
- nc 调用后台接口 生成单据编码单据编号
- 保证最后三个数字为最小的
- 十进制到二进制
- 十进制到二进制
- android中的所谓观察者模式
- hihoCoder#1015 : KMP算法 (KMP模板)
- Linux TOP命令详解
- RDPY:一个在RDP会话期间执行中间人攻击的工具
- Hibernate拦截器(Interceptor)与事件监听器(Listener)
- CAF(C++ Actor Framework)介绍
- 关于struts2标签嵌套问题
- size_t strcspn(const char *s, const char * reject);
- nc 接口调用后台接口 校验登录权限 报错解决办法
- 2138转化成十六进制
- Android 动画笔记