VB 解释下下面的程序的意思

来源：百度知道 编辑：UC知道 时间：2024/05/22 13:22:52
Sub StringToByte(strString As String, ByteArray() As Byte)

Dim i As Long

For i = 1 To Len(strString)
ByteArray(i - 1) = Asc(Mid$(strString, i, 1))
Next i
ByteArray(i - 1) = 0
End Sub
麻烦解释下这个程序

Sub StringToByte(strString As String, ByteArray() As Byte)
这句定义一个过程，参数是字符串型变量strString，位变量数组ByteArray，数组空间由传递参数决定
Dim i As Long
定义一个长整型变量i
For i = 1 To Len(strString)
循环，次数为符串型变量strString的字符数
ByteArray(i - 1) = Asc(Mid$(strString, i, 1))
Mid$(strString, i, 1)为取字符串strString的第i个字符，Asc(Mid$(strString, i, 1))就将这个字符转为ascii码，关于ascii码的相关信息请查阅相关资料，ByteArray(i - 1)= Asc(Mid$(strString, i, 1))是赋值，用i-1是因为数组下标从0开始
Next i
ByteArray(i - 1) = 0
将最后一个ByteArray()赋值为0，用途为作结束标志
End Sub

把一个字符串，转换成ASCII码存储到BYTEARRAY数组