Ficha 7-2

Private Sub cmd1_Click()

Dim n As Integer, soma As Integer, cont As Integer, impar As Integer

n = Val(oper1.Text)
soma = 0
cont = 1
impar = 1

Do While cont <= n
soma = soma + impar
impar = impar + 2
cont = cont + 1
Loop
resultado.Caption = "A soma dos " & n & " números ímpares é " & soma

End Sub

Private Sub Limpar_Click()
oper1.Text = ""
resultado.Caption = ""
End Sub

Private Sub Sair_Click()
End
End Sub