a(1) = 2
a(2) = 3
a(3) = 4
a(4) = 5
a(5) = 6
a(6) = 7
a(7) = 8
a(8) = 9
a(9) = 10
a(10) = 11
a(11) = 12
a(12) = 13

fsendsrclen = 12
For i = 1 To 12
fsendsrc(i) = Asc(a(i))
被付值两位数的只能显示第一位数 ，怎么解决啊？

a(1) = 2
a(2) = 3
a(3) = 4
a(4) = 5
a(5) = 6
a(6) = 7
a(7) = 8
a(8) = 9
a(9) = 10
a(10) = 11
a(11) = 12
a(12) = 13

fsendsrclen = 12
For i = 1 To 12
For j = 1 To 2
fsendsrc(i) = fsendsrc(i) & Mid(Asc$(a(i)), j, 1) & " "
Next
Next