'Este exemplo mostra como verificar se uma data é
'maior, menor ou igual a outra

Module Module1
  Sub Main()
    'ano, mês, dia, horas, minutos, segundos
    Dim data1 As New DateTime(2007, 5, 28, 17, 20, 5)
    'ano, mês, dia, horas, minutos, segundos
    Dim data2 As New DateTime(2007, 5, 4, 8, 12, 10)

    If data1 < data2 Then
      Console.WriteLine("data1 é menor que data2")
    ElseIf data1 = data2 Then
      Console.WriteLine("As duas datas são iguais")
    Else
      Console.WriteLine("data1 é maior que data2")
    End If

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

' declara, constrói e inicializa um vetor de 10 inteiros
Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

Informe um valor: 4
O valor foi encontrado: 3 vezes

Informe um valor: 8
O valor foi encontrado: 1 vezes

Informe um valor: 3
O valor foi encontrado: 0 vezes

// função recursiva que recebe um valor e um vetor e retorna quantas
// vezes o valor é encontrado no vetor
public static int QuantRepeticoes(int indice, int valor, int[] vetor) {
  // sua implementação aqui 
}

Informe o 1 valor: 2
Informe o 2 valor: 7
Informe o 3 valor: 4
Informe o 4 valor: 7
Informe o 5 valor: 1

Informe o valor a ser pesquisado no vetor: 7
O valor informado se repete 2 vezes.