Array bounds being exceeded?

I am trying to maintain some code that somebody else wrote in VB 6.0.


This code compiles fine and runs fine........but I don't quite understand HOW.....because, unless my eyes deceive me, isn't the integer array   iWeight an array of 19 integers.......yet the method New(  ) (the constructor)   is looping through this array 20 times?



Public Class CRateReqSend

    Friend Const BUF_LEN = 309

    Friend Const DEFAULT_DATE = #8/5/1951#

    Friend Const iREQUEST As Int16 = 300

    Friend Const DEFAULT_INT As Int16 = -1

 

    Public Enum RateModeEnum

        rtm_LineHaul = 66

        rtm_Accessorial = 114

    End Enum

 

    Public Enum WeightClassEnum

        wcl_50 = 0

        wcl_55

        wcl_60

        wcl_65

        wcl_70

        wcl_775

        wcl_85

        wcl_925

        wcl_100

        wcl_110

        wcl_125

        wcl_150

        wcl_175

        wcl_200

        wcl_250

        wcl_300

        wcl_350

        wcl_400

        wcl_500

    End Enum

 

    Public Sub New()

        Dim i As Int16

        For i = 0 To 19

            iWeight(i) = DEFAULT_INT

        Next i

        dShipment = DEFAULT_DATE

 

        'todo: consider init iOrgChg to 0, not -1

        iOrgChg = DEFAULT_INT

    End Sub

 

    Public eRateMode As RateModeEnum

    Public sClientID As String

    Public sCarrierID As String

    Public sServiceType As String

    Public sEquipmentType As String

    Public sOrigZip As String

    Public sDestZip As String

    Public sBillTo As String

    Public iWeight(19) As Int32

    Public dShipment As Date

    Public iOrgChg As Single

End Class

 
Start Free Trial