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;