Private Sub Form_Load()
const players()  As String  = {"Dan", "Fred", "Bart", "Carlos", _
  "Ty", "Juan", "Jay", "Sam", "Pedro"}
Const i As Integer = CInt(Textbox1.Text)
MsgBox (players(i) & " is on first base.")

End Sub

运行时说没有AS或等号=
怎么会事？

我的版本是V6.0的，
这段代码是教程给的。
我没运行下得去

const 不能定义函数？那怎么办
VB有没有定义函数的

Private Sub Command1_Click()
Dim players() As String = {"Dan", "Fred", "Bart", "Carlos", _
  "Ty", "Juan", "Jay", "Sam", "Pedro"}
Dim i As Integer = CInt(Textbox1.Text)
MsgBox (players(i) & " is on first base.")
End Sub
运行时语法错误
查找帮助提示： MSDN集合不存在。请重新安装 MSDN，也不知道这是啥东西，和这有关系吗？