3. Desenvolver um programa que efetue a soma e a média e uma seqüência de 100 termos. O programa deve pedir o primeiro termo da seqüência e realizar a soma dos 99 termos seguintes.

Vamos Resolver essa…

no Visual Basic desenhe um formulario como este:

1 – ListBox

1 – TextBox

1 – CommandButton

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

Private Sub Command1_Click()
Dim x, y, i As Integer
x = 0
y = x
i = Val(Text1.Text)

Do While (i <= Val(Text1.Text) + 99)

x = i
y = y + x
List1.Clear
List1.AddItem “De ” & Val(Text1.Text) & “° até ” & i & ” = ” & y
List1.AddItem “A média é ” & Int(y / 100)
i = i + 1

Loop
End Sub

 

No evento Form_Load digite:

Private Sub Form_Load()

Text1.Text = “”

End Sub

até a próxima…