16,722
社区成员




Dim str = BitConverter.ToString(buff).Replace("-","")
Sub Main()
Dim arr As Byte() = {48, 57, 2}
Dim strAscii = New String(arr.Select(Function(x) CChar(Chr(x))).ToArray())
Dim strHex = String.Join(" ", arr.Select(Function(x) Hex(x).PadLeft(2, "0")))
Console.WriteLine(strAscii)
Console.WriteLine(strHex)
End Sub
09
30 39 02
Press any key to continue . . .