VB判断方程是否有实数根在线等

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/09/22 18:28:37

VB判断方程是否有实数根在线等
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim i As String
a = Val(Text1.Text)
b = Val(Text2.Text)
If b * b - 4 * a * c >= 0 Then
i = "有"
Else
i = "没有"
End If
Text3.Text = i
End Sub
哪里错了

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If b * b - 4 * a * c >= 0 Then
i = "有"
Else
i = "没有"
End If
Text4.Text = i
End Sub
你的C没有定义,没有赋值

Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根已知m为实数,是判断关于x的方程mx-3x²=m²x²+1是否有实数根已知m为实数,试判断关于x的方程mx-3x=m*x*+1是否有实数根高一化学判断这句话是否正确在线等不难的在线等,在复数范围内解一元二次方程时,方程有实数根与b^2-4ac有什么关系求数学高手.在线等.关于x的方程x平方+2(k-2)x+k平方+4=0有两个不相等的实数根判断方程2x³－5x+1=0是否存在实数根已知a是实数,方程X2+2aX+1=0,有两个不相等的实数根,试判断方程（X-a)2-(2X2+3)a2+1=0是否有实利用函数图像判断下列方程有没有实数根,有几个实数根利用函数图像判断下列方程有没有实数根,有几个实数根? 已知关于x的方程x2+2x-a+1=0没有实数根，试判断关于x的方程x2+ax+a=1是否一定有两个不相等的实数根，并说 1.已知关于x的方程x^2+2x-a+1=0没有实数根,试判断关于x的方程x^2+ax+a=1是否一定有两个不相等的实数