'O arco tangente de um número pode ser obtido
'com a função

'Public Shared Function Atan(d As Double) As Double

'Esta função recebe um valor double e retorna
'um valor na faixa -PI/2 <= x <= PI/2

Module Module1
  Sub Main()
    Dim numero As Double = 0.5

    Console.WriteLine("O arco tangente de " & _
      numero & " é " & Math.Atan(numero))

    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