Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Estruturas de Controle |
Escreva um programa VB.NET para ler as notas n1 e n2 de um aluno e calcule a sua média aritmética - Exercícios Resolvidos de VB.NETQuantidade de visualizações: 233 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET para ler as notas n1 e n2 de um aluno e calcule a sua média aritmética. Se a média for igual ou superior a 7,0 mostre uma mensagem indicando que o aluno foi aprovado. Se a média for igual ou maior que 3,5 e inferior a 7,0 seu programa deverá indicar que o aluno ficou de exame. Uma média menor que 3,5 indica reprovação direta. No caso do exame, leia uma nota entre 0 e 10. Agora a média do aluno deverá ser a média entre a média anterior e a nota do exame. Se a nova média for igual ou superior a 5,0 o aluno estará aprovado. Caso contrário o aluno será reprovado. Use validação para evitar que o usuário informe notas inválidas, ou seja, notas menores que 0 ou maiores que 10. Caso notas inválidas sejam fornecidas seu programa deverá solicitar a nota novamente até que o usuário forneça notas válidas. Sua saída deverá ser parecida com: Informe a nota N1: 9.4 Informe a nota N2: 11 Nota inválida. Informe a nota N2: 8.3 A média do aluno é: 8.85 O aluno foi aprovado Informe a nota N1: 4.2 Informe a nota N2: 1.8 A média do aluno é: 3.0 O aluno reprovou direto. Informe a nota N1: 5.7 Informe a nota N2: 6 A média do aluno é: 5.85 Informe a nota do exame: 7 A média do aluno com o exame é: 6.425 O aluno foi aprovado após o exame. 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 n1, n2, media, exame As Double ' vamos ler a primeira nota Console.Write("Informe a nota N1: ") n1 = Double.Parse(Console.ReadLine()) ' a nota é válida? While ((n1 < 0) Or (n1 > 10)) Console.Write("Nota inválida. Informe a nota N1: ") n1 = Double.Parse(Console.ReadLine()) End While ' vamos ler a segunda nota Console.Write("Informe a nota N2: ") n2 = Double.Parse(Console.ReadLine()) ' a nota é válida? While ((n2 < 0) Or (n2 > 10)) Console.Write("Nota inválida. Informe a nota N2: ") n2 = Double.Parse(Console.ReadLine()) End While ' vamos calcular a média do aluno media = (n1 + n2) / 2.0 Console.WriteLine("A média do aluno é: " & media) ' o aluno foi aprovado? If (media >= 7.0) Then Console.WriteLine("O aluno foi aprovado") ' o aluno ficou de exame? ElseIf ((media >= 3.5) And (media < 7.0)) Then ' vamos ler a nota do exame Console.Write("Informe a nota do exame: ") exame = Double.Parse(Console.ReadLine()) ' a nota é válida? While ((exame < 0) Or (exame > 10)) Console.Write("Nota inválida. Informe a nota do exame: ") exame = Double.Parse(Console.ReadLine()) End While ' calcula a nota média media = (media + exame) / 2.0 Console.WriteLine("A média do aluno com o exame é: " & media) ' o aluno foi aprovado após o exame? If (media >= 5.0) Then Console.WriteLine("O aluno foi aprovado após o exame.") Else Console.WriteLine("O aluno foi reprovado após o exame.") End If ' reprovou direto Else Console.WriteLine("O aluno reprovou direto.") End If Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module |
![]() |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar a instrução Select...Case do VB.NETQuantidade de visualizações: 20617 vezes |
As instruções If...Then e If...Then...Else são muito úteis para testarmos condições em nossos códigos. Porém, há situações em que os caminhos a serem testados são tantos que se torna um pouco tedioso escrever tantos ElseIfs. Para estas situações nós temos a instrução Select...Case. Veja seu uso no trecho de código abaixo:---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Dim valor As Integer = 7 Select Case valor Case 1 To 5 Console.WriteLine("Entre 1 e 5 (inclusive)") Case 6, 7, 8 Console.WriteLine("Entre 6 e 8 (inclusive)") Case 9 To 10 Console.WriteLine("Igual a 9 ou 10") Case Else Console.WriteLine("Não encontrado no teste") End Select Os valores a serem testados em cada passo da instrução podem ser separados por vírgulas ou por faixa, usando a palavra-chave To. Neste último caso, o valor limite também é incluído no teste. O tipo de dados da variável de teste deve se enquadrar nos tipos: Boolean, Byte, Char, Date, Double, Decimal, Integer, Long, Object, SByte, Short, Single, String, UInteger, ULong e UShort. |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como concatenar strings em VB.NET usando o método Concat() da classe StringQuantidade de visualizações: 11547 vezes |
Nesta dica mostrarei como podemos concatenar strings em VB.NET por meio do método Concat() da classe String do .NET Framework. Este método recebe uma ou mais strings e retorna um novo objeto da classe String. Veja um exemplo de seu uso: ---------------------------------------------------------------------- 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()) ' declara uma variável do tipo String Dim frase, nome, cidade As String nome = "Osmar" cidade = "Goiânia" frase = "Meu nome é " frase = String.Concat(frase, nome) frase = String.Concat(frase, " e eu moro em ", cidade) ' e mostramos o resultado Console.WriteLine(frase) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: Meu nome é Osmar e eu moro em Goiânia |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar o laço For do VB.NET - Apostila VB.NET para iniciantesQuantidade de visualizações: 13332 vezes |
O laço For...Next é usado quando sabemos exatamente a quantidade de vezes que o bloco de códigos deverá ser executado. Veja um exemplo no qual contamos de 1 a 10:---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- For valor As Integer = 1 To 10 Step 1 Console.WriteLine(valor) Next Veja que o laço For...Next é composto de três partes muito importantes: a) Inicialização da variável de controle: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- For valor As Integer = 1 Aqui é onde definimos o valor inicial da variável de controle. No exemplo nós fizemos a declaração da variável no cabeçalho do laço, mas ela pode ser declarada externamente sem nenhum problema. b) Limite do valor da variável de controle: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- To 10 A palavra-chave To permite definir o valor máximo que a variável de controle pode alcançar. c) Incremento da variável de controle: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Step 1 A palavra-chave Step permite definir o valor que servirá de incremento para a variável de controle. No exemplo usamos 1, mas poderia ser qualquer valor inteiro. Veja um exemplo de laço For...Next no qual exibimos os números pares de 0 a 20: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- For numero As Integer = 0 To 20 Step 2 Console.WriteLine(numero) Next E se quisermos contar de trás para frente? Fácil, basta fornecer um valor negativo para o incremento. Veja: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- For numero As Integer = 10 To 0 Step -1 Console.WriteLine(numero) Next |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar o laço Do...Until...Loop do VB.NETQuantidade de visualizações: 10073 vezes |
O laço Do...While...Loop é usado quando queremos testar uma condição e, executar um bloco de código repetidamente ENQUANTO esta condição for verdadeira. O laço Do...Until...Loop, por sua vez, executa uma bloco de códigos repetidamente ATÉ que uma condição se torne verdadeira. Veja um exemplo de laço Do...Until...Loop que nos permite exibir os números de 0 a 10: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Dim numero As Integer = 0 Do Until numero > 10 Console.WriteLine(numero) numero += 1 Loop Veja uma nova versão deste código, desta vez contando de 10 a 0: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Dim numero As Integer = 10 Do Until numero < 0 Console.WriteLine(numero) numero -= 1 Loop Aqui nós estamos novamente avaliando uma condição, ou seja, se o resultado da condição for True, a execução do laço pára. Se for False, o laço continua. Veja um exemplo no qual a condição booleana está bem explícita: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Dim pode As Boolean = True Dim valor As Integer = 1 Do Until pode = False Console.WriteLine(valor) valor += 1 If valor > 20 Then pode = False End If Loop |
VB.NET ::: Dicas & Truques ::: Matemática e Estatística |
Como calcular juros simples e montante em VB.NETQuantidade de visualizações: 8438 vezes |
O regime de juros será simples quando o percentual de juros incidir apenas sobre o valor principal. Sobre os juros gerados a cada período não incidirão novos juros. Valor Principal ou simplesmente principal é o valor inicial emprestado ou aplicado, antes de somarmos os juros. Transformando em fórmula temos: J = P . i . n Onde: J = juros P = principal (capital) i = taxa de juros n = número de períodos Imaginemos uma dívida de R$ 2.000,00 que deverá ser paga com juros de 5% a.m. pelo regime de juros simples e o prazo para o pagamento é de 2 meses. O cálculo em VB.NET pode ser feito assim: ---------------------------------------------------------------------- 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 O montante da dívida pode ser obtido das seguintes formas: a) Montante = Principal + Juros b) Montante = Principal + (Principal x Taxa de juros x Número de períodos) M = P . (1 + (i . n)) Veja o código: ---------------------------------------------------------------------- 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 |
Desafios, Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Quem Somos |
![]() Entre em contato comigo para, juntos, vermos em que posso contribuir para resolver ou agilizar o desenvolvimento de seus códigos.
|
![]() Não basta ter um site. É necessário ter um site que é localizado e converte usuários em clientes. Se sua página não faz isso, Fale comigo e vamos fazer uma analise e conseguir resultados mais satisfatórios..
|
Linguagens Mais Populares |
1º lugar: Java |
Códigos Fonte |
![]() Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
![]() Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |