UC知道VB编程判断三角形
来源：百度知道 编辑：UC知道 时间：2024/05/13 11:07:12
题目要求判断三角形的形状
若能构成三角形判断为等边，等腰，任意
编写好后输入数据，我只能判断到等腰，但是等边怎么也无法判断，要么直接显示为等腰，要么为任意。麻烦看下我写的代码
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a + b > c And a + c > b And b + c > a Then
If a = b Or a = c Or b = c Then
Label1.Caption = "等腰三角形"
ElseIf a = b = c Then
Label1.Caption = "等边三角形"
ElseIf Not (a = b Or b = c Or a = c) Then
Label1.Caption = "任意三角形"
End If
Else
Label1.Caption = "不能构成三角形"
End If
End Sub
一楼的方法不行，语句顺序改变都试过，还是显示为等腰
若能构成三角形判断为等边，等腰，任意
编写好后输入数据，我只能判断到等腰，但是等边怎么也无法判断，要么直接显示为等腰，要么为任意。麻烦看下我写的代码
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a + b > c And a + c > b And b + c > a Then
If a = b Or a = c Or b = c Then
Label1.Caption = "等腰三角形"
ElseIf a = b = c Then
Label1.Caption = "等边三角形"
ElseIf Not (a = b Or b = c Or a = c) Then
Label1.Caption = "任意三角形"
End If
Else
Label1.Caption = "不能构成三角形"
End If
End Sub
一楼的方法不行，语句顺序改变都试过，还是显示为等腰
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a + b + c <> 180 Then
Label1.Caption = "不是三角形"
ElseIf a = b And b = c Then
Label1.Caption = "等边三角形"
ElseIf (a = b And a <> c And c = 90) Or (a = c And a <> b And b = 90) Or (b = c And b <> a And a = 90) Then
Label1.Caption = "等腰直角三角形"
ElseIf (a = b And a <> c And c <> 90) Or (a = c And a <> b And b <> 90) Or (b = c And b <> a And a <> 90) Then
Label1.Caption = "等腰三角形"
ElseIf (a <> b And a <> c And c <> b) And (a = 90 Or b = 90 Or c = 90) Then
Label1.Caption = "直角三角形"
ElseIf a <> b And b <> c And c <> b And a <> 90 And b <> 90 And c <