任意255以内的十进制数向二进制数的转化
2016-05-26 18:13
363 查看
Private Sub Command1_Click()
Me.Font.Size = 35
Print erjinzhi(230)
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) & returnS
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
255转化为二进制数最多有8位,所以为(1 To 8)
Me.Font.Size = 35
Print erjinzhi(230)
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) & returnS
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
255转化为二进制数最多有8位,所以为(1 To 8)
相关文章推荐
- 布局与控件(二)——与你想象不一样的LinearLayout
- 程序是怎样跑起来的-第09章 操作系统和应用的关系
- 5
- Decoding BASE64 in ABAP
- readln
- CUDA之矩阵乘法——非方阵计算
- css 文本超出2行就隐藏并且显示省略号
- echarts按需压缩对应的模块
- android真机调试时,访问本地服务ip设置
- 畅通工程 - 并查集的应用
- Xcode编译出现的二进制错误(xxname.o)
- 1000以内任意10个整数之和
- android 中SD卡访问权限问题【转自Eagle的博客】
- bzoj 4460 : [Jsoi2013]广告计划
- vb登陆界面设计
- iOS客户端、java服务器的通信用RSA加密
- java50中经典算法
- synchronized详解
- iOS HTTP接口授权
- VMware 11安装Mac OS X 10.10 及安装Mac Vmware Tools(超详细),以及动态调整虚拟机硬盘大小