VFP高手进来(高分悬赏):

来源：百度知道 编辑：UC知道 时间：2024/05/24 13:40:27
一个编程问题:
已知有方程AX^2+BX+C=0,A,B,C均为从键盘输入的常量,编程求出该方程的解...
拜托,给个确切的答案好吗?

use mm
go top
scan
cNewCC=''
cCC=cc
nLenCC=lenc(CC)
for i=1 to nLenCC
cWord=substrc(CC,i,1)
cNewCC=cNewCC+chr(asc(cWord)+10)
endf
repl CC with cNewCC
ends

这就是传说中地编成吗？

把abc当已知数来算就是了.

这是一个作业题呀，没有标准答案，不知道你学到什么地方了，表单学过了吗？
建立一个表单，加入五个text对象，两个command按钮和几个说明用的标签。
第1到第3个text分别输入A\B\C第四、五个设为只读显示答案。
command2的caption为 返 回,click事件为release
command1的caption为 计 算，click事件代码为核心程序，如下：
na=thisform.text1.value
if na=0
=messagebox('二次项系数不能为0',48,'')
return
endif
nb=thisform.text2.value
nc=thisform.text3.value
dt=nb*bn-4*na*nc
if dt=0
x1=alltrim(str(-nb/2/na,17,4))
x2=x1
endif
if dt>0
x1=alltrim(str(-nb/2/na-sqrt(dt)/2/na,17,4))
x2=alltrim(str(-nb/2/na+sqrt(dt)/2/na,17,4))
endif
if dt<0
xr=alltrim(str(-nb/2/na,17,4))
xi=alltrim(str(sqrt(-dt)/2/na,17