如何用VB判断三角形的形状拜托各位了3Q

Question

如何用VB判断三角形的形状拜托各位了 3Q

Answer 1

示例代码如下： Private Sub Form_Click() a = Val(InputBox("请输入 三角形 的一条边：")) b = Val(InputBox("请输入三角形的一条边：")) c = Val(InputBox("请输入三角形的一条边：")) If a + b > c And a + c > b And b + c > a Then If a = b And b = c Then MsgBox "这是一个 等边三角形 " ElseIf (a = b And b c) Or (b = c And a c) Or (c = a And a b) Then MsgBox "这是一个 等腰三角形 " ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then MsgBox "这是一个 直角三角形 " Else MsgBox "这是一个普通三角形" End If Else MsgBox "不能组成三角形" End If End Sub