255以内的数转换成二进制
2016-04-28 16:56
411 查看
Private Sub Command1_Click()
Me.Font.Size = 60
Print erjianzhi(230)
End Sub
Private Function erjianzhi(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
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returns = yushu(i) & returns
Wend
Print returns
End Function
Me.Font.Size = 60
Print erjianzhi(230)
End Sub
Private Function erjianzhi(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
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returns = yushu(i) & returns
Wend
Print returns
End Function
相关文章推荐
- 如何远程调试Python代码
- Linux学习笔记--导航(CentOS 7)
- document.write直接写入 HTML 输出流
- 如何远程调试Python代码 推荐
- html5 压缩图片上传
- 数据迁移 flyway
- React Native 的 ES6 类写法与未定义错误
- Hierachical token bucket theory
- MapReduce\Tez\Storm\Spark四个框架的异同
- [c++]parallel computing
- 如何用程序实现“rescan windows device manager"
- 2位数乘以一位数
- 二进制 120
- 15电气李书鹏4月28日VB作业(2)
- 数据源配置之一
- 画图种子填充
- spring项目中如何添加定时器以及在定时器中自动生成sprng注入对象
- vb
- Android fragment 重叠问题——通过hide,show方式导致的解决方法
- 关于action默认执行execute()方法一点想法