1、准备测试数据。为了能够明显看出区别，消费金额相等，而类型不同，这样就能够明显看出各种折扣价后的实际金额的区别。
2、点击开发工具|Visual Basic，进入Visual Basic编辑环境
3、在当前表单上右键鼠标，点插入|模块
4、为解决此问题，编写代码，具体如下：
Function zhekou(total, a)
If a = "上班" Then
zhekou = 0.7 * total
ElseIf a = "加班" Then
zhekou = 0.5 * total
ElseIf a = "周末" Then
zhekou = 0.9 * total
End If
End Function
5、利用刚才新建的自定义函数zhekou对实际价列进行计算
6、鼠标往下拖，得到其它两种情况的最后实际价。具体见图：
