23转化为二进制数
2016-04-28 16:42
225 查看
Private Sub Command1_Click()
Me.Font.Size = 60
Dim i As Integer
Dim b As Integer
Const a As Integer = 2
Dim shang As Integer
Dim yushu(1 To 5) As Double
b = 23
i = 5
shang = b \ a
yushu(i) = b Mod a
While shang <> 0
i = i - 1
b = shang
shang = b \ a
yushu(i) = b Mod a
Wend
For i = 1 To 5
Print yushu(i);
Next
End Sub
Me.Font.Size = 60
Dim i As Integer
Dim b As Integer
Const a As Integer = 2
Dim shang As Integer
Dim yushu(1 To 5) As Double
b = 23
i = 5
shang = b \ a
yushu(i) = b Mod a
While shang <> 0
i = i - 1
b = shang
shang = b \ a
yushu(i) = b Mod a
Wend
For i = 1 To 5
Print yushu(i);
Next
End Sub
相关文章推荐
- 二进制
- 秒杀多线程第三篇 原子操作 Interlocked系列函数
- 【转】linux代码段,数据段,BSS段, 堆,栈
- jQuery插件写法总结以及面向对象方式写法总结
- GitHub和SourceTree入门教程
- 个人冲刺03
- 负载均衡
- React Native 实例 - 房产搜索App
- MySQL编码设置方法
- Java 8怎么了:局部套用vs闭包
- 磁阻 磁饱和
- html 嵌入一个html
- dobbo配置
- ant构建web项目build脚本
- 十进制换化为二进制
- [BZOJ1934][Shoi2007]Vote 善意的投票(最小割)
- hibernate与mybatis异同与比较(涵盖网上各个版本,清晰明了)
- 从零开始的Android新项目1 - 架构搭建篇
- myBatis的批量插入数据总结
- Ubuntu 配置 Tomcat