vbs求解一元二次方程通解

Question

求求大佬帮我解答一下，这个作业真的不会。改了好多次也没懂18行哪里错了。顺便想求解一下3-2的题，拜托了!

Answer 1

你定义变量的时候不定义其数据类型，于是都是Variant类型
你从inputbox输入的是字符串，赋值给abc变量的时候，这三个变量就自动转换成字符串了。后续你的计算就出错了

Answer 2

    Dim a ,b ,c, delta 
    a = cdbl(InputBox("输入a"))
    b = cdbl(InputBox("输入b"))
    c = cdbl(InputBox("输入c"))
    
    delta = b ^ 2 - 4 * a * c
    If delta < 0 Then
        MsgBox "无解"
    Else
        Dim X1,X2
        X1 = ((-b) + Sqr(delta)) / (2 * a)
        X2 = ((-b) - Sqr(delta)) / (2 * a)
        MsgBox "两解：" & vbCrLf & X1 & vbCrLf & X2
    End If

Answer 3

请确认一下最后一个msgbox中字符串的双引号都是半角的;