Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB Tabla de multiplicar Triángulo inferior derecho

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

Imprimir s;

Siguiente j

Imprimir

Siguiente i

Fin Sub