UC知道谁告诉我哪裏错暸
来源：百度知道 编辑：UC知道 时间：2024/05/04 18:58:55
VB中的
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If (b * b - 4 * a * c) >= 0 Then
Text4.Text = (-b + Sqr(b * b - 4 * a * c)) / 2 * a
Text5.Text = (-b - Sqr(b * b - 4 * a * c)) / 2 * a
Else
Label7.Caption = "无实数解！！"
End If
End Sub
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If (b * b - 4 * a * c) >= 0 Then
Text4.Text = (-b + Sqr(b * b - 4 * a * c)) / 2 * a
Text5.Text = (-b - Sqr(b * b - 4 * a * c)) / 2 * a
Else
Label7.Caption = "无实数解！！"
End If
End Sub
是不是括号?
Text4.Text = (-b + Sqr(b * b - 4 * a * c)) /( 2 * a )
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If (b * b - 4 * a * c) >= 0 Then
Text4.Text = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)
Text5.Text = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)
Else
Label7.Caption = "无实数解！！"
Label7 = Val(b * b - 4 * a * c)
End If
End Sub