白开心

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'调用方法:  TenAndTwo(33)
Function TenAndTwo(iNum)
'********************
'十进制转换成二进制
Dim iResult,iBound
Dim varry(),varry1()
 if Isnumeric(iNum)=false then Response.End()
 iBound = 1
 ii = iNum \ 2
 
 do while(ii>1)
  iBound = iBound+1
  if iBound=1 then
   ii = iNum \ 2
  else
   ii = ii \ 2
  end if
 loop
 
 redim varry(iBound),varry1(iBound)
 for i = 0 to iBound
  if i=0 then
   varry(i) = iNum Mod 2
   varry1(i) = iNum \ 2
  else
   varry(i) = varry1(i-1) Mod 2
   varry1(i) = varry1(i-1) \ 2
  end if
 next
 
 For j=0 to iBound
  k = iBound - j
  iResult = iResult & varry(k)
 Next
 
 if left(iResult,1) = 0 then iResult=right(iResult,len(iResult)-1)
 TenAndTwo = iResult
End Function
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

C#  2006-12-22
  /// <summary>
  /// 十进制转成二进制
  /// </summary>
  /// <param name="AlgorismNum">十进制的数</param>
  /// <returns>结果</returns>
  public string ChangeAlgorismForBinary(int AlgorismNum)
  {
   string result = "";
   while(AlgorismNum>=2)
   {
    result = Convert.ToString(AlgorismNum % 2) + result;
    AlgorismNum /= 2;
   }

   result = AlgorismNum + result;

   return result.ToString();
  }


******************************************
javascript

var num = 8;
document.write("num的二进制是：" + num.toString(2));
document.write("num的八进制是：" + num.toString(8));
document.write("num的十进制是：" + num.toString(10));