由于程序结构的要求，自己在代码中大量的使用了if else等判断条件，有些判断可以使用boolean来判断，有些是使用string，主要的还是integer型，因此做了一短测试的小例子，来看看三种情况下各个部分的执行效率

代码如下

Public Shared Sub Main(ByVal args() As String) Dim i As Integer Dim r As New Random Dim str As String = "10" Dim j As Integer = 10 Dim b As Boolean = True Dim t1 As Long Dim t2 As Long t1 = Now.Ticks For i = 0 To 100000000 If (str = "10") Then End If Next t2 = Now.Ticks Debug.WriteLine(t2 - t1) t1 = Now.Ticks For i = 0 To 100000000 If (j = 10) Then End If Next t2 = Now.Ticks Debug.WriteLine(t2 - t1) t1 = Now.Ticks For i = 0 To 100000000 If (b) Then End If Next t2 = Now.Ticks Debug.WriteLine(t2 - t1) Console.ReadLine() End Sub

其执行结果是

5468750

2343750

2343750

由此可见，integer和boolean的执行效率一样，string型的速度比其他两种慢上一倍

将integer型的值改成1124568593，执行时间不变，可以认为integer型的判断不以值得大小为改变