求助各位老师，帮看看如下十进制转二进制代码，十分感谢： 要求：十进制文本框输入

z00128284

求助各位老师，帮看看如下十进制转二进制代码，十分感谢：
要求：十进制文本框输入数值，点击开始解析，二进制文本框自动输出值，

hfwufanhf2006

我在网上回顾了下十进制转二进制的算法，摸索了如下代码。
只能处理正整数，且只提供算法，至于文本框，是个很简单的东西，你自己把代码下上去就行：

s = “12345”   '十进制数
s1 = ""          '二进制数结果，初始化为空白
Do While s / 2 >= 0.5
   s1 = (s Mod 2) & s1
   s = Int(s / 2)
Loop

二进制结果在变量s1中

z00128284

hfwufanhf2006 发表于 2019-11-30 20:29
我在网上回顾了下十进制转二进制的算法，摸索了如下代码。
只能处理正整数，且只提供算法，至于文本框，是 ...

谢谢，老师的指导