Question

Desenvolver um programa que efetue a soma da seqüência de 0 até 100.

Answer 1

– ListBox

1 – TextBox

1 – CommandButton

Dê 2 Cliques no Botão e adicione o Seguinte código:

Dim x, y, i As Integer
x = 0
y = x
i = 0

List1.Clear
Do While (i < 100)
i = i + 1
x = i
y = y + x
List1.AddItem “soma dos ” & i & “° é = ” & y
Loop

No evento Form_Load digite:

Private Sub Form_Load()

Text1.Text = “”

End Sub