'Este exemplo mostra como adicionar dias à
'data atual

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now
    Dim dias As Integer = 10 'vamos adicionar 10 dias

    'exibe a data e hora atual
    Console.WriteLine("Hoje é: " & agora.ToString("dd/MM/yyyy"))

    'adiciona os dias
    agora = agora.AddDays(dias)

    'exibe a nova data e hora
    Console.WriteLine("Daqui " & dias & " dias será: " _
      & agora.ToString("dd/MM/yyyy"))

    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