vba十进制转二进制


sub stor ()
dim stor,shi as long

stor = ""

n = range("b3")

shi = range("a3")

do while stor >0

stor = shi mod n & stor

shi = shi / n

loop

range ("e3") =stor

end sub

 


免责声明!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系本站邮箱yoyou2525@163.com删除。



 
粤ICP备18138465号  © 2018-2025 CODEPRJ.COM