比如輸入7轉換為00000111?
1返回十進制數對應的二進制字串PublicFunctionD2B(ByValDnumAsLong)AsStringDimxxAsStringDimyyAsIntegerxx=""'字串累加清空DoWhileDnum>0'循環取余至小于1yy=DnumMod2'除2取余Dec=Dec\2'除2取整xx=Trim(Str(yy))&xx'字串累加LoopD2B=xx'返回字串EndFunction
上一篇服務器地址怎么填
比如輸入7轉換為00000111?
1返回十進制數對應的二進制字串PublicFunctionD2B(ByValDnumAsLong)AsStringDimxxAsStringDimyyAsIntegerxx=""'字串累加清空DoWhileDnum>0'循環取余至小于1yy=DnumMod2'除2取余Dec=Dec\2'除2取整xx=Trim(Str(yy))&xx'字串累加LoopD2B=xx'返回字串EndFunction