二进制
来源:互联网 发布:线切割编程教程 编辑:程序博客网 时间:2024/05/18 00:53
Private Sub Command2_Click()
Me.Font.Size = 60
Dim n As Byte
n = 23
Const er As Byte = 2
Dim s As String
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i As Byte
i = 1
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(5); yushu(4); yushu(3); yushu(2); yushu(1);
End Sub
Me.Font.Size = 60
Dim n As Byte
n = 23
Const er As Byte = 2
Dim s As String
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i As Byte
i = 1
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(5); yushu(4); yushu(3); yushu(2); yushu(1);
End Sub
0 0
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- 二进制
- VRP系统-1
- 将一个数改为16进制
- 任意255以内的十进制数向二进制数的转化
- Spring MVC文件上传
- 小于256任意数的二进制数
- 二进制
- 可用jar运行的war包
- 剑指offer(47):n个骰子的点数
- 让MySql支持Emoji表情 utf8mb4编码格式
- 二进制的转换
- C++中关键字const和mutable的用法总结
- 重写Activity等Android组件构造函数的那些坑
- iOS多线程(NSThread、NSOperation、GCD)
- WinSock Recvfrom() now returns WSAECONNRESET instead of blocking or timing out