Jump to content
tiagopedro

Visual Basic - Consola

Recommended Posts

tiagopedro

Estou a tentar fazer um programa que faça a soma entre todos os números de n1 a n2, sejam n1 e n2 dois numeros escolhidos pelo utilizador. Fiz o código abaixo mas quando faço o degugging, nunca funciona. Alguém me poderia dizer qual foi o meu erro?

Module Module1
Sub Main()
	Dim n, n1, ni As Integer
	Dim contador As Long
	Console.WriteLine("Este programa calcula a soma de todos os números entre dois número dados")
	Console.WriteLine()
	Console.WriteLine("Insira o primeiro número - o menor deles:")
	n = Console.ReadLine
	Console.WriteLine("Insira o segundo número - o maior deles:")
	n1 = Console.ReadLine
	ni = n
	While n <= n1
		n = n + 1
		contador = ni + n
	End While
	Console.WriteLine("A soma de todos os números entre os dois inseridos é " & contador)
	Console.ReadKey()
End Sub
End Module

Share this post


Link to post
Share on other sites
rodrigolima

Boa tarde tiagopedro

Segue abaixo seu código.Está modificado e comentado.Espero que ajude.

Grande Abraço do Brasil.

Dim n, n1, ni As Integer
 Dim contador As Long
 Console.WriteLine("Este programa calcula a soma de todos os números entre dois número dados")
 Console.WriteLine()
 Console.WriteLine("Insira o primeiro número - o menor deles:")
 n = Console.ReadLine
 Console.WriteLine("Insira o segundo número - o maior deles:")
 n1 = Console.ReadLine
 ni = n
 While n <= n1
	 'A variavel contador, recebe ela mesma e o primeiro numero(N) e vai
	 ' incrementando até o segundo numero(N1)
	 contador = contador + n
	 n = n + 1 'Incrementa N até N1
 End While
 Console.WriteLine("A soma de todos os números entre os dois inseridos é " & contador)
 Console.ReadKey()

Edited by Rui Carlos

Share this post


Link to post
Share on other sites
manuel antonio

Quando recebemos ajuda, é de bom tom agradecer essa ajuda, pois alguém se esforçou por ajudar.

Essa pessoa ou pessoas, merecem pelo menos um OBRIGADO.

Se assim não for, corres o risco de não receber ajuda em futuros tópicos.

Abraços

Share this post


Link to post
Share on other sites
jota_wa

Boa tarde tiagopedro

Segue abaixo seu código.Está modificado e comentado.Espero que ajude.

Grande Abraço do Brasil.

Dim n, n1, ni As Integer
 Dim contador As Long
 Console.WriteLine("Este programa calcula a soma de todos os números entre dois número dados")
 Console.WriteLine()
 Console.WriteLine("Insira o primeiro número - o menor deles:")
 n = Console.ReadLine
 Console.WriteLine("Insira o segundo número - o maior deles:")
 n1 = Console.ReadLine
 ni = n
 While n <= n1
	 'A variavel contador, recebe ela mesma e o primeiro numero(N) e vai
	 ' incrementando até o segundo numero(N1)
	 contador = contador + n
	 n = n + 1 'Incrementa N até N1
 End While
 Console.WriteLine("A soma de todos os números entre os dois inseridos é " & contador)
 Console.ReadKey()

Boas

Acho que o ciclo deveria ser um For e não um While visto que se conhece os limites,além de ser desnecessário o incrementar do contador manualmente.

Cumps

Share this post


Link to post
Share on other sites
rodrigolima

Bom dia jota_wa

Você está certo, poderia ser um FOR, ou melhor deveria ser um FOR mesmo.

Eu apenas segui o escopo do tiago_pedro e acabei me esquecendo deste detalhe do laço de repetição FOR.

Boa observação.

Grande Abraço

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.