Red de conocimiento informático - Problemas con los teléfonos móviles - Tabla de multiplicar de diseño VB

Tabla de multiplicar de diseño VB

Sub privado Form_Load()

Atenuar a, b, c como entero

Text1.Text = ""

Para a = 1 a 9

Para b = 1 a a

c = b * a

Text1.Text = Text1.Text amp "*" amp; a amp; "=" amp; c amp ";"

Siguiente b

Texto1.Texto = Texto1.Chr(13) amp; )

Siguiente a

Fin Sub

1*1=1;

1*2=2; ;

1*3=3; 2*3=6; 3*3=9;

1*4=4; ;4*4=16;

1*5=5; 3*5=15; >1*6=6; 2*6=12; 3*6=18; 4*6=24; 5*6=36; 2*7=14; 3*7=21; 4*7=28; 6*7=42; *8=16; 3*8=24; 4*8=32; 5*8=40; 7*8=56; 9=9; 2*9=18; 7*9=63; 81;