如何用表单做十进制和二进制相互转换？
这是我的代码，大佬麻烦看一下，有哪些缺点？
a=val(alltrim(thisform.text1.value))
zs=int(a) &&整数
xs=a-zs  &&小数部分
jg=""
&&a=val(alltrim(thisform.text1.value))
b=""
do while zs>0
  y=zs%2
  b=str(y,1)+b
  zs=int(zs/2)
 enddo
 thisform.refresh


&&小数
do while xs!=1
 c=xs*2
e=str(int(c))
f=""
xs=val(alltrim(e))
e=e+f
enddo


&&合并
jg=b+"."+alltrim(e)
thisform.text2.value=alltrim(jg)
thisform.refresh


&&二转十部分
ea=val(alltrim(thisform.text1.value))  &&输入的二进制的数
ezs=int(ea)    &&二进制小数点左边
exz=ea-ezs     &&二进制小数点右边


&&二进制小数点左边
p=at(".",thisform.text1.value)
do while ezs>0
  q=ezs*2
 
  还没做完,请给点意见!谢谢!

二进制远不是你那样的，二进制只有0和1，没有小数点，也没有正负号，你那仅能表示正整数

看似是二进制表达式，不是数值在内存的存储格式。
如：6.125
二进制表达式：110.001
存储格式：0 10000001 10001000000000000000000

MYFLL，有进制转换函数