编程计算一元二次方程的解 vb

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/04/27 15:26:33

编程计算一元二次方程的解 vb
Private Sub Command1_Click() '此程序在点击按钮Command1中完成
*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数
*** d As Single '定义变量d为单精度实型数
*** x1 As Single,x2 As Single '定义变量x1和x2为单精度实型数
a = InputBox("a=") '将用户输入a的值赋值给变量a
b = InputBox("b=") '将用户输入b的值赋值给变量b
c = InputBox("c=") '将用户输入c的值赋值给变量c
d = *** '求b^2-4ac的值赋值给变量d
'以下语句判断d的值,若小于0则直接输出“此方程无解”
'否则,求两个解x1和x2,并输出结果
If *** Then
Text***.Text = "此方程无解" '在对应的文本框中输出提示
Else
X1 = (-b + Sqr(d)) / (2 * a) '计算x1的值
X2 = (-b - Sqr(d)) / (2 * a) '计算x2的值
Text***.Text = "此方程的解为：" & "x1=" & x1 & "," & "x2=" & x2 '输出x1和x2的值
*** '条件语句结束
End Sub
求大侠改下跪谢

dim a as long
dim b as long
dim c as long
dim d as single
x1,x2也是dim(定义变量一般都是用dim)
d=b^2-4ac
if
再问： const a As long b As long c As long 定义变量a、b、c为长整型数一直弄不对
再答： const 是定义常量的下面的大哥说的是对的！我都没注意到诶。

编程计算一元二次方程的解 vb VB程序编程:画出求一元二次方程的流程图 VB 解一元二次方程程序设计 Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根 VB编程,一元二次方程a*x^2+b*x+c=0的根用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况：编程编写一个程序求一元二次方程的解用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2 vb编程题：输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,. 如何用VB求一元二次方程的虚数解（一定是虚数解）. 用VB编写一个解一元二次方程 AX2+BX+C=0的程序用VB解一元二次方程ax^2+bx+c=0的流程图