vb 如何将字符串“321810”转换成3字节的数组 a(0) =32 a(1)= 18 a(2)=10

Question

如题所述

Answer 1

s="321810"
dim a(3) as string
for i=0 to 2
a(i)=mid(s,2*i+1,2)
next i追问

我想把a（）定义成byte类型的

追答

转换成数值？
s="321810"
dim a(3) as byte
for i=0 to 2
a(i)=cint(mid(s,2*i+1,2))
next i

Answer 2

Private Sub Form_Load()
Dim s As String
Dim a() As Integer
Dim i As Integer

s = "321810"

ReDim a(Len(s) / 2 - 1)

For i = 0 To UBound(a)
a(i) = CInt(Mid(s, i * 2 + 1, 2))
Next

For i = 0 To UBound(a)
Debug.Print a(i)
Next
End Sub本回答被提问者和网友采纳