Jump to content
nancy

Resultado não esperado na soma

Recommended Posts

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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 by manuel antonio

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • 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.