编写一个计算公式程序的方法取决于你希望使用哪种编程语言。下面我将提供使用Python和Excel VBA两种编程语言的示例。
Python 示例
```python
import math
def quadratic_formula（a, b, c）:
delta = b2 - 4*a*c
if delta > 0:
x1 = （-b + math.sqrt（delta）） / （2*a）
x2 = （-b - math.sqrt（delta）） / （2*a）
return x1, x2
elif delta == 0:
x = -b / （2*a）
return x
else:
return "无实根"
获取用户输入
a = float（input（"请输入二次方程的系数a: "））
b = float（input（"请输入二次方程的系数b: "））
c = float（input（"请输入二次方程的系数c: "））
调用函数并输出结果
result = quadratic_formula（a, b, c）
print（"二次方程的根为：", result）
```
Excel VBA 示例
1. 打开Excel，按下 `Alt + F11` 打开VBA编辑器。
2. 在菜单栏中选择 `插入` -> `模块`，在打开的模块窗口中粘贴以下代码：
```vba
Sub CalculateSum（）
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim sum As Double
' 设置工作表和范围
Set ws = ThisWorkbook.Sheets（"Sheet1"）
Set rng = ws.Range（"A1:A10"）
' 初始化总和
sum = 0
' 遍历范围内的每个单元格并累加
For Each cell In rng
sum = sum + cell.Value
Next cell
' 输出总和
MsgBox "总和为： " & sum
End Sub
```
3. 按下 `F5` 运行宏或关闭VBA编辑器并返回Excel，然后在 `开发工具` 选项卡中选择 `宏`，找到 `CalculateSum` 宏并运行。
总结
以上示例展示了如何使用Python和Excel VBA编写简单的计算公式程序。你可以根据自己的需求修改这些示例，以实现更复杂的计算功能。