Cómo calcular múltiplos de 2, 3 y 5 hasta 100 en vb

End Sub

Sub js(mm como entero, nn como entero, kk como entero)

Atenuar i como Entero

Si mm = 1 Entonces

Si nn kk = 0 Entonces

Combo1.Text = "Múltiplos de 2"

Para i = 1 a 100

Si i Mod 2 = 0 Entonces Combo1.AddItem Str(i)

Siguiente

ElseIf nn = 1 Y kk = 1 EntoncesSiguiente

De lo contrario, si nn = 0 y kk = 1, entonces

Siguiente

Si i Mod 2 = 0 y i Mod 5 = 0, entonces Combo1.Y kk = 1 Entonces

Combo1.Text = "Múltiplos de 2, 3, 5"

Para i = 1 a 100

Si i Mod 2 = 0 y i Mod 3 = 0 Y i Mod 5 = 0 Entonces Combo1.AddItem Str(i)

Siguiente

EndIf nn = 1 Entonces

ElseIf nn = 1 Y kk = 1 Entonces

Combo1.Text = "Múltiplos de 2, 3, 5"