10进制转2进制(递归)
2016-01-11 00:06
316 查看
Private Function Dec2Bin(ByRef dec As Integer, ByRef bin As String) As Boolean Dim r As Integer If dec > 15 Then Return False While dec <> 0 r = dec Mod 2 dec = dec \ 2 Dec2Bin(dec, bin) bin = bin & r.ToString End While Return True End Function
注意:byref
相关文章推荐
- Oracle学习笔记:图形管理工具 EM 的使用
- jquery中checkbox选择和全选
- 关于 swift 的图片多选问题
- mysq llimit 优化100万数据
- Linux运维01 计划任务
- Android中Canvas绘图之PorterDuffXfermode使用及工作原理详解
- ICANN 推迟批准 .Org 交易
- Android 5.1 OTA包编译错误
- 基于Python实现文件大小输出
- PHP简单开启curl的方法(测试可行) 原创
- 在WordPress中获取数据库字段内容和添加主题设置菜单
- 在WordPress的后台中添加顶级菜单和子菜单的函数详解
- WordPress后台中实现图片上传功能的实例讲解
- 机器学习(一)
- 简单了解WordPress开发中update_option()函数的用法
- PHP实现基于文本的摩斯电码生成器
- 深入解析WordPress中加载模板的get_template_part函数
- WordPress中重置文章循环的rewind_posts()函数讲解
- ASP.NET和MSSQL高性能分页实例代码
- AngularJs动态加载模块和依赖注入详解