小心VB.NET中的除运算符"/"和"\"

      VB.NET中除运算符有两种，普通除"/"和整数除"\"，如果我们写程序时不注意两者的区别，很容易造成潜在的错误，这种错误很隐蔽，不容易被发现。而且VB.NET中类型转换和C#差别很大，应该引起我们足够的重视，这些看似微不足道的细节却直接关系都我们代码的健壮性。

      1.问题的引出

      下面是开发中遇到问题代码的简化部分，输入大部分数据都没问题，但当输入数字为18时会抛出异常“System.ArgumentException: 偏移量和长度超出数组的界限，于从索引到源集合结尾处的元素数量。在 System.Collections.ArrayList.GetRange(Int32 index, Int32 count)”。是什么原因使ArrayList集合越界呢？这和VB.NET中的除运算符有什么关系呢？当我们理解了VB.NET中两种除的区别以及类型转换（Double—>Integer）的实质后，问题的答案也就不言自明了。

    Sub Main()
        Console.WriteLine("请输入一个整数：")
        F1(Console.ReadLine())
        Console.ReadLine()
    End Sub

    Public Sub F1(ByVal times As Integer)
        Dim list As ArrayList = New ArrayList()
        '填充数据
        For i As Integer = 0 To 29
            list.Add(i)
        Next
        '把集合list中元素分成times份进行处理
        Dim oneTimeNum As Integer = list.Count / times
        For i As Integer = 0 To times - 1
            Dim length As Integer = oneTimeNum
            If i = times - 1 Then
                '最后一次循环取集合中所有剩余数据
                length = list.Count - oneTimeNum * i
            End If
            '实际中这里是启动线程处理,这里简化只是来说明问题
            F2(list.GetRange(oneTimeNum * i, length))
        Next
    End Sub

    Private Sub F2(ByVal al As ArrayList)
        '对ArrayList集合al进行处理
    End Sub

      2.普通除"/"和整数除"\"

      1)普通除：expression1 / expression2

      结果是 expression1 除以 expression2 的完整的商，包括任何余数。执行除法之前，任何整数数值表达式（除数和被除数）都会被扩展为 Double。如果将结果赋给整数数据类型，Visual Basic 会试图将结果从 Double 转换成这种类型。

      举例说明：30 / 18 = 1.6666666666666667，执行除法前被除数30和除数18都扩展为Double类型，结果也为Double类型。

      2)整数除：expression1 \ expression2

      结果是 expression1 除以 expression2 的整数商，它丢弃了所有余数，只保留整数部分（称为截断）。结果数据类型是数值类型，对应于 expression1 和 expression2 的数据类型。值得注意的一点，如果除数或被除数为浮点数，在执行除法前，编译器会采用“四舍六入五成双”的规则将其转换成Long类型，再执行除法。

      举例说明：30 / 18 = 1，只保留结果的整数部分。

      3.VB.NET中的类型转换（Double—>Integer）

      根据第二部分对普通除的解释，当CLR执行Dim oneTimeNum As Integer = 30 / 18时，首先将被除数30和除数18都扩展为Double类型，进行除运算得到Double类型的结果1.6666666666666667，因为要将Double类型数据赋值给Integer类型变量，此时要执行强制类型转换，得到最终结果oneTimeNum = 2（可能很多人和我一样会奇怪结果为什么不是1）。我们从IL代码中查看VB.NET中从Double—>Integer类型转换的实质。

