求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.

首页 > 中学数学试题 > 题目详情

求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.

2022-03-14 04:16:17 51次反馈错误加入收藏正确率 : 100%

题目内容：

求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.

优质答案解析

王老师

回答题目：2621条

Private Sub Command1_Click()
Dim A As Single,B As Single,C As Single
Dim R1 As Single,R2 As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C < 0 Then
MsgBox "该方程无解."
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有一个根为" & R1 & "."
Else
R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."
End If
End Sub

本题链接：

大家查题吧

首页 > 中学数学试题 > 题目详情

求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.

题目内容：

求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.

看完仍有疑问？有类似问题直接问老师