MXi4oyu

摘要： '十进制数转换成十六进制数 Public Shared Function DecToHex(ByVal value As Integer) As String Return BinToHex(DecToBin(value)) End Function '二进制数转换成十进制数 Public Shared Function BinToDec(ByVal value As String) As Integer Dim i As Integer Dim returnValue As Integer = 0 For i = value.Length - 1 To 0 Step -1 r 阅读全文