Question

求一vb程序代码，输入三个数字判断是等腰三角形，等边三角形，一般三角形还是不是三角形。

求一vb程序代码，输入三个数字判断是等腰三角形，等边三角形，一般三角形还是不是三角形。只要是输出结果有4个的vb代码都可以！不要判断直角，锐角，钝角三角形的 谢谢！

Answer 1

dim a,b,c as double
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b <= c Or a + c <= b Or b + c <= a Then
Print "不是三角形"
Else
If a = b And b = c Then
MsgBox "等边三角形"
Else
If a = b Or b = c Or a = c Then
MsgBox "等腰三角形"
Else
MsgBox "一般三角形"
End If
End If
End If

Answer 2

Private Sub Form_Load()
Dim a As Long, b As Long, c As Long
a = InputBox("请输入a边长度", "三角形判断")
b = InputBox("请输入b边长度", "三角形判断")
c = InputBox("请输入c边长度", "三角形判断")
If a + b <= c Or a + c <= b Or b + c <= a Then
MsgBox "不能构成三角形！"
Else
If a = b And b = c Then
MsgBox "是等边三角形！"
Else
If a = b Or a = c Or b = c Then
MsgBox "是等腰三角形！"
Else
MsgBox "是一般三角形！"
End If
End If
End If
End Sub

Answer 3

Private Sub Command1_Click()
Dim arr
arr = InputBox("a,b,c", "输入三角形的三条边", "3,4,5")
arr = Split(arr, ",")
If Val(arr(0)) + Val(arr(1)) <= Val(arr(2)) Or Val(arr(0)) + Val(arr(2)) <= Val(arr(1)) Or Val(arr(1)) + Val(arr(2)) <= Val(arr(0)) Then
MsgBox "不是三角形"
Exit Sub
End If
If Val(arr(0)) = Val(arr(1)) And Val(arr(1)) = Val(arr(2)) Then
MsgBox "等边三角形"
Exit Sub
End If
If Val(arr(0)) = Val(arr(1)) Or Val(arr(1)) = Val(arr(2)) Or Val(arr(0)) = Val(arr(2)) Then
MsgBox "等腰三角形"
Exit Sub
End If
MsgBox "任意三角形"
End Sub

Answer 4

直接用三边关系定理写最简单的If语句