二进制的转换
来源:互联网 发布:线切割编程教程 编辑:程序博客网 时间:2024/06/07 23:27
Private Sub Command1_Click()
Print erjinzhi(2)
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
Print erjinzhi(2)
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
0 0
- 二进制数的转换
- 二进制的转换
- 图片的二进制转换
- 二进制的转换
- 十进制,二进制的转换
- 二进制的转换
- 二进制的转换与二进制的运算
- 字符与二进制的转换
- 十进制、二进制之间的转换
- 二进制到十进制的转换
- reverse_bits(二进制的数值转换)
- 二进制与十进制的转换
- 二进制和十进制的转换
- 二进制及各进制的转换
- 二进制与十进制的转换
- 十六进制和二进制的转换
- 十进制和二进制的转换
- 二进制与十进制的转换
- 小于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
- 求给定一个正整数的十六进制表示 vb
- 用photoshop扣公章
- 分治思想 - 二分搜索技术 - MATLAB代码 list是数据集合,x是要查找的数据。
- iOS单元测试,String类型的宏,单个类测试可以正常取到,多个类一起测试取到的宏为null