Problema con vectores - VB-MUNDO

feytri · #1 (**permalink**) 03-09-2008, 19:27:54

Hola q tal, soy nuevo tanto en el foro como en vb, estoy haciendo un prog. tengo 2 textboxs y 1 list, tengo q insertar en el list los 10 primeros valores multiplos del text1 pero q a su vez no sean multiplos de text2. Ejemplo en text1 se ingresa el 12 y en text2 se ingresa el 10... cuando presiono el boton cargar tendría q cargarme los 10 primeros con excepcion del 60 q es multiplo de los 2.
Bueno perdon por hacer tan largo el mensage... estoy trabado aca y no lo puedo resolver, espero su respuesta. Saludos
fede

J.M.Movilla · #2 (**permalink**) 03-09-2008, 20:57:26

Supongo que los "matemáticos" sepan de alguna fórmula científica que haya esto mismo que yo te aconsejo "por la cuenta de la vieja"... Pero, como decía Murphy, si tu programa funciona, respétalo...

Código:

Dim nMult as Integer
Dim nRes As Long
Dim nVale as Integer

nMult = 0
nVale = 0
Do
    nMult = nMult + 1
    nRes = Text1 * nMult
    If Mod (nRes / Text2) <> 0 then
        '  No es divisible por Text2.
        List1.AddItem nRes
        nVale = nVale + 1
        If nVale >= 10 Then exit Do
    End If
Loop