问题描述：
VB编程 输入三角形三条边长啊,a,b,c的值,根据其数值,判断是否构成三角形.
如果能,判断三角形类型、；等边三角形,等腰三角形,直角三角形,一般三角形.
如果能,判断三角形类型、；等边三角形,等腰三角形,直角三角形,一般三角形.
问题解答：
我来补答
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
'能构成
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 "不能构成三角形"
end if
再问： 不行啊 不能判断等腰跟直角 都是显示不能构成三角形
再答： 漏了一个 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 '能构成 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 "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If
再问： 可是我写的还是有问题。
再答： 要定义一下变量类型，我给你完整的，我已经在VB里试过了。 Option Explicit Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single 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 '能构成 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 "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If End Sub
再问：
我是这样的 我感觉差不多 但是就是不能用
b = Val(inputbox("输入b"))
c = Val(inputbox("输入c"))
If a+b > c And b+c>a And c+a>b Then
'能构成
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 "不能构成三角形"
end if
再问： 不行啊 不能判断等腰跟直角 都是显示不能构成三角形
再答： 漏了一个 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 '能构成 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 "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If
再问： 可是我写的还是有问题。
再答： 要定义一下变量类型，我给你完整的，我已经在VB里试过了。 Option Explicit Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single 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 '能构成 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 "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If End Sub
再问：
我是这样的 我感觉差不多 但是就是不能用展开全文阅读