Duda con For, Next.

[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

Código [Seleccionar] Expandir


#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

Código [Seleccionar] Expandir


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...

[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:

Código [Seleccionar] Expandir


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



[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]

 

Código [Seleccionar] Expandir

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]

Código [Seleccionar] Expandir

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.