Generar la tabla de multiplicar en el control de etiqueta en VB

La tabla de multiplicar es una tabla bidimensional, por lo que se implementa mediante un bucle doble. El bucle externo determina de cuántas filas consta y un bucle externo determina qué contenido se generará en una. fila.

Private Sub Command1_Click() Label1.Caption = ""'Borrar la etiqueta y prepararla para la salida Label1.FontSize = 12'Establecer el tamaño de fuente de la etiqueta Label1.FontBold = True'Bold font For i = 1 a 9' consta de 9 líneas

Para j = 1 a i'En la i-ésima fila, hay i ecuaciones

? Trim(Str (j)) amp; "*" amp; Trim(Str(i)) amp; "=" amp; i * j

'¿Generar una ecuación

? Si i * j lt; 10 Entonces s?= " ?" Else s = " "'El número de espacios en las dos partes antes y después es diferente, se utiliza para completar la tabla

? = Label1.Caption amp; s 'Agregar espacios a la tabla de etiquetas

Siguiente j

Label1.Caption = Label1.Caption vbCrLf'Fin de una línea, ajustar Siguiente i

Fin del subtítulo