Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: VB.NET Básico |
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.NETQuantidade de visualizações: 459 vezes |
|
Pergunta/Tarefa: 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. Se o valor da prestação for maior que 20% do salário seu código deverá mostrar a mensagem "Empréstimo não pode ser concedido". Se o empréstimo puder ser concedido escreva "Empréstimo pode ser concedido". Sua saída deve ser parecida com: 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 Veja a resolução comentada deste exercício usando VB.NET: ----------------------------------------------------------------------
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())
' 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
|
|
|
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |





