Escreva um programa VB.NET que pede para o usuário informar o salário de uma pessoa, o valor de um empréstimo e a quantidade de prestações - Lista de Exercícios Resolvidos de VB.NET

Informe o salário: 1350
Informe o valor do empréstimo: 6000
Informe a quantidade de parcelas: 12
O valor das parcelas do empréstimo é: 500.0
Empréstimo não pode ser concedido

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 salario, emprestimo, valor_parcela As Double
    Dim quant_prestacoes As Integer

    ' vamos ler os dados
    Console.Write("Informe o salário: ")
    salario = Double.Parse(Console.ReadLine())
    Console.Write("Informe o valor do empréstimo: ")
    emprestimo = Double.Parse(Console.ReadLine())
    Console.Write("Informe a quantidade de parcelas: ")
    quant_prestacoes = Int32.Parse(Console.ReadLine())

    ' vamos calcular e mostrar o valor da parcela do empréstimo
    valor_parcela = emprestimo / quant_prestacoes
    Console.WriteLine("O valor das parcelas do empréstimo é: " &
      valor_parcela)

    ' o empréstimo pode ser concedido?
    If valor_parcela > (salario * (20.0 / 100.0)) Then
      Console.WriteLine("Empréstimo não pode ser concedido")
    Else
      Console.WriteLine("Empréstimo pode ser concedido")
    End If

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

End Module