[第14期]计算多边形的面积

snood

一、题目内容：
使用EXCEL根据给出的数据制作闭合的多边形，并计算多边形所围的面积。
附加：计算周长（不评分）。

 

计算闭合多边形的面积，是个老问题了，很实用。这次出了竞赛题，大家好好研究了一番。

有多种方法了，总的来说不难，但不小心就会算错。方法也有繁简，不点名了。

做对的人可能就此打住了，做错的人可能会进行更深入的分析，倒有可能做出全新的计算方案。

[此贴子已经被作者于2006-8-24 16:05:53编辑过]

chrisfang

Snood版主的题目肯定用图表解是最好的，我性子急，先给个函数公式的答案先：

lotustower

圖表學習

northwolves

我的解法:

结果差了一点点，VBA编辑得很好。

谢谢snood点评

狂晕。冤死了，括号括错位置了，白丢了分：

Private Sub CommandButton1_Click()
Dim i As Integer
For i = ActiveSheet.Shapes.Count To 1 Step -1
If ActiveSheet.Shapes(i).Type = 9 Then ActiveSheet.Shapes(i).Delete
Next
End Sub

Private Sub CommandButton2_Click()
Dim i As Integer, arr, p As Single, s As Single

arr = Range("a3:b14")
For i = 2 To 12
ActiveSheet.Shapes.AddLine arr(i, 1) / 4, arr(i, 2) / 4, arr(i - 1, 1) / 4, arr(i - 1, 2) / 4
s = s + (arr(i, 1) - arr(i - 1, 1)) * (arr(i, 2) + arr(i - 1, 2)) / 2
p = p + Sqr((arr(i, 1) - arr(i - 1, 1)) ^ 2 + (arr(i, 2) - arr(i - 1, 2)) ^ 2)
Next
MsgBox "该多边形的面积为:" & s & vbCrLf & vbCrLf & "周长为:" & p
Application.StatusBar = "该多边形的面积为:" & s & vbCrLf & vbCrLf & "周长为:" & p
End Sub

[此贴子已经被作者于2006-8-30 23:09:45编辑过]

chrisfang

几位版主的答案又漏出来了，幸好昨天已经交过卷。昨天的答案里忘了画图，今天补上：

 

lg_cai

一不小心，把合计的公式弄错了，遗憾

[此贴子已经被作者于2006-8-24 22:28:38编辑过]

fanjy

不知道理解得对不对，答案见附件。

BIN_YANG168

晕，没有选择就投票了，系统默认选择非常困难，呵呵。

感觉本期图表题好像在作数学题。

偶的答案。请版主过目。

菜虫

实在太忙，没有认真检查。自认为思路是对的。

qee用