高分悬赏vb编程作业代码 邮箱 [email protected]

Question

各位高手大哥大姐帮帮忙啦
具体题目内容如下：单击命令按钮，出现3个inputbox输入x,y,z
判断其数值，判断是否构成三角形。如能构成三角形，则显示三角形的性质：等边三角形，等腰三角形，直角三角形，任意三角形。
要求：判断结果显示在列表框中，不能构成三角形的显示不能构成三角形结论。

Answer 1

Private Sub Command1_Click()

Dim l(2) As Double
Dim temp As Double
For i = 1 To 3
l(i - 1) = Val(InputBox("请输入第" & i & "条线段长度"))
If l(i - 1) > l(0) Then temp = l(0): l(0) = l(i - 1): l(i - 1) = temp
Next
List1.AddItem "三角形三边关系为:最短两条边的长度和大于第三边长度"

If l(1) + l(2) > l(0) Then
List1.AddItem "长度为" & l(0) & "、" & l(1) & "、" & l(2) & "的三条线段能构成三角形"
Else
List1.AddItem "长度为" & l(0) & "、" & l(1) & "、" & l(2) & "的三条线段不能构成三角形"
List1.AddItem "最短的两条边长度为" & l(1) & "、" & l(2) & ",和不大于第三条边长度" & l(0)
List1.AddItem "以上条件不符合三角形三边关系"
Exit Sub
End If

'等边三角形，等腰三角形，直角三角形，任意三角形判定
Dim b As Boolean
b = False
If l(0) = l(1) Or l(0) = l(2) Or l(1) = l(2) Then List1.AddItem "三角形为等腰三角形": b = True
If l(0) = l(1) And l(0) = l(2) Then List1.AddItem "三角形为等边三角形": b = True
If l(1) ^ 2 + l(2) ^ 2 = l(0) ^ 2 Then List1.AddItem "三角形为直角三角形": b = True
If b = False Then List1.AddItem "三角形为任意三角形"

End Sub

Answer 2

Private Sub Command1_Click()
Dim x%, y%, z%
x = InputBox("input x:", 综合大作业)
y = InputBox("input y:", 综合大作业)
z = InputBox("input z:", 综合大作业)
If (x + y > z And x + z > y And y + z > x) Then
If x ^ 2 + y ^ 2 = z ^ 2 Or x ^ 2 + z ^ 2 = y ^ 2 Or y ^ 2 + z ^ 2 = x ^ 2 Then
List1.AddItem "是直角三角形"
End If
If x = y Or x = z Or y = z Then
If x = y And y = z Then
List1.AddItem "是等边三角形"
End If
List1.AddItem "是等腰三角形"
End If
If (x + y > z And x + z > y And y + z > x) And _
Not (x ^ 2 + y ^ 2 = z ^ 2 Or x ^ 2 + z ^ 2 = y ^ 2 Or y ^ 2 + z ^ 2 = x ^ 2) And Not (x = y Or x = z Or y = z) Then

List1.AddItem "是其他三角形"
End If
Else
List1.AddItem "不能构成三角形"

End If
End Sub

Private Sub Form_Load()
Form1.Caption = "三角形判断"
End Sub