作业帮 > 综合 > 作业

利用InputBox输入三角形的三边长度,计算并显示三角形的面积.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/25 20:57:38
利用InputBox输入三角形的三边长度,计算并显示三角形的面积.
Sub CalcTriangle()
Dim getstr As String
Dim arr(1 To 3) As Double
Dim p As Double,s As Double
Dim i As Integer
While (True)
For i = 1 To 3
getstr = InputBox("输入三角形第" & i & "边边长","计算三角形面积",1)
If (getstr = "") Then
Exit Sub
End If
arr(i) = 0
If (IsNumeric(getstr)) Then
arr(i) = CDbl(getstr)
End If
If (arr(i)