.method public static void  F1(int32 times) cil managed
{
  // 代码大小       123 (0x7b)
  .maxstack  3
  .locals init ([0] class [mscorlib]System.Collections.ArrayList list,
           [1] int32 oneTimeNum,
           [2] int32 i,
           [3] int32 V_3,
           [4] int32 length,
           [5] int32 VB$t_i4$L0,
           [6] int32 VB$CG$t_i4$S0,
           [7] bool VB$CG$t_bool$S0)
  IL_0000:  nop
  IL_0001:  newobj     instance void [mscorlib]System.Collections.ArrayList::.ctor()
  IL_0006:  stloc.0
  IL_0007:  ldc.i4.0
  IL_0008:  stloc.2
  IL_0009:  ldloc.0
  IL_000a:  ldloc.2
  IL_000b:  box        [mscorlib]System.Int32
  IL_0010:  callvirt   instance int32 [mscorlib]System.Collections.ArrayList::Add(object)
  IL_0015:  pop
  IL_0016:  nop
  IL_0017:  ldloc.2
  IL_0018:  ldc.i4.1
  IL_0019:  add.ovf
  IL_001a:  stloc.2
  IL_001b:  ldloc.2
  IL_001c:  ldc.i4.s   29
  IL_001e:  stloc.s    VB$CG$t_i4$S0
  IL_0020:  ldloc.s    VB$CG$t_i4$S0
  IL_0022:  ble.s      IL_0009
  IL_0024:  ldloc.0
  IL_0025:  callvirt   instance int32 [mscorlib]System.Collections.ArrayList::get_Count()
  IL_002a:  conv.r8
  IL_002b:  ldarg.0
  IL_002c:  conv.r8
  IL_002d:  div
  IL_002e:  call       float64 [mscorlib]System.Math::Round(float64) //重点看这句
  IL_0033:  conv.ovf.i4
  IL_0034:  stloc.1
  IL_0035:  ldc.i4.0
  IL_0036:  ldarg.0
  IL_0037:  ldc.i4.1
  IL_0038:  sub.ovf
  IL_0039:  stloc.s    VB$t_i4$L0
  IL_003b:  stloc.3
  IL_003c:  br.s       IL_0070
  IL_003e:  ldloc.1
  IL_003f:  stloc.s    length
  IL_0041:  ldloc.3
  IL_0042:  ldarg.0
  IL_0043:  ldc.i4.1
  IL_0044:  sub.ovf
  IL_0045:  ceq
  IL_0047:  stloc.s    VB$CG$t_bool$S0
  IL_0049:  ldloc.s    VB$CG$t_bool$S0
  IL_004b:  brfalse.s  IL_0059
  IL_004d:  ldloc.0
  IL_004e:  callvirt   instance int32 [mscorlib]System.Collections.ArrayList::get_Count()
  IL_0053:  ldloc.1
  IL_0054:  ldloc.3
  IL_0055:  mul.ovf
  IL_0056:  sub.ovf
  IL_0057:  stloc.s    length
  IL_0059:  nop
  IL_005a:  ldloc.0
  IL_005b:  ldloc.1
  IL_005c:  ldloc.3
  IL_005d:  mul.ovf
  IL_005e:  ldloc.s    length
  IL_0060:  callvirt   instance class [mscorlib]System.Collections.ArrayList [mscorlib]System.Collections.ArrayList::GetRange(int32,
                                                                                                                              int32)
  IL_0065:  call       void VBTest.Module1::F2(class [mscorlib]System.Collections.ArrayList)
  IL_006a:  nop
  IL_006b:  nop
  IL_006c:  ldloc.3
  IL_006d:  ldc.i4.1
  IL_006e:  add.ovf
  IL_006f:  stloc.3
  IL_0070:  ldloc.3
  IL_0071:  ldloc.s    VB$t_i4$L0
  IL_0073:  stloc.s    VB$CG$t_i4$S0
  IL_0075:  ldloc.s    VB$CG$t_i4$S0
  IL_0077:  ble.s      IL_003e
  IL_0079:  nop
  IL_007a:  ret
} // end of method Module1::F1

      从IL代码可以看出，VB.NET中执行类型转换实际上是调用的函数[mscorlib]System.Math::Round(float64)，MSDN中对这个函数的解释：将双精度浮点值舍入为最接近的整数，如果参数为两个整数的中值，这两个整数一个为偶数，另一个为奇数，则返回偶数（也就是我们常说的“四舍六入五成双”）。
      现在，可以很好的解释文章开始提出的问题了：由于输入18时，oneTimeNum的值为2，当循环到第16次时i = 15，此时执行list.GetRange(oneTimeNum * i, length)即list.GetRange(30,2)，已经超出了list的长度范围，所以会抛出异常。

      4.C#和VB.NET的区别

      1）C#中的除运算"/"符相当于VB.NET的整数除"\"运算符；
      2）C#中从Double—>Integer类型转换必须要采用显示方式，且转换规则为直接舍弃小数位。

      总结这次出现问题的根源是用C#语法去推断VB.NET语法，因为接触C#较早，而C#和VB.NET语法又大同小异，忽略了对VB.NET基本语法的学习，以后应多注意两种语言的差别，尽量减少类似的错误。还有一点需要注意，遇到问题的时候多查MSDN，似乎现在都习惯从网上寻求答案，但网上关于VB.NET除运算符的内容并不多，找了半天，才发现MSDN上写的很详细，我想查找资料的顺序应该是：MSDN—>CNBlogs找找看—>Google/Baidu。