给定一个正整数的二进制表示
2016-04-28 16:35
239 查看
Private Sub Command1_Click()
Me.Font.Size = 30
Dim n As Byte
n = 23
Const er As Byte = 2
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i As Byte
i = 5
shang = n \ er
yushu(i) = n Mod er
While shang <> o
n = shang
i = i - 1
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2); yushu(3); yushu(4); yushu(5)
End Sub
任意一个数输出对应的二进制数
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 = yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returns = yushu(i) & returns
Wend
erjinzhi = returns
End Function
Me.Font.Size = 30
Dim n As Byte
n = 23
Const er As Byte = 2
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i As Byte
i = 5
shang = n \ er
yushu(i) = n Mod er
While shang <> o
n = shang
i = i - 1
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2); yushu(3); yushu(4); yushu(5)
End Sub
任意一个数输出对应的二进制数
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 = yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returns = yushu(i) & returns
Wend
erjinzhi = returns
End Function
相关文章推荐
- JAVA调用R语言
- ListView常用的比较好用的属性
- 关于jsp的内容整理
- 【翻译】Xibo官方文档9-Tour-dashboard
- css属性触发和清除haslayout
- 通过maven-shade-plugin插件打可以独立运行的jar包
- Qt Quick Material开源组件ApplicationWindow
- spring mvc 数据绑定问题 提交表单提示HTTP status 400, The request sent by the client was syntactically incorrect
- HTML5 调用手机相册和摄像头的方法并上传微信下测试通过
- 软件架构的认识
- 【Sass初级】开始使用Sass和Compass
- Android的相对布局属性的解释
- Python 迭代器与生成器
- vim goLang
- eclipse插件jd-eclipse的使用
- php-pdo的lastInsertId返回0的问题
- Maven大概认识
- linux命令之ps源码,支持linux和android
- Java基础知识IO流(异常的日志信息&系统信息)
- 系统高并发问题处理