Question

VB问题！！！求大神帮个忙 使用Inputbox任意输入三个边长，判断是否能构成三角形，若能构

VB问题！！！求大神帮个忙

使用Inputbox任意输入三个边长，判断是否能构成三角形，若能构成三角形，则判断该三角形是等边、等腰还是一般三角形

这个的代码是什么？？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Dim a As Integer, b As Integer, c As Integer
Private Sub Command1_Click()
a = Val(InputBox("a"))
b = Val(InputBox("b"))
c = Val(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 MsgBox "等腰三角形"
If a = b And a = c Then MsgBox "等边三角形"
If a <> b And a <> c And b <> c Then MsgBox "一般三角形"
Else
MsgBox "不构成三角形"
End If
End Sub