Programación VB Tabla de multiplicar Triángulo inferior derecho
Private Sub Command1_Click()
Me.FontSize = 30'El tamaño de fuente 30 es un poco grande y excede el rango de la ventana
Dim i As Integer
Atenuar j como entero
Atenuar s como cadena
Para i = 1 a 9
Para j = 1 a i
s = CStr(i) & "*" & CStr(j) & "=" & CStr(i * j)
s = s & Espacio$(10 - Len(s) ) p>
Imprimir s;
Siguiente j
Imprimir
Siguiente i
Fin Sub