Ficha 13-4

Private Sub cmd1_Click()

Dim num As Integer, soma As Integer, n As Integer

num = Val(InputBox("Introduza um numero", "Caixa de entrada"))
Picture1.Print "Múltiplos -> ";
For n = 1 To num
If n Mod 5 = 0 Then
Picture1.Print n;
soma = soma + n
End If
Next n

Picture1.Print
Picture1.Print "Soma dos números múltiplos de 5 -> " & soma

End Sub

Private Sub Limpar_Click()
Picture1.Cls
End Sub

Private Sub Sair_Click()
End
End Sub