求 高手》为什么一直显示无效字符？

Question

Option Base 1
_
Private Sub Form_Click()
Dim a(10) As Integer
Dim i As Integer
 For i = 1 To 10
      a(i) = Val(InputBox("输入值"))
Next i
 For i = 1 To 10
    Print a(i);
   Next i
For i = 1 To 10 \ 2
    t = a(i)
    a(i) = a(10 - i + 1)
    a(10 - i + 1) = t
    Next i
    Print
For i = 1 To 10
   Print a(i);
Next iEnd Sub

Answer 1

Option Base 1
_ '这个是啥意思？Private Sub Form_Click()
Dim a(10) As Integer
Dim i As Integer
 For i = 1 To 10
      a(i) = Val(InputBox("输入值"))
Next i
 For i = 1 To 10
    Print a(i);
   Next i
For i = 1 To 10 \ 2
    t = a(i)
    a(i) = a(10 - i + 1)
    a(10 - i + 1) = t
    Next i
    Print
For i = 1 To 10
   Print a(i);
Next iEnd Sub 

Answer 2

'下面是调试好的，没有问题
Option Base 1
Private Sub Form_Click()
    Dim a(10) As Integer
    Dim i As Integer, t As Integer
     For i = 1 To 10
          a(i) = Val(InputBox("ÊäÈëÖµ"))
    Next i
     For i = 1 To 10
        Print a(i);
       Next i
    For i = 1 To 10 \ 2
        t = a(i)
        a(i) = a(10 - i + 1)
        a(10 - i + 1) = t
        Next i
        Print
    For i = 1 To 10
       Print a(i);
    Next iEnd Sub