Exercicio de vb.net sobre busca

• Classe Mecanismo de Busca
Public Class MecanismoDeBusca Private nome(10) As String ' Quando as variáveis são declaradas fora do método, tornam-se globais Private indice As Integer = -1 ' e são reconhecidas e acessadas por todos os métodos desta classe 'O propósito deste método é receber o texto do form e guardá-lo, sequencialmente no array Public Function setNome(ByVal nome As String) As Boolean Dim cheio As Boolean = False indice = indice + 1 Me.nome(indice) = nome If indice = 9 Then cheio = True Return cheio End Function 'O propósito deste método é recuperar a posição da primeira ocorrência do nome procurado Public Function getPosicaoSequencial(ByVal nome As String) As Integer Dim posicao As Integer = -1 For i = 0 To indice If (Me.nome(i) = nome) Then posicao = i Exit For End If Next Return posicao End Function 'O propósito deste método é recuperar quantas ocorrências existem da no vetor Public Function getOcorrenciasSequencial(ByVal nome As String) As Integer Dim ocorrencias As Integer = 0 For i = 0 To indice If (Me.nome(i) = nome) Then ocorrencias = ocorrencias + 1 Next Return ocorrencias End Function 'Este método tem o objetivo de apagar todo o conteúdo do array Public Sub zeraArray() For i = 0 To indice nome(i) = "" Next indice = -1 End Sub 'Retorna o array Public Function getNome() As String() Return Me.nome End Function
• Form Classifica vetor
Public Class Form Dim classifica As New Classifica ' Quando as variáveis são declaradas fora do método, tornam-se globais e são reconhecidas e acessadas por todos os métodos desta classe. Neste caso, se eu a colocasse dentro do método, a cada declaração eu iniciaria um processo