用vb写一段代码，求方程ax^2+bx+c的根，其中a，b，c由键盘输入。

以下是用 VB 编写的求解二次方程的代码：

Dim a, b, c, delta, x1, x2 As Double
Console.Write("请输入 a：")
a = Console.ReadLine()
Console.Write("请输入 b：")
b = Console.ReadLine()
Console.Write("请输入 c：")
c = Console.ReadLine()

delta = b * b - 4 * a * c

If delta < 0 Then
    Console.WriteLine("方程无实数根！")
ElseIf delta = 0 Then
    x1 = -b / (2 * a)
    Console.WriteLine("方程有一个实数根：x = " & x1)
Else
    x1 = (-b + Math.Sqrt(delta)) / (2 * a)
    x2 = (-b - Math.Sqrt(delta)) / (2 * a)
    Console.WriteLine("方程有两个实数根：x1 = " & x1 & "，x2 = " & x2)
End If

输入 a、b、c 的值后，程序会计算出方程的根并输出结果。如果方程无实数根，则输出提示信息。