十进制转为二进制
2015-11-24 17:48
302 查看
用递归的方法将十进制转换为低进制
'//此程序只适合10转2 Public str$ '转换后字符 Sub Convert() Dim n&, b& '需转换字符,转换进置 With Sheet5 n = .Cells(3, 1) '原始10进制值 b = 2 '需转换成进制 '//将十进制转换为二进制 .Cells(3, 2) = Ten2Two(n, b) End With End Sub 'Mod函数--取余数 Function Ten2Two(n, b) Dim a& '商 If n = 0 Then Ten2Two = s Else str = (n Mod b) & str Ten2Two = Ten2Two(Int(n / b), b) End If End Function
相关文章推荐
- bzoj2733【hnoi2012】永无乡
- samba共享线上实测
- Oracle创建临时表:CREATE GLOBAL TEMPORARY TABLE
- Android学习笔记系列开篇
- iOS中的urlString里面有时含有中文,nsstring延展
- 你真的会使用Chrome开发者工具吗?
- 1-1 07:输出浮点数
- java异常
- 推荐10个很棒的AngularJS学习指南
- Android中notifyDataSetInvalidated()和notifyDataSetChanged()的区别
- Java线程中锁的问题
- Oracle中,日期相加减换算日时分秒
- 数据链路层—三个基本问题
- Maven中的dependencyManagement和dependencies区别
- AngularJS控制器controller如何通信?
- 多线程问题
- VisualStudio 调试Linux
- 数据结构和算法之图---图的遍历之深度搜索dfs
- Lua5.1中的API函数
- linux下安装jdk和tomcat