a = Val(inputbox("輸入a"))
b = Val(inputbox("輸入b"))
c = Val(inputbox("輸入c"))
If a+b > c And b+c>a And c+a>b Then
'能構(gòu)成
If a=b And b=c Then
Msgbox "等邊三角形"
ElseIf a=b Or b=c Or a=c Then
Msgbox "等腰三角形"
ElseIf a^2 + b^2 = c^2 Or a^2 + c^2 = b^2 Or c^2 + b^2 = a^2 Then
Msgbox "一般三角形"
end if
Else
Msgbox "不能構(gòu)成三角形"
end if漏了一個(gè)a = Val(InputBox("輸入a"))b = Val(InputBox("輸入b"))c = Val(InputBox("輸入c"))If a + b > c And b + c > a And c + a > b Then'能構(gòu)成If a = b And b = c ThenMsgBox "等邊三角形" ElseIf a = b Or b = c Or a = c ThenMsgBox "等腰三角形" ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 ThenMsgBox "直角三角形" ElseMsgBox "一般三角形" End IfElse MsgBox "不能構(gòu)成三角形"End If要定義一下變量類型，我給你完整的，我已經(jīng)在VB里試過了。Option ExplicitPrivate Sub Command1_Click()Dim a As SingleDim b As SingleDim c As Singlea = Val(InputBox("輸入a"))b = Val(InputBox("輸入b"))c = Val(InputBox("輸入c"))If a + b > c And b + c > a And c + a > b Then'能構(gòu)成If a = b And b = c ThenMsgBox "等邊三角形" ElseIf a = b Or b = c Or a = c ThenMsgBox "等腰三角形" ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 ThenMsgBox "直角三角形" ElseMsgBox "一般三角形" End IfElse MsgBox "不能構(gòu)成三角形"End IfEnd Sub