Question

vb选择结构程序设计能否构成三角形

Answer 1

代码如下
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入边长a")
b = InputBox("输入边长b")
c = InputBox("输入边长c")
If a + b > c And a + c > b And b + c > a Then
If (a = b And a <> c) Or (a = c And a <> b) Or (b = c And b <> a) Then
Print "是等腰三角形"
ElseIf a = b And a = c Then
Print "是等边三角形"
ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or c * c + b * b = a * a Then
Print "是直角三角形"
Else
Print "是任意三角形"
End If
Else
Print "不能构成三角形"
End If
End Sub