摘要：《汽车配件管理》课程比较枯燥，学生学习起来兴趣不大。如何解决这个问题呢？笔者在这门课的教学中，有意引入VAB语言编写小程序，正所谓“他山之石可以攻玉”，收到了很好的效果。
　　关键词：VBA语言；汽车配件管理；程序；应用
　　《汽车配件管理》课程的内容主要有：汽车配件的采购管理、库存管理、仓储管理、销售管理等。《汽车配件管理》课比较枯燥，学生学习起来兴趣不大。如何解决这个问题呢？笔者在这门课的教学中，有意引入VAB语言，让学生动手编写小程序，收到了很好的效果。
　　1课程融合，让学生有兴趣
　　VBA是什么？它是Visual Basic For Application的简称，是一种自动化语言。在EXCEL中的宏，就是用来执行命令的一些VBA语句，能使EXCEL自动化。《汽车配件管理》这门课没有VBA编程的内容，VAB语言简单易学，利用Excel中自带的VBA语言编程学习《汽车配件管理》这门课是可行的。
　　引入VAB语言编写小程序，课程融合，让学生动手编写小程序。在教学中先观看微课，微课如下：（1）录制一个宏；（2）制作按钮；（3）在按钮内添加录制的宏程序。让学生感觉简单，并且激发学生学习的兴趣。然后，学习VBA的基本知识，学以致用，编写程序。VBA基本的语句有：
　　（1）循环语句
　　例1：
　　aa=0
　　For j = 1 To 12
　　aa = aa+1 ‘累加
　　Next j
　　Cells（1，2）=aa
　　例2：
　　aa=0
　　Do
　　aa = aa + 1
　　Loop Until aa=12
　　Cells（1，3）=aa
　　（2）判断语句
　　1If …… Then
　　……
　　End If
　　2If …… Then
　　……
　　Else
　　……
　　End If
　　3 If ……Then
　　……
　　ElseIf …… Then
　　……
　　Else：……
　　End If
　　2 结合课程内容练习简单的编程
　　例如：计算出目前库存量，并确认是否需要订货。
　　（1）将下列语句写在“计算”按钮中：
　　For j=2 to 11
　　Cells（j，7）= Cells（j，2）+ Cells（j，3）- Cells（j，4）
　　If Cells（j，7）< Cells（j，5）Then
　　Cells（j，8）= "要进货了！"
　　ElseIf Cells（j，7）> Cells（j，6）Then
　　Cells（j，8）= "不要进货！"
　　Else：Cells（j，8）= "正常！"
　　End If
　　Next j
　　运行结果：
　　（2）在“凸轮轴”的下方再添加数据：“灯泡，5，4，2，3，6”，然后点击“计算”按钮。得到的结果是什么？程序应该如何修改呢？
　　在这个过程中学生能够体会最大库存量、最小库存量以及安全库存的概念。
　　3 布置大作业，培养学生的创新能力
　　利用excel软件平台，设计出一个小管理软件。要求具有：入库、出库、库存、查询的功能。培养学生的创新能力。
　　学生结合《汽车配件管理》的知识把软件的框架搭建起来。思路如下：在excel工作薄内放置4张工作表，分别命名为：入库、出库、库存、查询。第一行当作表头，分别为：日期、代号、配件名称、单位、数量、单价、金额、类型。
　　学生之间相互讨论共同完成作业。有学生说：越学习越感到有乐趣，总会碰到疑难问题，解决了一个又会有新的问题产生。我鼓励学生，要克服前进中的困难奋勇前行。比如解决单元格中下拉菜单的问题，自动生成金额的问题。
　　开展课外辅导，老师及时与学生进行沟通，善于发现编程中的闪光点。在网上有很多有关VBA的知识，学生可以进一步地加以学习。在网上学生可以找到查找相关的代码。有个别学生就是采用把excel表格当数据库来完成统计、查询功能的。
　　为了降低难度，老师给学生提供参考的代码。库存统计的代码如下：
　　Dim a（），b（）As Integer
　　Do
　　mm1 = mm1 + 1
　　Loop Until Sheets（1）.Cells（mm1，1）= ""
　　Do
　　mm2 = mm2 + 1
　　Loop Until Sheets（2）.Cells（mm2，1）= ""
　　Do
　　mm3 = mm3 + 1
　　Loop Until Sheets（3）.Cells（mm3，1）= ""
　　ReDim Preserve a（mm3），b（mm3）'给动态数组重定义一个实际的大小
　　For i = 1 To mm3
　　a（i）= 0
　　Next i
　　For i = 0 To mm3 - 1
　　b（i）= 0
　　Next i
　　For i3 = 2 To mm3 - 1
　　For i1 = 2 To mm1 - 1
　　If Sheets（1）.Cells（i1，2）.Value = Sheets（3）.Cells（i3，1）.Value Then
　　a（i3）= a（i3）+ Sheets（1）.Cells（i1，5）
　　End If
　　Next i1
　　For i2 = 2 To mm2 - 1
　　If Sheets（2）.Cells（i2，2）.Value = Sheets（3）.Cells（i3，1）.Value Then
　　b（i3）= b（i3）+ Sheets（2）.Cells（i2，5）
　　End If
　　Next i2
　　Sheets（3）.Cells（i3，4）.Value = a（i3）
　　Sheets（3）.Cells（i3，5）.Value = b（i3）
　　Sheets（3）.Cells（i3，6）.Value = Sheets（3）.Cells（i3，2）+ a（i3）- b（i3）
　　If Sheets（3）.Cells（i3，6）< 15 Then
　　Sheets（3）.Cells（i3，7）.Value = "要进货"
　　End If
　　Next i3
　　4 小结
　　“他山之石可以攻玉”。通过设计小程序，学生掌握了数据的输入、统计、查询的方法，有效地达成《汽车配件管理》的教学目标。在这个过程中激发了学生学习的兴趣，培养了学生的创新能力，解决问题的能力；学生能享受成功的喜悦。
　　参考文献：
　　[1]林凤《汽车配件管理与营销》重庆大学出版社 2011年1月
　　[2]魏汪洋《从零开始学Excel VBA》电子工业出版社 2014 年10月