用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/09 00:20:12
用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误
![用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误](/uploads/image/z/7589070-54-0.jpg?t=%E7%94%A8VB%E7%BC%96%E7%A8%8B%2C%E6%A0%B9%E6%8D%AE%E8%BE%93%E5%85%A5%E7%9A%843%E4%B8%AA%E8%BE%B9%E9%95%BF%E5%80%BC%E8%AE%A1%E7%AE%97%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%84%E9%9D%A2%E7%A7%AF%2C%E5%A6%82%E6%9E%9C%E8%BE%93%E5%85%A5%E5%80%BC%E4%B8%8D%E7%AC%A6%E5%90%88%E2%80%9C%E4%BB%BB%E6%84%8F%E4%B8%A4%E8%BE%B9%E4%B9%8B%E5%92%8C%E5%A4%A7%E4%BA%8E%E7%AC%AC%E4%B8%89%E8%BE%B9%E2%80%9D%E6%8F%90%E7%A4%BA%E9%94%99%E8%AF%AF)
Public Function Area(a As Double, b As Double, c As Double) As Double
If a + b < c Or a + c < b Or b + c < a Then
MSGBOX "要求任意两边之和大于第三边"
Exit Function
endif
Dim s As Double
s = 0.5 * (a + b + c)
a = s - a
b = s - b
c = s - c
Area = Sqr(s * a * b * c)
End Function
Private Sub Command1_Click()
Me.Caption = Area(3, 4, 5)
End Su
If a + b < c Or a + c < b Or b + c < a Then
MSGBOX "要求任意两边之和大于第三边"
Exit Function
endif
Dim s As Double
s = 0.5 * (a + b + c)
a = s - a
b = s - b
c = s - c
Area = Sqr(s * a * b * c)
End Function
Private Sub Command1_Click()
Me.Caption = Area(3, 4, 5)
End Su
用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误
从键盘上输入三角形的三边,并判断任意两边之和是否大于第三边,然后计算其周长和面积 VB代码
VB题目:输入三角形的三边编程求出面积
三角形的判定是任意两边之和大于第三边.如果只考虑两边之和大于第三边且这两边差的绝对值小于第三边行吗
如何证明三角形的任意两边之和大于第三边
三角形任意两边之和大于第三边这个性质的根据是什么
VB编程 输入三角形三条边长啊,a,b,c的值,根据其数值,判断是否构成三角形.
VB编程 利用InputBox输入三角形的三条边,计算其面积(用msgbox输出).
用学过的几何知识表示三角形任意两边之和大于第三边
用反证法证明三角形任意两边之和大于第三边
构成三角形的条件?是不是任意两边之和大于第三边,两边之差小于第三边?(注意任意)
编程题:编写程序输入三角形的3条边长,计算并输出三角形的面积.