求给定一个正整数的二进制表示
来源:互联网 发布:线切割编程教程 编辑:程序博客网 时间:2024/05/22 07:49
Private Sub Command1_Click()
Me.Font.Size = 30
Print erjinzhi(23)
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 = 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
Me.Font.Size = 30
Print erjinzhi(23)
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 = 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
- 求给定一个正整数的二进制表示
- 求给定一个正整数的二进制表示 vb
- 给定一个正整数的二进制表示
- 求给定一个正整数的十六进制表示 vb
- 给定一个整数,求它的二进制表示
- 2016年4月28日VB 求给定一个正整数的二进制数
- 求一个十进制正整数在二进制表示中的二进制数字个数
- 给定一个正整数,找出一个数:与其二进制表示中1的个数相同,比该数大,而且最接近
- 给定一个正整数,找出一个数:与其二进制表示中1的个数相同,比该数小,而且最接近
- 算法 - 求一个正整数的二进制表示中1的个数(C++)
- 给定你任意正整数,请你输出这个正整数的二进制表示中有几个1。
- 任意给定一个正整数N,求一个最小的正整数M(M>1),使得N*M的十进制表示形式里只含有1和0。
- 给定一个正整数数组求组合起来的最大值
- 求正整数A和正整数B的二进制表示中有多少位是不同的
- 求逆转一个整数的二进制表示
- 给定一个整数N,求N!末尾有多少个0?N!的二进制表示中最低1的位置?
- 9.5位操作(三)——给定一个正整数,找出与其二进制表示中1的个数相同,且大小最接近的那两个数
- 给定一个正整数n,找到小于或等于n的非负整数,其二进制表示不包含连续的整数。
- 以后记住
- 2016.4.28.2
- SDAutoLayout使用
- launcher
- 230改为二进制
- 求给定一个正整数的二进制表示
- VRP系统-1
- 将一个数改为16进制
- 任意255以内的十进制数向二进制数的转化
- Spring MVC文件上传
- 小于256任意数的二进制数
- 二进制
- 可用jar运行的war包
- 剑指offer(47):n个骰子的点数