Resultado não esperado na soma

[nancy]

Alguém consegue-me ajudar a resolver esta dúvida. Introduz-se números que supostamente iriam ser somados, mas 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

[acao]

boas, a variavel soma toda vez que o loop passa soma 1, depois soma 2, depois soma 3, etc., não soma sempre +1.

se não resolveres diz o que pretendes.

cumps

acao

[manuel antonio]

Se ainda segues o tópico,

Penso que há vários erros na tua questão.

1º - A variável soma, (se pretendes nº inteiro), deve ser declarada com integer e está como variant.

Dim soma as integer, numero as integer

2º - Também deves inicializar as variáveis soma e numero antes de iniciar o ciclo, para que o código tenha o ponto de partida que pretendes.

3º - O valor a colocar em textbox, deverá ser textbox1.value e não .text

e pela mesma lógica, a última linha deverá bastar:

loop until numero=textbox.value.

Edited December 13, 2015 at 12:02 PM by manuel antonio