十进制转换为二进制

 原问题：如果转换的十进制数大于长整型该如何转换？比如4294967295

我的解决方案：

我让程序自己解决，就是说让它自动识别类型   若类型识别不好   益出的话   加一句错误处理语句就把它给解决了

这里是我的代码   楼主参考下！

   
   

    
    
    
    

     
     

      
      

       
       
       
       '
       
       十进制转换二进制
       
       

       
        
       
       '
       
            ——采用“基数除法”，具体步骤如下：
       
       

       
         
       
       '
       
         （1）将给定的十进制整数除以基数2，余数便是等值的二进制的最低位。
       
       

       
          
       
       '
       
        （2）将上一步的商再除以基数2，余数便是等值的二进制数的次低位。
       
       

       
           
       
       '
       
       （3）重复步骤2，直到最后所得的商等于0为止。各次除得的余数，便是二进制各位的数，最后一次的余数是最高位
       
       

       
       

       
       '
       
       **************cike例题******************
       
       
'
       
       name= 字符串整数转二进制
       
       
'
       
       form=command1
       
       
'
       
       ****************************************
       
       

       
       

       
       Private
       
        
       
       Sub
       
        Command1_Click()
Cls

       
       On
       
        
       
       Error
       
        
       
       Resume
       
        
       
       Next
       
          
       
       '
       
        忽略所有错误
       
       

       
       
a 
       
       =
       
        
       
       4294967295
       
       #  
       
       '
       
       直接赋值给变量a  #号是系统自动加上去的不要奇怪
       
       

       
       

       
       Do
       
        
       
       While
       
        a 
       
       <>
       
        
       
       0
       
           
       
       '
       
       a 没等于 0的时候就执行循环
       
       

       
       
    b 
       
       =
       
        a 
       
       Mod
       
        
       
       2
       
            
       
       '
       
       这个获得余数
       
       

       
           a 
       
       =
       
        
       
       Int
       
       (a 
       
       /
       
        
       
       2
       
       )           
       
       '
       
       把商重新赋给 a 以便下次再运算
       
       

       
           s 
       
       =
       
        s 
       
       &
       
        b       
       
       '
       
       记录每次的余数  倒过来就是你要的数了
       
       

       
           Print a, b

       
       Loop
       
       


       
       For
       
        i 
       
       =
       
        
       
       Len
       
       (s) 
       
       To
       
        
       
       1
       
        Step 
       
       -
       
       1
       
          
       
       '
       
       这个循环负责把获取的余数倒转过来
       
       

       
           aa 
       
       =
       
        
       
       Mid
       
       (s, i, 
       
       1
       
       )
    ss 
       
       =
       
        ss 
       
       &
       
        aa

       
       Next
       
        i

Print ss    
       
       '
       
       显示出这个值
       
       

       
       

       
       End Sub