【图片】一元二次方程求解，结果以根号形式显示【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,399贴子：
一元二次方程求解，结果以根号形式显示收藏
运行界面输入计算，只在实数范围内解，文本框只接受整数和分数，其它字符屏蔽，并且屏蔽文本框鼠标右键。可以输入分数的，如输入个二分之三，计算结果，以根号，分式形式显示，根号里的值化简，分子和分母再进行约分，
应该是约等于
根号是怎么保留的？
还有abc那三个值可不可以不用键盘输入，就像计算器一样输入
LZ 这个是很好的创意，很适合中学教学。不过要用 RichText 框才能够实现哟。实现起来也比较麻烦。哈哈
感谢分享，创意不错！　看了一下楼主的源码，原来都是用图片框“拼接”起来的啊。开始我还以为输出“结果”的地方用的是 TextBox 、　把“根号”画到TextBox的“背景”上的呢。不过“输入长度”限制得有点短啊，还有就是不能输入“浮点数”，只能是整数啊。
code is here 点了，木有反应啊
这年头还用这种藏代码方法
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
这个根号实现的方式很巧妙啊，学习了！
其实我初二的时候也做过一样的程序，用对勾代替的根号，不过我的算法不是特别完美
在一楼的代码的发现了bug，已修复，修改后的代码：
登录百度帐号这段vb语句哪里错了？计算一元二次方程实数根。_百度知道
这段vb语句哪里错了？计算一元二次方程实数根。
我有更好的答案
根据你输入的系数可计算出 d&0，所以该方程无实数根，所以结果无措。你的代码中有一处错误，即 X1 = X2 要改为 X2 = X1
采纳率：82%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB语言解一元二次方程ax^2+bx+c=0的编程 三路知识网
VB语言解一元二次方程ax^2+bx+c=0的编程
来源：网络收集 & 发布时间： &
你大家多多指点指点,谢谢了
SYSTEM的答案公式弄错了，变量定义也不对，这个是正确的Private Sub Solve(ByVal a As Double, ByVal b As Double, ByVal c As Double) Dim delta#, x1#, x2# delta = b ^ 2 - 4 * a * c If delta >= 0 Then x1 = (-b + Sqr(delta)) / 2 * ax2 = (-b - Sqr(delta)) / 2 * aElse Print "判别式小于零，无实根!" End If End Sub
本文地址：https://www.slzays.com/8778.html
VB语言解一元二次方程ax^2+bx+c=0的编程 ……a As Double, ByVal b As Double, ByVal c As Double)
Dim delta#, x1#, x2#
delta = b ^ 2 - 4 * a * c
If delta &= 0 Then
x1 = (-b + Sqr(delta)) / 2 * a
x2 = (-b - Sqr(delta)) / 2 * ...……
求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来... ……
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C & 0 Then
MsgBox "该方程无解。"
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有...……
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一... ……))
c =val(inputbox("请输入系数c"))
d=b^2-4*a*c
if d&0 then
x1=(-b+sqr(d))/2
x2=(-b-sqr(d))/2
elseif d=0 then
msgbox "方程无实根!&qu...……
用VB解一元二次方程ax^2+bx+c=0的流程图 ……
n=b^2-4*a*c
select case n
print "x1=x2=";format(-b/(2*a),"0.000")
case is &0
x1=(-b+sqr(n)/(2*a)
x2=(-b-sqr(n)/(2*a)
prin...……
对一元二次方程ax^2+bx+c=0求解,若有实根则输出实根,否则输... ……?"请输入数据C"
INPUT TO C
DELTA=B*B-4*A*C
CASE DELTA&0
?"方程有两个不相等的实数根:"
??(-B+SQRT(DELTA))/(2*...……
用MATLAB编程求解一元二次方程ax^2 +bx+c=0的根,其中a、b... ……disp('方程形式:a*x^2+b*x+c=0'); a=input('a='); b=input('b='); c=input('c='); p=[a b c];ans=roots(p)哥们,Mablab输出的结果就是一元二次方程的根。……
vb输入一元二次方程ax^2+bx+c=0的系数a,b,c,计算并输出一元... ……
VB纯小数的输出,默认的都是不输出整数0的。
0.12就输出为.12
-0.12就输出 -.12
如要输出的话,要自己编写代码:
Private Sub Command1_Click()
x = Val(InputBox("&...……
一元二次方程ax^2+bx+c=0的解x VB怎么写? ……= Text2.Text
c = Text3.Text
m = b ^ 2 - 4 * a * c
If a = 0 Then
Print wrong
Select Case m
Case Is & 0
x1 = (-b + Sqr(m) / (2 * a))
x2 = (-b - Sqr(m) / (2 * ...……
方程的系数a,b,c的值,编程求解一元二次方程ax^2+bx+c=0的根 …… Exit Sub
t = (b ^ 2 - 4 * a * c) ^ (1 / 2) ' b平方-4ac开根号
if t = 0 Then
MsgBox "唯一解为:" & (-1 * b / (2 * a...……
用VB制作"计算一元二次方程ax^2+bx+c=0"的根(a,b,c的值由键... ……* c)) / (2 * a)x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 ...……
所有问题分类Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根
Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根如果没有根则给出相应的提示信息
Private Sub Command1_Click()Dim a#, b#, c#, d#, x1#, x2#a = Val(InputBox("a=", "数据输入框", 1))b = Val(InputBox("b=", "数据输入框", 2))c = Val(InputBox("c=", "数据输入框", 1))If a = 0 Then If b = 0 Then If c = 0 Then Print "解得:x有无穷解" Else Print "x无解" Else Print "解得:x=" & -c / b End IfElse d = b * b - 4 * a * c If d > 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print "解得:x1=" & x1, Print "x2=" & x2 Else x1 = -b / (2 * a) If d = 0 Then Print "解得:x=" & x1 If d < 0 Then Print "无实根" End If End IfEnd If End Su
我有更好的回答：
剩余:2000字
与《Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根》相关的作业问题
Private Sub Command1_Click()Dim m As Integer, n As Integerm = Int(InputBox("输入第一个整数"))n = Int(InputBox("输入第一个整数"))If m >= n Thencmn = jiecheng(m) / (jiecheng(n)
'牛顿迭代：Private Sub Form_Load()parstr = InputBox("输入A,B,C的值,逗号(英文)隔开")par = Split(parstr,",")If UBound(par) < 2 Then MsgBox "缺少参数":Exit SubFor i = 0 To 2If IsNume
Function&Exchange(ByVal&num&As&Integer)&&&&If&num&&&99&Or&num&&&10&Then&nb
以x1、x2为方程的根的一元二次方程可以是：﹙x－x1﹚﹙x－x2﹚=0,∴本题为：[x－﹙√2＋1﹚][x－﹙√2－1﹚]=0,展开得：x&#178;－2√2x＋1=0
甲看错常数项，解得两根为8和2，两根之和正确；乙看错一次项系数，解得两根为-9和-1，两根之积正确，故设这个一元二次方程的两根是α、β，可得：α+β=-ba=8+2=10，αβ=ca=（-9）×（-1）=9，那么以α、β为两根的一元二次方程就是x2-10x+9=0，故答案为：x2-10x+9=0．
我计算不太好,你自己做一遍看看.本人字不太好,将就下吧 再问： 确定没算错？ 再答： 方法肯定没错，不过本人计算不太好，你自己再算一下呗，把数字带进去。对了公式懂不？再问： 好吧，不懂。什么公式？= =。 再答： X1+X2=-b/a X1*X2=c/a 第一张图里写明了啊
方程2X2+3X-1=0中X1+X2=-3/2,X1X2=-1/2∴2X1+2X2=-3.2X1*2X2=-2一元二次方程为X^2+3X-2=0
1/3因为△=b^2-4ac,当△>=0 时有实根,△
若一个一元二次方程的常数项为0,则该方程必有一项为 0
1.由题知：（2m）^2-4(2m+1)>0 2m+13或m0 得 ： m>3或m 再问： 第一问为什么2m+1＜0？ 再答： 因为一个根为正一个为负，所以它们的乘积为负
1.若方程有实数根,则首先k不等于零(否则不是一元二次方程了),且deta>=0,得k不等于零即可.2.分解因式(kx+(2-k))(x+1)=0得解为x=-1,或x=(k-2)/k=1-2/k.要使两根为整数,则k=1,-1,2,-2
用韦达定理x1+x2=k,x1x2=-2代入原式,2k>-2所以k>-1还要检验方程是不是有两个根判别式k^2-4*1*-2=k^2+8恒大于0所以k>-1
x&#178;-mx+(m-2)=0△=m^2-4(m-2)=m^2-4m+8=(m-2)^2+4由于任何实数m都能使△>0所以方程有2个不同实数根
解原方程x1+x2=-3/2 x1x2=-1/2 所以新方程x1+x2=2(-3/2)=-3 x1x2=2x1=-1 所以新方程为X^2+3X-1=0 第2 X1+X2=-3/2-2=-7/2 ( X1-1)(X2-1)=X1X2-(X1+X2)+1=-1-(--3/2)+1=3/2所以新方程为x^2+7/2X+3/2
【三分之二X】减7等于负五
第二题：#includevoid main(){int i,g,s,b;for(i=100;i
我给你关键代码：dim a,b,c,dt,x1,x2 as singledt=b*b-4*a*cif dt>=0 thenif dt=0 thenmsgbox("有一解")x1=-(b/(2*a))msgbox("x1=x2=" & x1)elsemsgbox("有两解")x1=(-b+sqrt(dt))/2*ax2=
Private Sub Form_Click() Dim a() As Integer Dim i, j, max, n, m Randomize(time) n = InputBox("n=") m = InputBox("m=") ReDim a(n, m) max = 0 For i = 1 To n For j
x&#178;+√3x=2x&#178;+√3x+3/4=2+3/4(x+√3/2)&#178;=11/4x+√3/2=±√11/2x=(-√3-√11)/2,x=(-√3+√11)/2您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
求解一元二次方程的VB源代码［可以求共轭复根).doc 11页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
&#xe600;下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
求解一元二次方程的VB源代码［可以求共轭复根)
你可能关注的文档：
··········
··········
VERSION 5.00
Begin VB.Form Form1
"求解一元二次方程"
ClientHeight
ClientLeft
ClientWidth
KeyPreview
ScaleHeight
ScaleWidth
Begin VB.CommandButton Command2
"清 空(F2)"
Begin VB.CommandButton Command1
"运 算(F1)"
Begin VB.TextBox Text3
BeginProperty Font
Strikethrough
EndProperty
Begin VB.TextBox Text2
BeginProperty Font
Strikethrough
EndProperty
Begin VB.TextBox Text1
BeginProperty Font
正在加载中，请稍后...