(三角形面积)求助这货到底还差什么东西···谢谢!!!
额,抱歉,叨扰了。学校的作业题,然后做到这儿卡住了····求助···呜呜,谢谢!!!作业:【实验题3-4】输入三角形三条边的长度x,y,z,计算并显示三角形的面积。面积公式为: ,其中, 。
提示:在3个文本框中分别输入x,y,z的值,单击“计算面积”,在第4个文本框中输出计算结果;单击“清除”,将4个文本框的内容清空;单击“退出”,程序结束。文本框用Text属性。
说明:如果3条边不构成三角形,也就是说,l * (l - x) * (l - y) * (l - z)是负数,会出现“实时错误’5’”。
下面是我写的(别拍飞我···)
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
If l * (l - x) * (l - y) * (l - z) < 0 Then
MsgBox ("实时错误'5'")
Else
l = (x + y + z) / 2
Text4.Text = s = Sqr(l * (l - x) * (l - y) * (l - z))
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub