| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5312 人关注过本帖
标题:[求助]VB练习:解一元二次方程
只看楼主 加入收藏
e55662006
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-11-13
收藏
 问题点数:0 回复次数:13 
[求助]VB练习:解一元二次方程

本人是VB初学者,老师报置了这么一道作业,不太会做,希望大虾们能帮帮忙`````小弟感激不尽啊`````
要求如下:
1.使用Label,TextBox,Frame,CommandButton控件
2.可以输入一元二次方程的三个系数A,B,C
3.单击计算按钮后,求解并显示结果:X1,X2
4.要求有容错能力,即不管A,B,C输入什么,程序都能正常运行.(即当b^2-4*a*c<0也可求根;a=0时也要考虑)

图片附件: 游客没有浏览图片的权限,请 登录注册

搜索更多相关主题的帖子: 一元二次方程 练习 
2006-11-13 22:48
bestfeng
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:179
专家分:0
注 册:2006-10-31
收藏
得分:0 

Dim X As Long
Dim x1 As Long
Dim x2 As Long
Dim a As Long
Dim b As Long

Dim c As Long
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a = 0 Then
x1 = (-c) / b
Text4.Text = x1
Text5.Text = x1
Exit Sub
End If

If b ^ 2 - 4 * a * c < 0 Then
MsgBox "没有根"
Exit Sub
End If


x1 = (-(b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
x2 = (-(b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Text4.Text = x1
Text5.Text = x2

2006-11-14 11:52
e55662006
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-11-13
收藏
得分:0 
当b^2-4*a*c<0时也要求根啊,不是没根啊```即要求复根```即X=实根+虚根i,X=实根-虚根i````
能改一下吗??
谢谢````
2006-11-14 12:49
bestfeng
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:179
专家分:0
注 册:2006-10-31
收藏
得分:0 
不能改,因为我关于数学我已经全部忘光了。
2006-11-14 16:08
e55662006
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-11-13
收藏
得分:0 

我也是啊```郁闷```有哪位既是VB高手又是数学高手的出来帮帮忙吗???
谢谢了````

2006-11-14 22:24
e55662006
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-11-13
收藏
得分:0 

作业期限迫在眉睫啊````

2006-11-15 10:28
bestfeng
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:179
专家分:0
注 册:2006-10-31
收藏
得分:0 
那你就把算须根的方法给我好了
2006-11-15 11:54
e55662006
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-11-13
收藏
得分:0 
D=B^2-4AC
虚根1=-B/(2*A)+sqr(-D)/(2*A)i
虚根2=-B/(2*A)-sqr(-D)/(2*A)i
2006-11-16 22:10
死神不『哭』
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2006-11-17
收藏
得分:0 
伱們的好難啊~我才剛學到FOR..to..step這裡...
你們知道怎麽做九九乘法表嗎?我的代碼之可以出現到6,出現不了9...請你們幫幫忙

print "這是一個九九乘法表:"
print
print
for i =1 to 9 step 1
for j =1 to i step 1
print j:"*":i:"=":trim(i*i)
next i
print
print
next
可以告訴我哪裏要修改嗎?

⑵個字嘰\結局詠遠簡單過⒊個字嘰\承諾
2006-11-17 09:07
haihe99
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-11-18
收藏
得分:0 
你说的我不知道,不过我想,你的讨论If a = 0 Then
x1 = (-c) / b是没有必要的。两种情况:〈0和〉=0就行啊

2006-11-18 19:59
快速回复:[求助]VB练习:解一元二次方程
数据加载中...
 
   



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

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