23变成二进制
2016-05-12 17:35
197 查看
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 <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2); yushu(3);yushu(4); yushu(5);
2016.05.12
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 <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2); yushu(3);yushu(4); yushu(5);
2016.05.12
相关文章推荐
- 水题小技巧
- mac下 ffmpeg 编译到android平台(支持 frei0r)
- React实战——基于百度IFE学院task50
- uibutton 文字闪动问题
- 22java中使用UDP TCP 协议做聊天工具
- 第7周 深入理解计算机系统(第二版) 知识总结 第一、二章
- iOS开发设置UISearchBar的输入背景框、提示文字等
- 一个前端练手作品——前端新人如何求职?
- 选择排序法——1到1000
- python中if __name__ == '__main__': 的解析
- Sublime 文本或者代码编辑软件的使用
- 排序
- 禁用ecshop缓存,关闭ecshop缓存功能
- HTML5 音频播放 <audio>
- nyoj 743 复杂度(排列组合)
- radiobutton+viewpager+Fragment切换过程取消预加载(延迟加载)
- sql server 2008学习(二)基本查询
- IOS地图定位坐标偏差解决方案(实战通过)
- 使用distcp并行拷贝大数据文件
- JavaScript实现加法运算例子(2种方法)