Programa dá soma incorreta

[nancy]

Alguém consegue-me ajudar a resolver esta dúvida. O programa soma os primeiros números, mas depois a soma começa a dar incorreta.

Obrigado.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim soma, numero As Integer
	Do
		numero = numero + 1
		soma = soma + numero
		TextBox2.Text = soma
	Loop Until numero = Val(TextBox1.Text)

End Sub
End Class

[He B TeMy]

O que queres dizer com soma errada? O que é que estás á espera com esse código?

O código que tens só irá mostrar números sequencialmente 1 a 1, se bem que com o loop que tens, dúvido que vejas alguma coisa visto que estás no main thread e tás a bloquear o thread com o loop.

Qual é o teu objectivo?

[nancy]

A ideia era uma programa em que iamos introduzindo números e ele iria somando os mesmos, mas soma no inicio e depois começa a dar errado, por exemplo, coloco 1, depois 2 dá 3, mas depois coloco 10 dá 55.

Obrigado

[He B TeMy]

Metes os números em 2 textboxes, depois clicas no botão e somas o valor das duas textboxes e dá-te o resultado... não tou a ver que uso têm o loop que tens no teu código...

Tentas converter o valor das textbox para integer e fazer a soma com o operador '+' .

[acao]

boas, já reparaste que terminas o loop com variavel numero e amostras o valor com soma, e que soma está a somar o valor de numero que não sempre é 1.

se terminas em 10 não te vai dar 10 mas sim um numero superior.

ps: aconselho-te a colocar breakpoints e correres o programa e depois passares o rato encima das variáveis para veres os valores das variáveis.

cumps

acao

Edited November 13, 2015 at 10:15 PM by acao