算法沒問題,按你的代碼,調(diào)整了一下
Private Sub Command1_Click()
Dim a!,b!,c!
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
Print a,b,c,"能構(gòu)成三角形"
If a = b Or b = c Or a = c Then Print "等腰三角形"
If a = b = c Then Print "等邊三角形"
Else
Print a,b,c,"不能構(gòu)成三角形"
End If
End Sub