| |
|
|
| |
| 判断三角形 |
|
[ 2008-11-19 21:10:00 | By: 快乐虫 ] |
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = "" Or a = 0 Then
MsgBox "请输入边长A...", 0, "提示"
Text1.SetFocus
ElseIf b = "" Or b = 0 Then
MsgBox "请输入边长B...", 0, "提示"
Text2.SetFocus
ElseIf c = "" Or c = 0 Then
MsgBox "请输入边长C...", 0, "提示"
Text3.SetFocus
Else
If (a + b) > c And (a + c) > b And (b + c) > a Then
y = (a + b + c) / 2
s = Sqr(y * (y - a) * (y - b) * (y - c))
If a = b And b = c Then
MsgBox "构成等边三角形，其面积为" & Round(s, 2), 0, "判断结果"
ElseIf (a = b And b <> c) Or (a = c And c <> b) Or (b = c And c <> a) Then
MsgBox "构成等腰三角形，其面积为" & Round(s, 2), 0, "判断结果"
Else
MsgBox "构成一般三角形，其面积为" & Round(s, 2), 0, "判断结果"
End If
Else
MsgBox "不能构成三角形，请重新输入数据", 0, "判断结果"
End If
End If
End Sub
|
|
| |
|
