用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况：1,a=0,不是一元二次方程2,b^2-4ac=0,有两个相等的实根3,b^2-4ac>0,有两个不相等的实根

x��SMO�@�+�*�ؘ��C��@�JU���T���,��r�D
!�. �P�@ ����9����5��Mũ�l�̾}oތ\�u����(����+ Ǝ�0��8���Y�q�����r���-��,��׫��~�y�wH����N��[|�����`������J���Gk��B�xy��SHyH�p