| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1332 人关注过本帖
标题:表单难题如何解?
只看楼主 加入收藏
妙度月薇
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-6-6
收藏
 问题点数:0 回复次数:7 
表单难题如何解?
用表单设计一个求解一元二次方程根(详细过程)
搜索更多相关主题的帖子: 表单 难题 
2008-06-06 09:45
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
在表单中设置两个文本框和一(或二)个标签,文本框1用于输入常数a的值,文本框2用于输入常数b的值,标签用于显示X的根。
可以设置一个命令按钮“求解”,把运算过程放在该按钮的Click事件中 ,也可以在文本框的ActivateChange中设置计算过程。

两人行已有我师……
2008-06-08 22:06
妙度月薇
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-6-6
收藏
得分:0 
这些我都知道,可就是不知道如何编写代码啊,不过还是谢谢你啊!
2008-06-10 09:05
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
代码就是把求根公式用VFP命令来表述嘛。您问的是表单问题,实际上是代码不会写。
先检查(b*b-4ac)是否小于0,如果小于零,则提示方程无实数解。否则,X1=(-b+SQRT(b*b-4ac))/2a,
X2=什么,您自己应该知道了吧。

[[it] 本帖最后由 啸凡 于 2008-6-10 20:54 编辑 [/it]]

两人行已有我师……
2008-06-10 20:37
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
(1)新建表单,添加4个标签,3个文本框,1个编辑框,1个命令按钮。在表单的初始化Form1.Init()写上如下的代码
ThisForm.Text1.Value=0
ThisForm.Text2.Value=0
ThisForm.Text3.Value=0
ThisForm.Text1.InputMask='9999999999.9999'
ThisForm.Text2.InputMask='9999999999.9999'
ThisForm.Text3.InputMask='9999999999.9999'
ThisForm.Edit1.Value=''
ThisForm.Edit1.ReadOnly=.T.

(2)Command1.Click()
a=ThisForm.Text1.Value
b=ThisForm.Text2.Value
c=ThisForm.Text3.Value
d=b*b-4*a*c
Do Case
Case a=0 And b=0 And c=0
  lcString='恒等式,无穷多个根'
Case a=0 And b=0 And c#0
  lcString='恒不等式,无解'
Case a=0 And b#0
  lcString='一元一次方程,根为'+transform(-b/c)
Case d>0
  lcString='一元二次方程,有两个不等实根,分别为'+transform((-b+sqrt(d))/(2*a))+'和'+transform((-b-sqrt(d))/(2*a))
Case d=0
  lcString='一元二次方程,有两个相等实根,为'+transform(-b/(2*a))
Case d<0
  lcString='一元二次方程,有共轭虚根,为'+transform(-b/(2*a))+'±'+transform(sqrt(-d)/abs(2*a))+'i'
EndCase
ThisForm.Edit1.Value=lcString

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-06-10 23:30
妙度月薇
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-6-6
收藏
得分:0 
谢啦,十分感激啊!
2008-06-11 11:30
为爱读书
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-6-14
收藏
得分:0 
回复 5# Tiger5392 的帖子
好厉害啊!!
   在下佩服佩服···
2008-06-15 07:09
mspanwei
Rank: 1
等 级:新手上路
威 望:1
帖 子:49
专家分:0
注 册:2010-1-5
收藏
得分:0 
好佩服Tiger5392朋友!向你学习!如果可能的话,拜你为师!
2010-01-15 21:40
快速回复:表单难题如何解?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026112 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved