Visual Basic

·    Armar una tabla de multiplicar.

En este ejercicio pretendemos introducir un “valor X”, un número, y que el programa sea capaz de mostrar la tabla de multiplicar del número introducido.

Empezaremos con el diseño del formulario, el formulario quedará así:

           2 labels                         1 text                         2 Commandbutton

 

Haremos doble “clic” en el primer botón “Ver Tabla” y desde la pantalla de código introduciremos:

En la rutina del “command1_click” Private Sub Command1_Click() a = 1

R = 0

Label2.Caption = "" For a = 1 To 10

Label2.Caption = Label2.Caption + Trim(Str(a)) + " *" + Str(Text1.Text) + " = " +  Str(a * Text1.Text) + Chr(13) + Chr(13)

Next a

End Sub

En la rutina del “command2_ click” Private Sub Command2_Click() End

End Sub