Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Estruturas de Controle

Como escrever o programa Fizz Buzz em VB.NET - Peça para o usuário informar um número inteiro e escreva "Fizz" se o número for - Desafio de Programação Resolvido em VB.NET

Quantidade de visualizações: 318 vezes
Pergunta/Tarefa:

O famoso desafio de programação "Fizz Buzz" aparece com frequencia em livros de lógica de programação e entrevistas para programadores. Vale a pena praticá-lo.

Escreva um programa VB.NET que leia um número inteiro e exiba "Fizz" se o número for múltiplo de 3. Se o número for múltiplo de 5 você deverá exibir "Buzz". Se o número for múltiplo de 3 e 5 ao mesmo tempo, escreva "Fizz Buzz". Se, no entanto, o número informado não estiver em nenhuma dessas condições, escreva o número informado.

Sua saída deve ser parecida com:

Informe um número: 20
Buzz

Informe um número: 15
Fizz Buzz

Informe um número: 9
Fizz

Informe um número: 14
O número é: 14
Resposta/Solução:

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())
    ' vamos pedir para o usuário informar um número
    Console.Write("Informe um número: ")
    Dim numero As Integer = Int32.Parse(Console.ReadLine())

    ' o número é múltiplo de 3 e 5 ao mesmo tempo?
    If (numero Mod 3 = 0) And (numero Mod 5 = 0) Then
      Console.WriteLine("Fizz Buzz")
      ' o número é múltiplo de 3?
    ElseIf numero Mod 3 = 0 Then
      Console.WriteLine("Fizz")
      ' o número é múltiplo de 5?
    ElseIf numero Mod 5 = 0 Then
      Console.WriteLine("Buzz")
      ' vamos mostrar o número
    Else
      Console.WriteLine("O número é: " & numero)
    End If

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

End Module


Link para compartilhar na Internet ou com seus amigos:

VB.NET ::: Dicas & Truques ::: Trigonometria - Funções Trigonométricas

Como calcular o cosseno de um ângulo em VB.NET usando a função Cos() da classe Math - Calculadora de cosseno em VB.NET

Quantidade de visualizações: 1076 vezes
Em geral, quando falamos de cosseno, estamos falando do triângulo retângulo de Pitágoras (Teorema de Pitágoras). A verdade é que podemos usar a função cosseno disponível nas linguagens de programação para calcular o cosseno de qualquer número, mesmo nossas aplicações não tendo nenhuma relação com trigonometria.

No entanto, é sempre importante entender o que é a função cosseno. Veja a seguinte imagem:



Veja que temos um triângulo retângulo com as medidas já calculadas para a hipotenusa e os dois catetos, assim como os ângulos entre eles.

Assim, o cosseno é a razão entre o cateto adjascente e a hipotenusa, ou seja, o cateto adjascente dividido pela hipotenusa. Veja a fórmula:

\[\text{Cosseno} = \frac{\text{Cateto adjascente}}{\text{Hipotenusa}} \]

Então, se dividirmos 30 por 36.056 (na figura eu arredondei) nós teremos 0.8320, que é a razão entre o cateto adjascente e a hipotenusa (em radianos).

Agora, experimente calcular o arco-cosseno de 0.8320. O resultado será 0.5881 (em radianos). Convertendo 0.5881 radianos para graus, nós obtemos 33.69º, que é exatamente o ângulo em graus entre o cateto adjascente e a hipotenusa na figura acima.

Pronto! Agora que já sabemos o que é cosseno na trigonometria, vamos entender mais sobre a função Cos() da linguagem VB.NET. Esta função, que é um método da classe Math, recebe um valor numérico Double e retorna um valor Double, ou seja, também numérico) entre -1 até 1 (ambos inclusos). Veja:

----------------------------------------------------------------------
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 calcular o cosseno de três números
    Console.WriteLine("Cosseno de 0 = " & Math.Cos(0))
    Console.WriteLine("Cosseno de 1 = " & Math.Cos(1))
    Console.WriteLine("Cosseno de 2 = " & Math.Cos(2))

    Console.WriteLine("\nPressione 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:

Cosseno de 0 = 1
Cosseno de 1 = 0,5403023058681397
Cosseno de 2 = -0,4161468365471424

Note que calculamos os cossenos dos valores 0, 1 e 2. Observe como os resultados conferem com a curva da função cosseno mostrada abaixo:




VB.NET ::: Dicas & Truques ::: Matemática e Estatística

Como verificar se um número é par ou ímpar em VB.NET

Quantidade de visualizações: 20764 vezes
Em várias situações nós lidamos com códigos VB.NET nos quais precisamos verificar se um determinado valor é par ou ímpar. Para efetuar este teste, nós só precisamos usar o operador Mod, que retorna o resto de uma divisão envolvendo inteiros. Assim, se o resto da divisão for 0, sabemos que o número é par e, em caso contrário, será ímpar.

Veja o código completo para o exemplo que lê um número e informa se ele é par ou ímpar:

----------------------------------------------------------------------
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 valor As Integer

    Console.Write("Informe um número inteiro: ")
    valor = Val(Console.ReadLine())

    If valor Mod 2 = 0 Then
      Console.WriteLine("O número é par")
    Else
      Console.WriteLine("O número é ímpar")
    End If

    Console.WriteLine("\nPressione 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:

Informe um número inteiro: 38
O número é par
Pressione qualquer tecla para sair...


VB.NET ::: Dicas & Truques ::: Data e Hora

Como retornar o mês da data atual em VB.NET usando a propriedade Month da classe DateTime

Quantidade de visualizações: 8594 vezes
A propriedade Month da classe DateTime do VB.NET é usada quando queremos retornar o mês de uma determinada data como um número inteiro, ou seja, esta propriedade retorna um valor inteiro na faixa de 1 até 12.

Veja o código VB.NET completo para o exemplo:

----------------------------------------------------------------------
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())
    ' Este exemplo mostra como extrair o mês da data
    ' atual. Lembre-se de que o mês começa em 1 (janeiro)

    Dim agora As DateTime = DateTime.Now

    'obtém o mês.
    Dim mes As Integer = agora.Month
    Console.WriteLine("O mês para esta data é: " & mes)

    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:

O mês para esta data é: 7


Desafios, Exercícios e Algoritmos Resolvidos de VB.NET

Veja mais Dicas e truques de VB.NET

Dicas e truques de outras linguagens

Códigos Fonte

Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e FornecedoresSoftware de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
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
Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesControle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades
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

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: C
6º lugar: Delphi
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby



© 2025 Arquivo de Códigos - Todos os direitos reservados
Neste momento há 30 usuários muito felizes estudando em nosso site.