Ficha 7-1

Private Sub cmd1_Click()

Dim n As Integer, m As Integer, soma As Integer, mult As Integer, cont As Integer

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

Do While n > 0
mult = cont * m
soma = soma + mult
cont = cont + 1
n = n - 1
Loop
resultado.Caption = "A soma dos " & cont - 1 & " primeiros múltiplos de " & m & " é " & soma

End Sub

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


Private Sub Sair_Click()
End
End Sub