Programación VB Encuentre los factores ~ Espera urgente en línea

Sub privado Form_Load() HScroll1.Min = 4 HScroll1.Max = 40 HScroll1.LargeChange = 1

Fin Sub

Sub privado HScroll1_Change() Imagen1. Cls For i = 1 To HScroll1.Value

Si HScroll1.Value / i = Int(HScroll1.Value / i) Entonces

a = a + i

Imagen1.Imprimir i

Fin si siguiente Imagen1.Imprimir HScroll1.Value & "La suma de los factores es: " & a

Fin Sub

Privado Sub Command1_Click() Picture1.Cls

End Sub

'¡Por favor acepte y esté de acuerdo! ¡Gracias!