三角形！！！！！！！！！

Private Sub Command2_Click()
Dim a, b, c As Integer
a = Val(InputBox("输入a的值"))
b = Val(InputBox("输入b的值"))
c = Val(InputBox("输入c的值"))
If a + b <= c Or b + c <= a Or a + c <= b Then
Print "ERROR!!!"
Else
If a = b And b = c Then
Print "等边三角形"
Else
If a = b Or b = c Or a = c Then Print "等腰三角形"
End If
If a * a + b * b = c * c Or a * a = b * b + c * c Or a * a + c * c = b * b Then
Print "直角三角形"
Else
If a <> b And b <> c And a <> c Then Print "一般三角形"
End If
End If
End Sub


多多指教

哟西....

PTY 别用我ID了阿 操

Private Sub Command1_Click()
a = Val(InputBox("a="))
b = Val(InputBox("b="))
c = Val(InputBox("c="))
If a = 0 Then
Print "a=0 没有二次"
End If
If a <> 0 Then
delta = b * b - 4 * a * c
If delta < 0 Then
Print "无解"
Else: X1 = (-b + Sqr(delta)) / (2 * a)
X2 = (-b - Sqr(delta)) / (2 * a)
Print "x1=", X1, "x2=", X2
End If End If End Sub

补发一炮...

刚才的解方程不是我发的
Private Sub Command1_Click()
a = Val(InputBox("a="))
b = Val(InputBox("b="))
c = Val(InputBox("c="))
If a <> 0 Then
delta = b * b - 4 * a * c
If delta < 0 Then
Print "NO ANSWER"
Else: X1 = (-b + Sqr(delta)) / (2 * a)
X2 = (-b - Sqr(delta)) / (2 * a)
Print "x1="; X1, "x2="; X2
End If
Else
If b = 0 Then
If c = 0 Then Print "x is all" Else Print "NO ANSWER"
Else
x = -c / b
Print "x="; x
End If
End If
End Sub