5555555555 VB有问题
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
