Valor da hora trabalhada: 22
Número de horas trabalhadas no mês: 60
Seu Salário Bruto: R$ 1.320,00
Desconto de INSS: R$ 105,60
Total de Sindicato: R$ 66,00
Desconto Imposto de Renda: R$ 145,20
Salário Líquido: R$ 1.003,20

----------------------------------------------------------------------
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())
    ' vamos ler o valor do hora trabalhada
    Console.Write("Valor da hora trabalhada: ")
    Dim valor_hora As Double = Double.Parse(Console.ReadLine())

    ' vamos ler o número de horas trabalhadas no mês
    Console.Write("Número de horas trabalhadas no mês: ")
    Dim horas_trabalhadas As Integer = Int32.Parse(Console.ReadLine())

    ' vamos calcular o salário bruto
    Dim salario_bruto As Double = valor_hora * horas_trabalhadas

    ' vamos calcular o desconto do INSS
    Dim desconto_inss As Double = (8.0 / 100.0) * salario_bruto

    ' vamos calcular o desconto do Sindicato
    Dim desconto_sindicato As Double = (5.0 / 100.0) * salario_bruto

    ' finalmente vamos calcular o desconto do IR
    Dim desconto_ir As Double = (11.0 / 100.0) * salario_bruto

    ' para finalizar, o salário líquido
    Dim salario_liquido As Double = salario_bruto - (desconto_inss +
      desconto_sindicato + desconto_ir)

    ' mostramos o resultado
    Console.WriteLine("Seu Salário Bruto: " & String.Format("{0:c}", salario_bruto))
    Console.WriteLine("Desconto de INSS: " & String.Format("{0:c}", desconto_inss))
    Console.WriteLine("Total de Sindicato: " & String.Format("{0:c}", desconto_sindicato))
    Console.WriteLine("Desconto Imposto de Renda: " & String.Format("{0:c}", desconto_ir))
    Console.WriteLine("Salário Líquido: " & String.Format("{0:c}", salario_liquido))

    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())
    ' 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

----------------------------------------------------------------------
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

----------------------------------------------------------------------
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