a=val(alltrim(thisform.text1.value))
b=val(alltrim(thisform.text2.value))
c=val(alltrim(thisform.text3.value))
d=b^2-4*a*c
do case
case d>0
f=(0-b)+sqrt(d)/2*a
g=(0-b)-sqrt(d)/2*a
thisform.label1.caption=f
thisform.label2.caption=g
case d=0
e=(0-b)/2*a
thisform.label1.caption=e
case d<0
thisform.label1.caption="error"
endcase
运行时提示：此属性数据类型无效
不知道哪错了