Duda con For, Next.

Iniciado por TiT@n, 8 Diciembre 2006, 22:10 PM

0 Miembros y 1 Visitante están viendo este tema.

TiT@n

Wenas.
Soy novatillo en visual basic, estoy aprendiendo y tengo una pekeña duda.
Me gustaria hacer una tabla de multiplicar con un bucle como la k nos hacian cuando eramos pekeñitos y la verdad  es k no me sale, si k me sale con select case, de lo mas sencillo, pero con el bucle na de na, lo he intentado de mil maneras pero no...
Un saludo, y espero k me hecheis un pekeña mano,

P.D: No me deis el programa hecho.
Alguna pistilla...

Jareth

No te he entendido,explicate mejor.

Red Mx

como no entendi


quieres solo hacer una multiplicacion

c


#include<stdio.h>
void main()
{

int i,r;

for(i=0;i<11;i++)

{

r=i*5;
printf("5 por %d es igual a: %d",i,r);


}
getch();
}



Vb

Dim i,r as integer
for i=0 to 10
r=i*5;
next i



creo era asi tu pregunta bueno el ciclo for es asi pero tambien puedes usar arreglos...
Desarrollar Malware Es Causa De Cancer...

TiT@n

Tu pones el numero en un textbox y te muestra en un label el numero multiplicado por los demas.

Imaginaros.

Por favor, introduce un numero: 12

12*1 = 12
12*2 = 24
12*3= 36

Asi hasta el 10. por eso pensaba en un bucle for next, asi se hace antes no? 1 to 10...

Me entendeis ahora?

CeLaYa

puedes hacerlo con 2 for anidados:



dim i as integer
dim j as integer
text1.text = ""
for i =1 to 10
     for j = 1 to 10
           text1.text = text1.text & " " & i & " x " & j & " = " & (i*j) & vbcrlf
    next j
next i

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.

TiT@n

Parece k me has entendido algo... pero yo no quiero k lo haga todo a la vez, sino poner un numero y me ponga toda su tablita en un label, poner otro y k me aparezca la de ese numero.

ReViJa

 :P

For x = 1 To 10
   Label1.Caption = Label1.Caption & (Text1.Text & " x " & x & " = " & Val(Text1.Text) * x) & vbCr
Next

TiT@n

y para hacer que cada vez salga una distinto? una tabla distinta? pongo el 1 y me sale la tabla, luego pongo el 2 y kisiera k se borrara la del 1 y me saliera la del 2, no es igual k en turbopascal...

ReViJa

Label1.Caption = ""
For x = 1 To 10
   Label1.Caption = Label1.Caption & (Text1.Text & " x " & x & " = " & Val(Text1.Text) * x) & vbCr
Next

TiT@n

Muchas gracias Tesis, mi problema era que ponia el Label despues del next y me daba 11, todo solucionado, gracias.