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