I have a Question:

       Guys, if you are a person who really know about Visual Basic and the BASIC (Begainners All-Purposed Symbolic Instructional Code) language, please tell me what's wrong with the code down there by email me at        liangqiaokajia@gmail.com

 

        Dim a, b, c, d, ans1, ans2, As Single

          d = b^2 - 4 * a * c

         If d < 0 Then

            msgbox "This eqution has no real solution!"

            ElseIf d = 0 Then

              ans1.caption = (-b) / 2 * a

              ans2.caption =  "No Secondary answer!'

            ElseIf d > 0 Then

               ans1.caption = (-b + Sqrt(d)) / 2 * a

               ans2.caption = (-b - Sqrt(d)) / 2 * a

           End If

       End Sub