编写利润程序需要根据具体的应用场景和需求来设计。以下是几种不同情况下的利润计算程序示例：
示例1：简单的C语言程序计算不同利润区间的利润率
```c
include
int jiangjin_1（int lirun） {
if （lirun <= 100000） {
return lirun * 0.1；
} else if （lirun <= 200000） {
return 100000 * 0.1 + （lirun - 100000） * 0.075；
} else if （lirun <= 400000） {
return 100000 * 0.1 + 100000 * 0.075 + （lirun - 200000） * 0.05；
} else if （lirun <= 600000） {
return 100000 * 0.1 + 100000 * 0.075 + 200000 * 0.05 + （lirun - 400000） * 0.03；
} else if （lirun <= 1000000） {
return 100000 * 0.1 + 100000 * 0.075 + 200000 * 0.05 + 400000 * 0.03 + （lirun - 600000） * 0.01；
} else {
return 100000 * 0.1 + 100000 * 0.075 + 200000 * 0.05 + 400000 * 0.03 + 600000 * 0.01 + （lirun - 1000000） * 0.01；
}
}
int main（void） {
int lirun；
printf（"请输入利润（单位万元）: "）；
scanf（"%d", &lirun）；
int profit = jiangjin_1（lirun）；
printf（"利润： %d万元\n", profit）；
return 0；
}
```
示例2：使用Excel VBA计算利润
1. 打开Excel，创建一个新的工作簿。
2. 在Sheet1中，设置预算表头，如“月份”、“收入”、“成本”、“利润”等。
3. 使用快捷键Ctrl + T创建表格，便于后续数据处理。
4. 输入预算数据，如各月的收入、成本等。
5. 在“利润”列的单元格中输入公式=B2-C2（假设收入在B列，成本在C列），然后拖动填充柄（或使用快捷键Ctrl + E）应用到整个列。
6. 编写VBA代码自动计算利润：
```vba
Sub 自动计算利润（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
Dim rngIncome As Range
Dim rngCost As Range
Dim rngProfit As Range
Set rngIncome = ws.Range（"B2:B13"） ' 假设收入数据在B2到B13
Set rngCost = ws.Range（"C2:C13"） ' 假设成本数据在C2到C13
Set rngProfit = ws.Range（"D2:D13"） ' 利润数据在D2到D13
For Each cell In rngProfit
cell.Value = rngIncome.Cells（cell.Row - 1, 1）.Value - rngCost.Cells（cell.Row - 1, 1）.Value
Next cell
End Sub
```
示例3：使用C语言计算利润并输出结果