二进制
2016-04-28 16:51
204 查看
Private Sub Command1_Click()
Print erjinzhi(230)
End Sub
Private Function erjinzhi(m As Byte) AsString
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
Print erjinzhi(230)
End Sub
Private Function erjinzhi(m As Byte) AsString
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
相关文章推荐
- redis在PHP中的基本使用案例
- 百度地图开发步骤
- iOS之数据的存储(数据持久化)
- App 接口入门 初识
- C++与Lua5.3.2的相互调用
- Uva 11100 The Trip
- 解决screen报错:Directory '/var/run/screen' must have mode 777
- ObjectAnimator animator1 = ObjectAnimator.ofFloat(viewBG, "alpha", 1, 0);一些手机会出现的问题
- 十进制转化为二进制230
- CSS实现垂直居中
- [原创] 如何用Eclispe调试java -jar xxx.jar 方式执行的jar包
- Android--仿一号店货物详情轮播图动画效果
- popupTheme和theme
- network Driver , TDI(Transport Driver Interface) Drivers
- xcode 7.0后,网络加载失败,以及本地服务器资源加载失败解决
- Java链表的简单实现
- Eclipse 的单步调试
- Android线程池-学习总结
- NKOI 2222 开关游戏
- 给定一个数的16进制