'Este exemplo mostra como comparar strings usando
'o operador de desigualdade <>

'Lembre-se de que este operador diferencia maiúsculas
'de minúsculas

Module Module1
  Sub Main()
    Dim palavra1 As String = "Visual Basic"
    Dim palavra2 As String = "Java"

    If palavra1 <> palavra2 Then
      Console.WriteLine("As duas strings são diferentes")
    Else
      Console.WriteLine("As duas strings são iguais")
    End If

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

Informe o ano: 2024
O ano informado é bissexto.

' 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