vb数字转字符串函数
Public Function ByteToString(nData() As Byte, Optional nStart As Long = 1, _
Optional nLen As Long) As String
'该函数用于将字节数组nData中从nStart开始的nLen个字节转换成字符串：
Dim i As Long
下列属于vb字符串函数是 If nLen = 0 Then nLen = UBound(nData) - nStart + 1
For i = nStart To nStart + nLen - 1
  ByteToString = ByteToString + Chr$(nData(i))
Next
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。