ficha numero 12 exercicio 6

Private Sub Command1_Click()
Dim n As Integer, x As Integer, tabuada As Integer

n = Val(InputBox("introduza a tabuada que pretende calcular", "Introducao "))

For x = 1 To 10
tabuada = x * n
Picture1.Print n & "*" & x & "=" & tabuada

Next x

End Sub