Dim i, chCount, ascCode, X, Y As Integer
Dim ByteCode() As Integer
Dim ch As StringchCount = 0
For i = 1 To Len(XX)
ch = Mid(XX, i, 1)
If Asc(ch) >= 0 Then
chCount = chCount + 1
Else
chount = chCount + 2
End If
NextReDim ByteCode(0 To chCount - 1)chCount = 0
For i = 1 To Len(XX)
ch = Mid(XX, i, 1)
ascCode = Asc(ch)
If ascCode >= 0 Then
ByteCode(chCount) = ascCode
chCount = chCount + 1
Else
X = (65536 + ascCode) \ 256
Y = (65536 + ascCode) Mod 256
ByteCode(chCount) = X
ByteCode(chCount + 1) = Y
chCount = chount + 2
End If
Next
'''''''''''''在
ReDim ByteCode(0 To chCount - 1)说下标越界·我要怎么改·?谢谢·
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货