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

解决方案 »

  1.   

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

  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
      

  3.   

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