'This file is named quadratic.vb
'Kevin Jones
'CA 121, Intro to Programming
'062

Imports System
Imports System.Math

Public Module Quadratic
   Sub Main()
	Dim a, b, c As Double
	Dim X1, X2 As Double
	a = 2.0
	b = 3.0
	c = 0.0

	System.Console.WriteLine("Solving y= " & a & "x^2 + " & b & "x + " & c & "...")

	x1 = (-b + sqrt(b^2 - 4*a*c))/(2*a)
	x2 = (-b - sqrt(b^2 - 4*a*c))/(2*a)

	System.Console.WriteLine("Roots are ")
	System.Console.WriteLine(x1)
	System.Console.WriteLine(x2)

   End Sub
End Module

'run following command to compile this source
'vbc quadratic.vb