vb 编程~~~~~~~

来源：百度知道 编辑：UC知道 时间：2024/07/07 08:46:09
3.在命令按钮command1的单击事件内完成求出三角形面积。三角形面积公式为：Area=sqr(s*(s-a)*(s-b)*(s-c)) ，其中s=(a+b+c)/2。三角形的三条边长a、b、c分别由三个文本框text1,text2,text3输入，求得面积由文本框text4输出，界面如图。
如果不能构成三角形则在文本框text4输出"不能构成三角形"。数据类型均采用Single类型(包括面积Area).
提示：需要判断输入的边长能否构成三角形.

Private Sub Form_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) S = (a + b + c) / 2
If a + b <= c Or a + c <= b Or b + c <= a
Then Text4.Text = "不能构成三角形"
Else
Text4.Text = Sqr(S * (S - a) * (S - b) * (S - c))
End IfEnd Sub

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim S As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
S = (a + b + c) / 2
If a + b <= c Or a + c <= b Or b + c <= a Then
Text4.Text = "不能构成三角形"
End If
Else
Text4.Text = Sqr(S * (S - a) * (S - b) * (S - c))
End IfEnd Sub