如何用表单做十进制和二进制相互转换？
这是我的代码，大佬麻烦看一下，有哪些缺点？
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
 
  还没做完,请给点意见!谢谢!