输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.Private Sub Command1_Click()Dim a%,b%,c%,,x1!,x2!a = Val(Text1)b = Val(Text2)c = Val(Text3)d = b ^ 2 - 4 * a * cIf d >= o Thenx1 = (-b + d ^ 1 /

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/25 19:43:05
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.Private Sub Command1_Click()Dim a%,b%,c%,,x1!,x2!a = Val(Text1)b = Val(Text2)c = Val(Text3)d = b ^ 2 - 4 * a * cIf d >= o Thenx1 = (-b + d ^ 1 /
xSS@Wf괲X==88xE;B:9V@*-m a,M ǘIN $ 7/oFc2f; S/2uhVc^>QKDr P&o!kP{گrd3[f{mh22D0"O^dP2Ih:2#BP*s=T{%OpJBbŇP- Or%FHĢD"/RØ`H#Du' ku+ɤW梽9?:r?cIݙ$ܢH W XuE ":++P{ "q^`)/)/:VA5PdP!hFςg=P6 5@͓ x`]C*k.H~UKU, ;iW[Uh2΅yV̶q'DžL#!^x ެ/cCH˪vvsndύubYώ3 UǿOSgCVUX:~F'0@J8xt57KaͲl:j?,nr

输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.Private Sub Command1_Click()Dim a%,b%,c%,,x1!,x2!a = Val(Text1)b = Val(Text2)c = Val(Text3)d = b ^ 2 - 4 * a * cIf d >= o Thenx1 = (-b + d ^ 1 /
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
Private Sub Command1_Click()
Dim a%,b%,c%,,x1!,x2!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b ^ 2 - 4 * a * c
If d >= o Then
x1 = (-b + d ^ 1 / 2) / (2 * a)
x2 = (-b - d ^ 1 / 2) / (2 * a)
MsgBox "x1=" & x1
Else
MsgBox "No Root!"
End If
End Sub
到底错在哪里,

输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.Private Sub Command1_Click()Dim a%,b%,c%,,x1!,x2!a = Val(Text1)b = Val(Text2)c = Val(Text3)d = b ^ 2 - 4 * a * cIf d >= o Thenx1 = (-b + d ^ 1 /
首先,要限制a0否则,根本就不是一元二次方程,后面的程序也要出错.
其次,if d>=o Then 这里,这个d>=o似乎 不是零0,你写的是英文字母o.
第三,公式法求根的时候,d^1/2改为d^(1/2)

a应该不等于零,否则"No Root!"

这是神马语言？不过我觉得这里x1 = (-b + d ^ 1 / 2) / (2 * a)是不是应该把1/2用括号括起来，好像乘幂运算的优先级比除法的高。

编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2. 编写一个函数,求标准的一元二次方程ax2+bx+c=0的根,要求方程的系数都可以以主程序输入来改变? VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计 如何解一元二次方程 ax2+bx+c=0 一元二次方程ax2+bx+c=0的一个根是一 vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2 一元二次方程ax2+bx+c=0的系数满足4a-2b+c=0,那么这个一元二次方程必有一根是? 若一元二次方程aX2（平方）+bX+c的系数之和满足a+b+c=0,求这个一元二次方程的根. 输入二次方程ax2＋bx＋c=0的三个系数,计算并输出二次方程的两个实数根x1,x2,界面自行设计. vb编程题：输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,.界面如图 求助：vf编程 输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0 一元二次方程ax2＋bx+c=0中,二次项系数与常数项之和等于一次项系数,那么方程必有一个根是? 用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2 输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.Private Sub Command1_Click()Dim a%,b%,c%,,x1!,x2!a = Val(Text1)b = Val(Text2)c = Val(Text3)d = b ^ 2 - 4 * a * cIf d >= o Thenx1 = (-b + d ^ 1 / vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,单击输入并计算按钮调用InputBox函数,分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数,输入完毕后将三个数字分别显示在 实系数一元二次方程ax2+bx+c=0当b2-4ac>0时,方程解集用列举法表示为 若一元二次方程ax2+bx+c=0中的二次项系数与常数项之和等于一次项,则该方程必有一根是? 已知关于一元二次方程ax2+bx+c=0 如果 a>0 a+c0 a+c