Question

VB编程题，求这题的代码，题在问题补充中，谢谢

输入三角形的三条边a、b、c的值，根据其数值，判断能付构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。

Answer 1

Private Sub Command1_Click()
a = Val(InputBox("a=?"))
b = Val(InputBox("b=?"))
c = Val(InputBox("c=?"))
If a + b > c And Abs(a - b) < c Then
Print "能组成三角形"
If a <> b And a <> c And b <> c Then Print "任意"
If a = b And a <> c Then
Print "等腰"
ElseIf a = c And a <> b Then
Print "等腰"
ElseIf b = c And b <> a Then
Print "等腰"
ElseIf a = b And a = c Then
Print "等边"
End If
Else
Print "不能组成三角形"
End If
End Sub

追问

大哥，是用VB编程，你给的不是VB

追答

当然是VB了。