vb.net 补码计算

概述Private Function funcBM(ByVal strInput As Integer) As Integer If strInput > 127 Then Dim s() As Byte = {&H30, &H30, &H30, &H30, &H30, &H30, &H30, &H30} Dim s1 As Stri

   Private Function funcBM(ByVal strinput As Integer) As Integer        If strinput > 127 Then            Dim s() As Byte = {&H30,&H30,&H30}            Dim s1 As String            Dim i As Integer = 0            Dim val As Integer = 0            Dim sT(6) As Byte            s1 = Convert.ToString(strinput,2)            s = System.Text.EnCoding.ASCII.GetBytes(s1)            For i = 0 To 6                If s(i + 1) = &H31 Then                    sT(i) = &H0                ElseIf s(i + 1) = &H30 Then                    sT(i) = &H1                End If            Next            For i = 0 To 6                val = val + (sT(i) << (6 - i))            Next            funcBM = 0 - (val + 1)        Else            funcBM = strinput        End If    End Function

总结

以上是内存溢出为你收集整理的vb.net 补码计算全部内容，希望文章能够帮你解决vb.net 补码计算所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。