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

VB判断方程是否有实数根在线等Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim i As Stringa = Val(Text1.Text)b = Val(Text2.Text)If b * b - 4 * a * c >= 0 Theni = 有Elsei = 没有End IfText3.Text = iEnd Sub哪里错了 VB 判断是否正确 Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根如果没有根则给出相应的提示信息 求数学高手.在线等.关于x的方程x平方+2(k-2)x+k平方+4=0有两个不相等的实数根关于x的方程x2+2(k-2)x+k2+4=0有两个不相等的实数根(1)求k的取值范围;（2）是否存在实数k,使方程的两个实数根的平方 在线等,在复数范围内解一元二次方程时,方程有实数根与b^2-4ac有什么关系 已知m为实数,试判断关于x的方程mx-3x²=m²x²+1是否有实数根? 已知m为实数,是判断关于x的方程mx-3x²=m²x²+1是否有实数根 已知m为实数,试判断关于x的方程mx-3x=m*x*+1是否有实数根 已知关于x的方程kx的平方+(2k-1)x+k+1=0有实数根,求k的取值范围.急、、在线等 已知a是实数,方程X2+2aX+1=0,有两个不相等的实数根,试判断方程（X-a)2-(2X2+3)a2+1=0是否有实数根.请将过程具体些 已知关于x的方程x²-(m+1)x+1/4m²=0无实数根.(1)求m的取值范围 (2)判断关于x的方程2x+x-3+m=0是否有实数根第二问错了，判断关于x的方程2x²+x-3+m=0是否有实数根 判断方程2x³－5x+1=0是否存在实数根 方程有2个相等实数根等不等于方程只有一个实数根? 判断方程4x^2-3x=-1是否有实数根?若关于x的一元一次方程kx^2-6x+9=0有实数根,求实数k的取值范围 试判断方程x的三次方=2的x次方在区间【1,2】内是否有实数根 已知关于x的方程x²+2x-a+1=0没有实数根,判断关于x的方程x²+ax+a=1是否有两个不相等的实数根 已知关于x的方程x²+2x-a+1=0没有实数根,试判断关于x的方程x²+ax+a=1是否一定有两个不相等的实数根,并说明理由 已知关于x的方程x2-(m+1)x+?m2=0无实数根1、求m的取值范围2、判断关于x的方程2x²+x-3+m=0是否有实数根