vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 10:28:13
vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,
单击输入并计算按钮调用InputBox函数,分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数,输入完毕后将三个数字分别显示在三个text控件中,程序自动判断三个数字能否构成二次方程,如果能则在Msgbox中计算得出方程的实根,如果不能构成二次方程则利用Msgbox提示“此方程不是二次方程”;如果方程没有实根,也利用Msgbox提示“此方程没有实根”
单击输入并计算按钮调用InputBox函数,分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数,输入完毕后将三个数字分别显示在三个text控件中,程序自动判断三个数字能否构成二次方程,如果能则在Msgbox中计算得出方程的实根,如果不能构成二次方程则利用Msgbox提示“此方程不是二次方程”;如果方程没有实根,也利用Msgbox提示“此方程没有实根”
Sub Command1_Click()
Dim Delta As Single
Dim a As Single,b As Single,c As Single
Dim x1 As Single,x2 As Single
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
Delta = b ^ 2 - 4 * a * c
If Delta > 0 Then
x1 = (-1 * b - Sqr(Delta)) / (2 * a)
x2 = (-1 * b + Sqr(Delta)) / (2 * a)
Else
MsgBox "方程没有实数根!"
Exit Sub
End If
Text4 = x1
Text5 = x2
End Sub
Sub Command2_Click()
Unload Me
End Su
Dim Delta As Single
Dim a As Single,b As Single,c As Single
Dim x1 As Single,x2 As Single
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
Delta = b ^ 2 - 4 * a * c
If Delta > 0 Then
x1 = (-1 * b - Sqr(Delta)) / (2 * a)
x2 = (-1 * b + Sqr(Delta)) / (2 * a)
Else
MsgBox "方程没有实数根!"
Exit Sub
End If
Text4 = x1
Text5 = x2
End Sub
Sub Command2_Click()
Unload Me
End Su
vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,
VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计
vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,
vb编程题:输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,.
编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
解一元二次方程ax2+bx+c=0的解.c语言编程求代码
VB中输入方程ax2+bx+c=0的三个系数a、b、c(设a不等于零),求方程的根(要求输出时保留小数点两位).
关于VB的题 从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根”
C语言程序设计求方程的解:求ax2+bx+c=0方程的实根.a,b,c由键盘输入.
求一元二次方程阿ax2(方)+bx+c=0的根(包括实根和复根)
求一元二次方程ax2+bx+c=0的解.a,b,c为任意实数.c语言编程