clear
d=val(thisform.textl.value)
b=""
for i=1 to 8
      b=alltrim(str(mod(d,2)))+b
      d=int(d/2)
endfor
thisform.label 1.caption=b
return

label 1

在VFP9版本中上机录入这段程序就会提示程序错误，还用不着试运行。

label 1应该写成label1