是雏还是鹰——编程规范之变量命名

看过很多人找工作的经历，从他们的言语中感触最深的几句话就是“应届生不好找工作”，“没有工作经验根本没戏”如此云云。那么为什么应届生不好找工作，为什么用人单位想要有工作经验的人？

简单说来就是，用人单位希望它花钱雇的人可以马上为他创造效益，他们要的是“鹰”不是“雏”！

这么说来其实并不是应届生不好找工作，也不是没经验不好找工作。而是你不能直接为企业创造效益所以不好找到工作，这才是根本。那么怎样让用人单位认为你可以为它创造效益，或者说怎样让用人单位认为你是专业人士而不是个新手？

当然了区别专业与业余的标识除了基础知识以及专业技能之外，还有一个最基本的也是很多人最容易忽视的地方——编码规范。基础知识以及专业技能先不说，因为那些是需要长时间的学习，需要坚强的精神和不拔的毅力，绝不是一朝一夕可以解决的问题。而今天我们从最基本的最容易的也是很多人最容易忽视的编码规范说起。

从一个人的代码中可以大致断定这个人是“雏”还是“鹰”，是专业人士还是刚毕业的学生。

先看看下面的代码：

Sub ExportExcel(ByVal a As DataGridView, ByVal b As Boolean)
        Try
            Dim n, i, j, row, col As Integer
            Dim e As Excel.Application = New Excel.Application
            e.Application.Workbooks.Add(True)
            col = 1
            For n = 0 To a.ColumnCount - 1
                If b Then
                    If a.Columns(n).Visible Then
                        e.Cells(1, col) = a.Columns(n).HeaderText
                        col = col + 1
                    End If
                Else
                    e.Cells(1, n + 1) = a.Columns(n).HeaderText
                End If
            Next
            row = 2
            For i = 0 To a.RowCount - 1
                col = 1
                For j = 0 To a.ColumnCount - 1
                    If b Then
                        If a.Columns(j).Visible Then
                            e.Cells(i + 2, col) = a.Rows(i).Cells(j).Value
                            col = col + 1
                        End If
                    Else
                        e.Cells(i + 2, j + 1) = a.Rows(i).Cells(j).Value
                    End If
                Next
            Next
            e.Visible = True
        Catch ex As Exception
            Throw ex
        End Try
End Sub

上面是一个并不复杂的过程，相信没几个人能耐着性子看完，更别说看懂了。如果你在面试的时候写出这样的代码，那么可以放心的告诉自己“对不起，肯定被Pass了！”，因为从代码上用人单位就认为你是一个新手，或者说就认为你不能马上为企业创造效益。

仅从变量命名方面看就知道写这段代码的人是个“雏”！用字母命名变量，什么a，b等等。这是谁干的事？这是学生干的事，肯定不是专业人士干的事！这样的命名给后来的代码维护增加的工作量，前面刚定义的a为一个string类型的变量。阅读这段代码，30行之后鬼才知道你的a是什么类型，干嘛用的。如果整个工程中都是这样的代码，那么可以想象维护起来该是一件多么痛苦的事！用人单位为什么要用这种“雏”，用他只能给自己的公司带来不必要的麻烦。

正确的变量命名规范：

l  采用匈牙利标记法标记数据类型或者控件类型

l  为变量赋予表意性强的名字

例如：intIndex、dgvStudentInfo，像strTemp这样的变量名是极其令人恶心的。

l  尽量避免对变量名的缩写，如果必须缩写一定保证缩写后不影响对变量的理解。

l  变量名中混合使用大小写

例如：

-Dim strFIRSTERNAME as string与dim strlastname as string都是不规范的

l  使用统一的量词并放在结尾

例如：

-Dim strFirstCustomer As String

-Dim strLastCustomer As String

-Dim strPreviousCustomer As String

上面的变量定义就没有下面的变量定义更加容易理解与搜索

-Dim strCustomerFirst As String

-Dim strCustomerLast As String

-Dim strCustomerPrevious As String

我们可以通过以上几条原则来规范自己的代码使自己代码的可读性增强。

如下所示

Sub ExportExcel(ByVal dgvSouse As DataGridView, ByVal blnIsOnlyVisible As Boolean)
        Try
            Dim IntColumnNumHead As Integer
            Dim IntRowNumText As Integer
            Dim IntColumnNumText As Integer
            Dim IntCurrentRow As Integer
            Dim IntCurrentCol As Integer
            Dim Excel As Excel.Application = New Excel.Application
            Excel.Application.Workbooks.Add(True)
            IntCurrentCol = 1
            For IntColumnNumHead = 0 To dgvSouse.ColumnCount - 1
                If blnIsOnlyVisible Then
                    If dgvSouse.Columns(IntColumnNumHead).Visible Then
                        Excel.Cells(1, IntCurrentCol) = dgvSouse.Columns(IntColumnNumHead).HeaderText
                        IntCurrentCol = IntCurrentCol + 1
                    End If
                Else
                    Excel.Cells(1, IntColumnNumHead + 1) = dgvSouse.Columns(IntColumnNumHead).HeaderText
                End If
            Next
            IntCurrentRow = 2
            For IntRowNumText = 0 To dgvSouse.RowCount - 1
                IntCurrentCol = 1
                For IntColumnNumText = 0 To dgvSouse.ColumnCount - 1
                    If blnIsOnlyVisible Then
                        If dgvSouse.Columns(IntColumnNumText).Visible Then
                            Excel.Cells(IntRowNumText + 2, IntCurrentCol) = dgvSouse.Rows(IntRowNumText).Cells(IntColumnNumText).Value
                            IntCurrentCol = IntCurrentCol + 1
                        End If
                    Else
                        Excel.Cells(IntRowNumText + 2, IntColumnNumText + 1) = dgvSouse.Rows(IntRowNumText).Cells(IntColumnNumText).Value
                    End If
                Next
            Next
            Excel.Visible = True
        Catch ex As Exception
            Throw ex
        End Try
End Sub

但是仅仅有了符合规范的变量还是不够的。一段可读性强的代码还应注意注释的编写。关于代码注释的编写，咱们下回再说。