'Este exemplo mostra como verificar se um valor
'existe em algum dos elementos de um array usando
'um predicate

Module Module1
  Sub Main()
    ' cria um array de strings
    Dim cidades() As String = {"Goiânia", "Cuiabá", "Curitiba", _
      "São Paulo", "Florianópolis"}

    'verifica se o valor "Cuiabá" está contido em algum
    'dos elementos do array. Lembre-se que a string a
    'ser comparada está codificada no predicate
    If Array.Exists(cidades, AddressOf Existe) Then
      Console.WriteLine("O valor existe em algum dos elementos")
    Else
      Console.WriteLine("O valor não existe nos elementos")
    End If

    Console.ReadKey()
  End Sub

  'predicate usado para verificar se o valor existe em algum
  'dos elementos do array
  Private Function Existe(ByVal str As String) As Boolean
    If str.Equals("Cuiabá") Then
      Return True
    Else
      Return False
    End If
  End Function

End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim palavra1, palavra2 As String
    palavra1 = "Visual Basic"
    palavra2 = "Visual Basic"

    If String.Compare(palavra1, palavra2) = 0 Then
      Console.WriteLine("As duas strings são iguais")
    Else
      Console.WriteLine("As duas strings são diferentes")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "Gosto de VB.NET"

    ' vamos mostrar a frase original
    Console.WriteLine("A frase original é: " & frase)

    ' vamos inverter a string
    frase = StrReverse(frase)

    ' mostramos a frase invertida
    Console.WriteLine("A frase invertida é: " & frase)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    ' cria um array de inteiros
    Dim valores() As Integer = {1, 2, 3, 4, 5}

    ' exibe os valores do primeiro array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    ' cria um segundo array e copia os elementos
    ' do primeiro para o segundo
    Dim valores2() As Integer = {6, 7, 8, 9, 10, 15, 20}
    valores.CopyTo(valores2, 0)
    Console.WriteLine()

    ' exibe os valores do segundo array
    For Each valor As Integer In valores2
      Console.WriteLine(valor)
    Next

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

a = 45
print("O tipo da variável é: {0}".format(______________))