那位任兄能帮我看一下下面的程序那里不对?

Private Sub Command1_Click()
Dim a As Integer, s As Integer, i As Integer
s = 0
For i = 1 To 10
a = InputBox("请输入一个数", "输入", 0)
If a > 0 Then
Text1 = Text1 & Space(5) & a & Space(5)
s = s + a
Label2.Caption = s
Else
Text2 = Text2 & Space(5) & a & Space(5)
s = s + a
Label3.Caption = s
End If
Next i

End Sub

---

Private Sub Command1_Click()
Dim a As Integer, s As Integer, i As Integer
s = 0
For i = 1 To 10
a = InputBox("请输入一个数", "输入", 0)
If a > 0 Then
Text1 = Text1 & Space(5) & a & Space(5)
s = s + a
Label2.Caption = s
Else
Text2 = Text2 & Space(5) & a & Space(5)
s = s + a
Label3.Caption = s
End If
Next i

End Sub

---

Dim a As Integer, s As Integer, i As Integer ？

参考资料：http://nt.amamei.cn