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
运行时提示：此属性数据类型无效
不知道哪错了

thisform.label1.caption=f   &&此属性数据类型(f)是不是应该是字符型的?

1.三個文本框本身可以接受數値數據，不用如此麻煩轉換。
2.Caption屬性必須是字符型，用TRANSFORM()函數轉換，例如ThisForm.Label1.Caption = TRANSFORM((0-b)+sqrt(d)/2*a, "9999.99")
3.做除法運算記得檢查除數是否爲零！

a=val(alltrim(thisform.text1.value))
b=val(alltrim(thisform.text2.value))
c=val(alltrim(thisform.text3.value))
*若三个系数初始值为数值型的，则可以简单写成
*a=thisform.text1.value
*b=thisform.text2.value
*c=thisform.text3.value
d=b^2-4*a*c
do case
  case a=0 and b=0 and c=0
    thisform.label1.caption='恒等式，无数多个解'
    thisform.label1.visible=.t.
    thisform.label2.visible=.f.
  case a=0 and b=0 and c#0
    thisform.label1.caption='恒不等式，无解'
    thisform.label1.visible=.t.
    thisform.label2.visible=.f.
  case a=0 and b#0
    thisform.label1.caption='一元一次方程，唯一解x='+alltrim(str(-c/b,12,4))
    thisform.label1.visible=.t.
    thisform.label2.visible=.f.
  case d>0
    thisform.label1.caption='x1='+alltrim(str((-b+sqrt(d))/(2*a),12,4))
    thisform.label2.caption='x2='+alltrim(str((-b-sqrt(d))/(2*a),12,4))
    thisform.label1.visible=.t.
    thisform.label2.visible=.t.
  case d=0
    thisform.label1.caption='x1=x2='+alltrim(str((-b+sqrt(d))/(2*a),12,4))
    thisform.label1.visible=.t.
    thisform.label2.visible=.f.
  case d<0
    thisform.label1.caption='x1='+alltrim(str(-b/(2*a),12,4))+'+'+alltrim(str(sqrt(-d)/abs(2*a),12,4))+'i'
    thisform.label2.caption='x2='+alltrim(str(-b/(2*a),12,4))+'-'+alltrim(str(sqrt(-d)/abs(2*a),12,4))+'i'
    thisform.label1.visible=.t.
    thisform.label2.visible=.t.
endcase

虎哥久未露面，别来无恙。

你們這樣寫，試試在文本框中敲點用字母或漢字開頭的東西進去看有什麽後果？寫程序最關鍵的地方，是交互式輸入時如何確保得到正確的數據！

给控件初始化赋值就可以避免楼上所说的情况发生，例如在init事件中写入ThisForm.Text1.Value=0,Text1控件就不能录入字母了。

是的，這樣能滿足要求。實現的手段有很多（比如在按鍵事件檢測、離開事件檢測、允許輸入非數字字符但自動過濾排查等等手段，都是可以的），但我想指出，學程序設計，必須要培養考慮到方方面面的習慣，否則是白學。

[ 本帖最后由 TonyDeng 于 2011-7-2 11:14 编辑 ]

既然是设计，就要在确保万无一失的情况下运行。在设计时留下安全隐患，运行时去救火，可不好。当然，意外情况会发生，程序可以考虑意外情况，利用容错技术。TonyDeng是一个高手，佩服。

还好，谢谢关心。胡兄弟生意兴隆了！