编程面积计算器可以使用多种编程语言实现，以下是几种不同编程语言的面积计算器示例代码：
Python
```python
计算矩形的面积
def calculate_rectangle_area（length, width）:
return length * width
计算圆形的面积
def calculate_circle_area（radius）:
return 3.14 * （radius 2）
计算三角形的面积
def calculate_triangle_area（base, height）:
return 0.5 * base * height
主程序
if __name__ == "__main__":
print（"欢迎使用面积计算器!"）
print（"1. 矩形"）
print（"2. 圆形"）
print（"3. 三角形"）
choice = int（input（"请选择要计算的图形（1/2/3）: "））
if choice == 1:
length = float（input（"请输入矩形的长度： "））
width = float（input（"请输入矩形的宽度： "））
area = calculate_rectangle_area（length, width）
print（"矩形的面积为： ", area）
elif choice == 2:
radius = float（input（"请输入圆形的半径： "））
area = calculate_circle_area（radius）
print（"圆形的面积为： ", area）
elif choice == 3:
base = float（input（"请输入三角形的底： "））
height = float（input（"请输入三角形的高： "））
area = calculate_triangle_area（base, height）
print（"三角形的面积为： ", area）
```
C++
```cpp
include using namespace std； int area（int, int）； int area（int, int, int）； int main（） { int i, repeat, c, x, y, z； cin >> repeat； for （i = 0； i > c； if （c == 2）） { cin >> x >> y； cout << x >> y >> z； cout << area（x, y, z） << endl； } return 0； } int area（int x, int y） { int s； s = x * y； return s； } int area（int x, int y, int z） { int s； s = （x * y + x * z + y * z） * 2； return s； } ``` Excel VBA ```vba Sub CalculateArea（） Dim List1（1 To 100） As Double Dim List2（1 To 100） As Double Dim List3（1 To 100） As Double Dim i As Integer Dim a, b, r, s As Double i = 1 While List1（i） <> 0 List1（i） = InputBox（"请输入多边形各转折点坐标，以顺时针顺序排列，输入0结束："） i = i + 1 Wend i = 1 While i <= UBound（List1） List2（i） = InputBox（"请输入与List1对应的多边形各边的长度："） i = i + 1 Wend i = 1 While i <= UBound（List1） List3（i） = 0 i = i + 1 Wend i = 1 While i <= UBound（List1） List3（i） = （List1（i） * List2（i + 1） - List1（i） * List2（i）） + List3（i） i = i + 1 Wend s = 0 i = 1 While i <= UBound（List1） s = s + List3（i） i = i + 1 Wend s = s / 2 MsgBox "多边形的面积为： " & s End Sub ``` C