'Este exemplo mostra como embaralhar os caracteres
'de uma string

Module Module1
  Sub Main()
    Dim palavra As String = "ARQUIVO"

    'converte em uma matriz de caracteres
    Dim palavra2 As Char() = palavra.ToCharArray()

    'vamos embaralhar 3 vezes
    Embaralhar(palavra2, 3)

    'transforma em string novamente
    palavra = Nothing 'limpa a variável
    For i As Integer = 0 To palavra2.GetUpperBound(0) Step 1
      palavra = palavra & palavra2(i)
    Next

    'exibe o resultado
    Console.WriteLine(palavra)

    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

----------------------------------------------------------------------
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 primo As Boolean = True ' Vamos assumir que o número é primo

    ' vamos solicitar um número inteiro positivo
    Console.Write("Informe um número inteiro positivo: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' o número é negativo?
    If numero < 0 Then
      Console.WriteLine("Número inválido.")
      ' é 0 ou 1?
    ElseIf ((numero = 0) Or (numero = 1)) Then
      Console.WriteLine("Número válido, mas não é primo.")

      ' passou até aqui. Vamos testar se o número é primo
    Else
      For i As Integer = 2 To (numero / 2) Step 1
        ' se passar no teste, não é primo
        If (numero Mod i = 0) Then
          primo = False ' recebe False
          Exit For
        End If
      Next


      If (primo) Then
        Console.WriteLine("O número informado é primo")
      Else
        Console.WriteLine("O número informado não é primo")
      End If
    End If

    Console.WriteLine("\nPressione 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 = "VejA esta FRASe"

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

    ' transforma tudo em letras maiúsculas
    frase = frase.ToUpper()

    ' agora mostramos a frase em letras maiúsculas
    Console.WriteLine("Em letras maiúsculas: " & 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())
    Dim site As String = "Arquivo de Códigos"

    ' obtém o tamanho da string
    Dim tam As Integer = site.Length

    Console.WriteLine("A string contém " & tam &
      " caracteres")

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

palavra = "python"
palavra.upper()
print(palavra)