二进制
来源:互联网 发布:windows 纯净 下载 编辑:程序博客网 时间:2024/05/17 22:36
Private Sub Command1_Click()
Me.Font.Size = 25
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)
End Sub
Me.Font.Size = 25
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)
End Sub
0 0
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- BST相关代码
- 错误积累
- iOS远程推送
- 关于等待事件enq: TX - allocate ITL entry的一次故障处理
- 看图识“字”(15)-站点图
- 二进制
- android 下拉筛选菜单 view的显示和隐藏动画
- 浮点数在内存中的表示
- 23的二进制数
- Android 开源项目第五篇——优秀个人和团体篇
- 从零开始的Android新项目1 - 架构搭建篇
- hibernate与mybatis异同与比较(涵盖网上各个版本,清晰明了)
- linux 测试 webservice 页面
- NSMutableAttributedString