有关于“类型不匹配”的问题！谢谢！

Question

Dim strarray(127) As String
…………………………
CheckCommend strarray(1)
………………
Function CheckCommend(strcommend() As String,byal nIndex as integer)
Select Case strcommend(nIndex)
  Case "start"
    Print " start"
  Case "setlocal"
    Print "serlocal"
  Case "put"
    Print "put"
  Case "get"
    Print "get"
  Case "ls"
    Print "ls"
  Case "exit"
    Print "exit"
End Select
End Function

Answer 1

Dim strarray(127) As String
…………………………
CheckCommend strarray(),1
………………
Function CheckCommend(strcommend() As String,byal nIndex as integer)
Select Case strcommend(nIndex)
  Case "start"
    Print " start"
  Case "setlocal"
    Print "serlocal"
  Case "put"
    Print "put"
  Case "get"
    Print "get"
  Case "ls"
    Print "ls"
  Case "exit"
    Print "exit"
End Select
End Function

Answer 2

Function CheckCommend(strcommend As String)
这样你看看行不行？

Answer 3

Dim strarray As String * 127
才对，你是从C过来的吗？写这么不伦不类的语句

Answer 4

Dim strarray(127) As String
…………………………
for i=0 to 127
    CheckCommend strarray(i)
next
………………
Function CheckCommend(strcommend As String)
Select Case strcommend
  Case "start"
    Print " start"
  Case "setlocal"
    Print "serlocal"
  Case "put"
    Print "put"
  Case "get"
    Print "get"
  Case "ls"
    Print "ls"
  Case "exit"
    Print "exit"
End Select
End Function

Answer 5

Dim strarray(127) As String
strarray(0) = ("a") '赋值
strarray(1) = ("b")
Call CheckCommend(strarray(1))
Function CheckCommend(strcommend As String)
Select Case strcommend
  Case "start"
    Print " start"
  Case "setlocal"
    Print "serlocal"
  Case "put"
    Print "put"
  Case "get"
    Print "get"
  Case "ls"
    Print "ls"
  Case "exit"
    Print "exit"
End Select
End Function