'Este exemplo mostra como escrever um gerador de
'senhas aleatórias

Module Module1
  Sub Main()
    'nos caracteres possíveis nós evitamos a letra "L"
    'minúscula, para que o usuário não confunda com o numeral
    '"1"
    Dim carac As String = "abcdefhijkmnopqrstuvxwyz123456789"
    'converte em uma matriz de caracteres
    Dim carac2 As Char() = carac.ToCharArray()
    'vamos embaralhar 2 vezes
    Embaralhar(carac2, 2)

    'vamos sugerir a senha de 8 caracteres
    Dim senha As String = Nothing
    For i As Integer = 0 To 7 Step 1
      senha = senha & carac2(i)
    Next

    'exibe a senha sugerida
    Console.WriteLine("A senha sugerida é: " & senha)

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

  Private Sub Embaralhar(ByRef array As Array, ByVal vezes _
       As Integer)
    Dim rand As New Random(DateTime.Now.Millisecond)
    For i As Integer = 1 To vezes
      For i2 As Integer = 1 To array.Length
        swap(array(rand.Next(0, array.Length)), _
           array(rand.Next(0, array.Length)))
      Next i2
    Next i
  End Sub

  Private Sub swap(ByRef arg1 As Object, ByRef arg2 As Object)
    Dim strTemp As String
    strTemp = arg1
    arg1 = arg2
    arg2 = strTemp
  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

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

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' declara, constrói e inicializa um vetor de 10 inteiros
    Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

    ' vamos ler um valor inteiro
    Console.Write("Informe um valor: ")
    Dim pesquisa As Integer = Int32.Parse(Console.ReadLine())

    ' vamos verificar quantas vezes o valor informado está
    ' contido no vetor
    Dim repeticoes As Integer = 0
    For i As Integer = 0 To valores.Length - 1
      If valores(i) = pesquisa Then
        ' encontrou? vamos contar esta ocorrência
        repeticoes = repeticoes + 1
      End If
    Next

    ' vamos mostrar o resultado
    Console.WriteLine("O valor foi encontrado: " &
      repeticoes & " vezes")

    Console.WriteLine(vbCrLf & 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)
----------------------------------------------------------------------

Dim numero As Integer = 1

While numero <= 100
  Console.WriteLine(numero)
  numero += 1

  If numero > 20 Then
    Exit While
  End If
End While

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

For valor As Integer = 3 To 100 Step 3
  Console.WriteLine(valor)

  If valor > 20 Then
    Exit For
  End If
Next

----------------------------------------------------------------------
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())
    ' vamos declarar uma string
    Dim frase As String = "Gosto de VB.NET"

    ' mostramos a frase original
    Console.WriteLine("Frase original: " & frase)

    ' inverte o conteúdo da string
    frase = InverterString(frase)

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

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

  ' Função que recebe uma string e a devolve invertida
  Function InverterString(ByVal str As String) As String
    Dim invertida As String
    Dim arrChar() As Char = str.ToCharArray()
    Array.Reverse(arrChar)
    invertida = arrChar
    Return invertida
  End Function
End Module

for i in range(0, 10, 3):
  print(i, end="  ")

valor = 0.0043563
print("Valor: %e" % valor)