Private Sub Form_Click()
Dim a(2) As Byte
Dim b(1 To 1024) As Byte
Dim i As Integer

For i = 1 To 2
a(1) = a
a(2) = 2
b(i) = Asc(a(i))
Print b(i)
Next

End Sub
运行起来a显示是49，哪位高手指点一下，怎么能传去a的ASC码？

谢谢了 问题解决了 真是谢谢你们了