编写函数实现计算三角形的周长和面积升学|编程|物理

【升学】编写函数实现计算三角形的周长和面积

--------------------------------------------

傻大方资讯为您精选的网友回复（供您参考）：

[编程] Function fun三角形周长(ByVal dbl一边长 As Double, ByVal dbl二边长 As Double, ByVal dbl三边长 As Double) As String If dbl一边长 + dbl二边长 > dbl三边长 AndAlso dbl一边长 + dbl三边长 > dbl二边长 AndAlso dbl二边长 + dbl三边长 > dbl一边长 Then ' 这里测试三边长是否符合三角形任意两边之和大于第三边 Return CStr(dbl一边长 + dbl三边长 + dbl二边长) Else Return "提供的三边长不符合三角形的规则！" End If End Function Function fun三角形面积(ByVal dbl一边长 As Double, ByVal dbl二边长 As Double, ByVal dbl三边长 As Double) As String Dim str三角形周长 As String = CStr(fun三角形周长(dbl一边长, dbl二边长, dbl三边长)) If str三角形周长 <> "提供的三边长不符合三角形的规则！" Then Dim dbl三角形周长一半 As Double = CDbl(str三角形周长) / 2 Dim dbl三角形面积 As Double = Math.Sqrt(dbl三角形周长一半 * (dbl三角形周长一半 - dbl一边长) * (dbl三角形周长一半 - dbl二边长) * (dbl三角形周长一半 - dbl三边长)) Return CStr(dbl三角形面积) Else Return "提供的三边长不符合三角形的规则！" End If End Function这是 .NET Basic 的函数，符合你的要求吗？

--------------------------------------------