vb程序设计，编写程序

来源：百度知道 编辑：UC知道 时间：2024/09/19 16:40:52
输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。
提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> 0 And b <> 0 And c <> 0 Then
If a ^ 2 + b ^ 2 = c ^ 2 Then d = a * b / 2
If b ^ 2 + c ^ 2 = a ^ 2 Then d = b * c / 2
If c ^ 2 + a ^ 2 = b ^ 2 Then d = c * a / 2
If a + b > c Or a + c > b Or b + c > a Then e = 1
End If
If e <> "" Then MsgBox "可以构成三角形"
If d <> "" Then MsgBox "可以构成直角三角形，面积为" & d Else MsgBox "不可以构成直角三角形"
End Sub