主题：[求助]未将对象引用设置到对象的实例

Static V As Integer

Dim ck As String = Functions.Execute("GET","串口号","LLNJ","值")

If Ports.Contains(ck) Then

    If Ports(ck).IsOpen Then

        If V < 1 Or V > 3 Then

            V = 1

        End If

        vars("sj" & V) = Nothing

        vars("jsln") = V

        Dim ff As uInteger() = {&H0 & V,&H03,&H00,&H00,&H00,&H02}

        Dim aa As Integer = CRC16(ff,ff.Length)

        Dim crc As String = DecToHex(aa).ToUpper()

        crc = crc.PadLeft(4,"0")

        Dim crcl As Integer = HexToDec(crc.SubString(2,2))

        Dim crch As Integer = HexToDec(crc.SubString(0,2))

        Dim Val() As Byte = New Byte() {V,3,0,0,0,2,crcl,crch}

        Ports(ck).Write(Val, 0, Val.Length)

        V = V + 1

    End If

End If