教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

有时候我们要用到10进制与其他进制之间的转换，如10-16进制的转换。在此我编写了一个&&函数，可以方便的把10进制转换到其他进制。

　　&&函数为changejz(long shi,int how )其中参数shi为要转换的10进制数据，how为要转换到的进制类型，取值为2,8,16三个,整个&&函数的返回值为string型。

　　大家都知道，要把10进制转换到诸如8进制，首先得转换到2进制，再由2进制转换到8进制，所以&&函数的第一步为：把输入的数据都由10进制转换到2进制。

2进制	8进制	10进制	16进制
10110010	262	178	B2
10110111011	2673	1467	5BB

　　&&函数整体代码如下：（以下列举数字时都以10进制1467为例子）
 

string two,sixteen,eight //定义三个字符串变量，用来存放最后输出的进制值 long lentwo,duan,i,j string aa[50],a[50],b[4] //定义数组 //先把10进制数据通过取余数转换成2进制 //由于10进制到2进制的转换是通过取余数实现，所以这里用到的mod()&&函数，通过实//践，发现这样4行代码就可以把10进制转换到2进制 do while shi>0 two = two + string(mod(shi,2)) shi=shi / 2 loop choose case how //选择输出进制 case 2 //选择2进制 //由于上面得到的2进制的数据方向是相反的：11011101101，所以要通过reverse()&&函数重新//把它颠倒过来 two=reverse(two) //得到正确的2进制10110111011 return two //返回&&函数值 case 8 //选择8进制 //2进制到8进制的转换是这样的，从右往左每3位为一个段，即8进制的一位， lentwo=len(two) //取2进制的长度 if mod(lentwo,3) > 0 then //分段 duan=lentwo / 3 + 1 else duan=lentwo /3 end if for i= duan to 1 step -1 //由于没有颠倒过来的2进制是从右往左的，所以//分出来的段从左往右就是由大到小 aa[duan]=mid(two,i * 3 - 2 ,3) //取出每一段的2进制值 a[duan]='0' for j=1 to 3 b[j]=mid(aa[duan],j,1) //每一段从右往左取值 if b[j]<> '' then a[duan]=string(integer(a[duan]) + 2^(j -1 ) * integer(b[j])) //按照2^0 * x + 2^1 *x +2^2 * x //x为分别为从右到左的2进制的值，累加得到每一段的8进制值 end if next eight=eight + a[duan] //8进制段累加得到最后的8进制值 next return eight //16进制的方法如同8进制，只是每4位为一段而已 case 16 //16进制 lentwo=len(two) if mod(lentwo,4) > 0 then duan=lentwo / 4 + 1 else duan=lentwo /4 end if for i= duan to 1 step -1 aa[duan]=mid(two,i * 4 - 3 ,4) a[duan]='0' for j=1 to 4 b[j]=mid(aa[duan],j,1) if b[j]<> '' then a[duan]=string(integer(a[duan]) + 2^(j -1 ) * integer(b[j])) end if choose case integer(a[duan]) case 10 a[duan]='A' case 11 a[duan]='B' case 12 a[duan]='C' case 13 a[duan]='D' case 14 a[duan]='E' case 15 a[duan]='F' end choose next sixteen=sixteen + a[duan] next return sixteen case else end choose

　　有兴趣的朋友还可以把小数点右面的值也算出来，不过他为2的负次幂。以上代码在windows2000 professional + powerbuilder80下通过。