Somar números positivos, pares, inferiores ou iguais a N

[well2020 0]

Olha tem um exercicio pra executar que parece ser bem simples porem to quebrando muito minha cabeça

sera que alguem pode me direcionar ficarei eternamente grato!

segue abaixo o exercicios

 

Construa um projeto em VB que calcule a soma de todos os

números positivos pares inferiores ou iguais a N. Para efetuar o cálculo da soma, escreva uma

função que receba como parâmetro o número N e que exiba (com uma caixa de mensagens) o

resultado final. OBS: a função deve ter a seguinte declaração:

Public Function CalculaSoma (ByVal intN As Integer)

 

cheguei a esse formula esse código mais sem sucesso :/

 

Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim N As Integer


MessageBox.Show("Soma dos pares: " & N)


End Sub


Public Function CalculaSoma(ByVal N As Integer)
N = (Me.TextBox1.Text)

For N = 1 

If N Mod 2 = 0 Then
N = N + N

End If

Next

End Function
　　
End Class

[KhaosDoctor 242]

Então Well.

 

O que você precisa primeiro fazer é pegar o valor N:

 

 

Public Function CalculaSoma (ByVal intN As Integer)

dim N as integer = intN
dim total as integer = 0

for i as integer = 0 to N step 1

If N Mod 2 = 0 Then

total = total+N

end if

next i

MessageBox.Show("O Resultado é: " & total.Tostring())

 

Seu for também está declarado errado.

 

 

 

 

 

[well2020 0]

Obrigado amigo e que eu ainda to aprendendo então acabo tropeçando em varias coisas

 

mais Obrigado vou tentar aqui Grato!

 

KhaosDoctor

 

eu tentei porem todo numero que eu coloco retorna como 0

em que posso estar errando ?

[KhaosDoctor 242]

Use BreakPoints no VB e vejs se todas as variáveis estão recebendo os valores corretos, caso note algo anormal tire uma print e poste aqui.

 

Tente este código também:

 

 

Public Sub soma(int As Integer)

       Dim total As Integer = Nothing

       For i As Integer = 0 To int Step 1

           If i Mod 2 = 0 Then

               total = total + i

           End If

       Next

       MessageBox.Show("O Resultado é: " & total.Tostring())

   End Sub

 

[well2020 0]

Use BreakPoints no VB e vejs se todas as variáveis estão recebendo os valores corretos, caso note algo anormal tire uma print e poste aqui.

 

Tente este código também:

 

 

Public Sub soma(int As Integer)

       Dim total As Integer = Nothing

       For i As Integer = 0 To int Step 1

           If i Mod 2 = 0 Then




               total = total + i

           End If

       Next

       MessageBox.Show("O Resultado é: " & total.Tostring())

 

Obrigado vou tentar

 

O erro que apresenta

[KhaosDoctor 242]

É... Cara, você precisa inserir uma imagem para ela aparecer aqui, faça o upload dessa imagem em serviços como o ImageHost ou PostImage.