'Este exemplo mostra como passar um array de
'inteiros para um método. Observe que estamos usando
'ByRef no parâmetro do método. Isso permite que o array
'original seja modificado

Module Module1
  Sub Main()
    Dim valores As Integer() = New Integer() _
      {5, 12, 3, 54, 10}

    'exibe os valores originais
    For i As Integer = 0 To valores.GetUpperBound(0)
      Console.WriteLine(valores(i))
    Next

    'passa o array para o método ModificarArray
    ModificarArray(valores)

    Console.WriteLine()

    'exibe os valores alterados
    For i As Integer = 0 To valores.GetUpperBound(0)
      Console.WriteLine(valores(i))
    Next

    Console.ReadKey()
  End Sub

  Sub ModificarArray(ByRef array As Integer())
    For i As Integer = 0 To array.GetUpperBound(0)
      array(i) = array(i) + 2
    Next
  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

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

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.08 '8%
    Dim meses As Integer = 2

    Dim juros As Double = principal * taxa * meses

    Console.WriteLine("O total de juros a ser pago é: " _
       & juros)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    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)
----------------------------------------------------------------------

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.08 '8%
    Dim meses As Integer = 2

    Dim juros As Double = principal * taxa * meses
    Dim montante As Double = principal * (1 + (taxa * meses))

    Console.WriteLine("O total de juros a ser pago é: " _
       & juros)
    Console.WriteLine("O montante a ser pago é: " & montante)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    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())
    ' vamos obter a versão do .NET 
    Dim versao As String = Environment.Version.ToString()

    ' vamos mostrar o resultado
    Console.WriteLine("A versão do .NET é: " & versao)

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