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码？

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

我试了，显示类型不匹配，还怎么改呢？

不是太清楚你想做什么..

就想转出A的ASC码

Asc("a")

Asc("a")
这个就好了...还搞这么多干嘛..

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