Como calcular porcentagem em VB.NET - Como efetuar cálculos de porcentagem em VB.NET

' Algoritmo que calcula porcentagem em VB.NET
Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim valor, percentual, valor_final As Double

    valor = 178.0 ' valor original
    percentual = 15.0 / 100.0 ' 15%
    valor_final = valor + (percentual * valor)

    ' mostra o resultado
    Console.WriteLine("O valor final do produto é: " & valor_final)

    ' O resultado será 204,70

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

End Module

' Algoritmo que calcula porcentagem em VB.NET
Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim valor, percentual, valor_final As Double

    valor = 250.0 ' valor original
    percentual = 8.0 / 100.0 ' 8%
    valor_final = valor - (percentual * valor)

    ' mostra o resultado
    Console.WriteLine("O valor final do produto é: " & valor_final)

    ' O resultado será 230,00

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

End Module

' Algoritmo que calcula porcentagem em VB.NET
Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim perguntas, acertos As Double

    perguntas = 90.0
    acertos = 72.0

    ' mostra a porcentagem de acertos
    Console.WriteLine("Porcentagem de acertos: " &
      ((acertos / perguntas) * 100) & "%")

    ' mostra a porcentagem de erros
    Console.WriteLine(("Porcentagem de erros: ") &
      (((perguntas - acertos) / perguntas) * 100) & "%")

    ' Os resultados serão 80% e 20%

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

End Module

' Algoritmo que calcula porcentagem em VB.NET
Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim valor_anterior, novo_valor, porcentagem_lucro As Double

    valor_anterior = 300.0 ' valor anterior
    novo_valor = 340.0 ' valor novo

    ' calcula a porcentagem de lucro
    ' efetua o cálculo
    porcentagem_lucro = ((novo_valor * 100) / valor_anterior) - 100

    Console.WriteLine("A porcentagem de lucro foi de: " &
      porcentagem_lucro & "%")

    ' O resultado será 13,33

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

End Module

' Algoritmo que calcula porcentagem em VB.NET
Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim valor, percentual, comissao As Double

    valor = 70.0 ' valor do produto
    percentual = 5.0 / 100.0 ' 5%

    ' calcula a comissão
    comissao = percentual * valor

    ' mostra o resultado
    Console.WriteLine("O valor repassado ao vendedor é: " & comissao)

    ' O resultado será 3,5

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

End Module