Dim a As Integer, b As Integer, c As Integer
Dim s As Single, x1 As Single, x2 As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
s = Sqr(b * b - 4 * a * c)
If s = 0 Then
x1 = x2 = -b / (2 * a)
Else
If s > 0 Then
x1 = (-b + s) / (2 * a)
x2 = (-b - s) / (2 * a)
Else
x1 = -b / (2 * a) + s & "i"
x2 = -b / (2 * a) - s & "i"
End If
End If
End Sub
可以不要那个结束按钮。
private sub command1_click()
dim a,b,c as sigle
a=val(text1.text )
b=val(text2.text )
c=val(text3.text )
if b^2-4*a*c>=0 then
x1=(-b-sqr( b^2-4*a*c ))/2*a
x2=(-b-sqr( b^2+4*a*c ))/2*a
else
x1= (-b-sqr( abs(b^2-4*a*c) ))/2*a & i
x2=(-b+sqr( abs(b^2-4*a*c) ))/2*a & i
end if
end sub追问
前两句有问题·····
本回答被提问者和网友采纳vb 程序 输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二...
a = Text1.Text b = Text2.Text c = Text3.Text s = Sqr(b * b - 4 * a * c)If s = 0 Then x1 = x2 = -b \/ (2 * a)Else If s > 0 Then x1 = (-b + s) \/ (2 * a)x2 = (-b - s) \/ (2 * a)Else x1 = -b \/ (2 * a) + s & "i"x2 = ...
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程...
首先，要限制a<>0否则，根本就不是一元二次方程，后面的程序也要出错。其次，if d>=o Then 这里，这个d>=o似乎 不是零0，你写的是英文字母o。第三，公式法求根的时候，d^1\/2改为d^(1\/2)
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程...
△=b2-4ac,x1=(-b+△)\/2a ,x2=(-b-△)\/2a
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方 ...
a =val(inputbox("请输入系数a"))b =val(inputbox("请输入系数b"))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 x1=-b\/2 x2=x1 else msgbox "方程无实根！"end if ...
...b,c的值,编程求解一元二次方程ax^2+bx+c=0的根
（1）一元二次方程的解（根）的意义：能使一元二次方程左右两边相等的未知数的值称为一元二次方程的解。一般情况下，一元二次方程的解也称为一元二次方程的根（只含有一个未知数的方程的解也叫做这个方程的根）。（2）由代数基本定理，一元二次方程有且仅有两个根（重根按重数计算），根的...
...输入一元二次方程ax2+bx+c=0的各项系数a、b、c的值,
h>#include <math.h>int main(){float a,b,c,d,x1,x2;printf("请输入一元二次方程的三个系数a b c\\n");scanf("%f%f%f",&a,&b,&c);if (a==0){if (b==0){if(c==0)printf("该方程有任意解\\n");elseprintf("该方程无解\\n");}else{printf("该方程是一元一次方程，...
一元二次方程计算机解
在VB编程中，可以使用以下代码来实现一元二次方程的求解。这个代码适用于一般形式的一元二次方程 ax^2 + bx + c = 0，并会以对话框的形式显示解的结果。首先，需要定义变量a、b和c，以及可能的解x1和x2，例如：vbDim a As Double, b As Double, c As Double, x1 As Double, x2 As ...
用VB编写求一元二次方程的代码是什么?
'求一元二次方程的跟ax^2+bx+c=0 Private Sub Command1_Click()Dim a#, b#, c#, gen a = InputBox("输入A的值")b = InputBox("输入B的值")c = InputBox("输入C的值")If a = 0 And b = 0 And c = 0 Then Print "x的值是全体实数."ElseIf a = 0 And b = 0 And ...
C语言编写一个程序求解一元二次方程ax2+bx+c=0的根。要求系数a,b,c从...
下面是求解一元二次方程的C语言代码：include <stdio.h> include <math.h> int main(){ double a, b, c, x1, x2, disc;printf("请输入一元二次方程的系数a, b, c: ");scanf("%lf %lf %lf", &a, &b, &c);disc = b * b - 4 * a * c;if (disc > 0) { x1 = (...
从键盘输入一个三位正整数,输出其各位数字之立方和到屏幕上
编写一个程序，其功能为从键盘上输入一元二次方程ax2+bx+c=0的各项系数a,b,c的值（保证有两个实根），根据公式计算方程的两个根，并输出
