Algoritmo

[Vinícius]

P2.29. Faça um algoritmo que leia um número N, some todos os números inteiros de 1 a N, e mostre o resultado obtido.

alguém pode me explicar como resolvo isso?

[§uiciDa£]

faz um seguinte, cria um listbox, um button, e um textbox(chamado de "n")

e adciona este codigo

Private Sub Command1_Click()
List1.Clear
i = 0
Do While i < Val(n.Text)
i = i + 1
List1.AddItem i & " + " & n.Text & " = " & Val(i) + Val(n)
Loop
End Sub

Private Sub List1_Click()
MsgBox List1.Text, vbInformation, "curtiu"
End Sub

Private Sub n_Change()
Command1.Enabled = True
End Sub

se você não intendeu me adciona no MSN q eu te ajudo...

aqui deu certo

[Graymalkin]

Acho que é mais simples assim (já que trata-se de um algorítmo):

n = inputbox("Digite um número inteiro:")
soma = 0
for i=1 to n
  soma = soma + i
next i
msgbox soma

Abraços,

Graymalkin