用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 的值后，程序会计算出方程的根并输出结果。如果方程无实数根，则输出提示信息。

相关问题

用c语言编写求一元二次方程的根 描述 求ax2+bx+c=0方程的根。a,b,c由键盘输入，设b2-4ac>0。 注意: 1、a、b、c三个变量由一条输入语句输入，中间用逗号分隔，无需考虑虚根情况。 2、求平方根需要使用函数sqrt()，例如sqrt(b*b-4*a*c)，需提前使用#include<math.h> 将库文件引入。 解题思路:首先要知道求方程式的根的方法。由数学知识已知:如果b2-4ac≥0，则一元二次方程有 两个实根:x1=-b+vb2-4ac 2a 20 x2=-b-v62-4ac，将分式分为两项:p=50q-vb2-4ac 2a 则 x1=p+q，x2=p-q，有了这些式子，只要知道a，b.c的值，就能顺利地求出方程的两个根的代码

以下是用C语言编写求一元二次方程根的代码：

#include <stdio.h>
#include <math.h>

int main()
{
double a, b, c, x1, x2, delta;
printf("请输入一元二次方程的系数a,b,c（中间用逗号分隔）：");
scanf("%lf,%lf,%lf", &a, &b, &c);
delta = b * b - 4 * a * c;
x1 = (-b + sqrt(delta)) / (2 * a);
x2 = (-b - sqrt(delta)) / (2 * a);
printf("方程的根为：x1=%.2lf, x2=%.2lf\n", x1, x2);
return 0;
}

解释：

1. 首先定义了变量a、b、c、x1、x2和delta，分别表示方程的系数、根和判别式。

2. 通过printf函数输出提示信息，让用户输入方程的系数a、b、c。

3. 使用scanf函数读取用户输入的系数，并将它们存储在对应的变量中。

4. 计算判别式delta，如果delta小于0，则方程无实数根，但由于题目中已经说明了b2-4ac>0，因此无需考虑虚根情况。

5. 根据求根公式计算方程的两个根x1和x2。

6. 使用printf函数输出方程的两个根，保留两位小数。

7. 程序结束。

PD8-1函数设计题】编写一个函数 root ( a , b . c ), alblc 接收三个参数，返回一元二次方程：ax2+ bx + c =0的两个解（b2-4ac≥0有两实根，否则无实根），实根为： - b ±vb2-4ac x =- 2a

以下是实现该函数的 Python 代码：

import math

def root(a, b, c):
    delta = b ** 2 - 4 * a * c
    if delta < 0:
        return None
    elif delta == 0:
        x = -b / (2 * a)
        return x, x
    else:
        x1 = (-b + math.sqrt(delta)) / (2 * a)
        x2 = (-b - math.sqrt(delta)) / (2 * a)
        return x1, x2

代码中使用了 math 模块来计算平方根，如果 delta 小于 0，则返回 None 表示无实根；如果 delta 等于 0，则返回两个相同的实根；否则返回两个不同的实根。