WAP to print tables of a given number.

Private Sub Command1_Click()
Dim t As Integer
Dim n As Integer
t = InputBox("Enter number to print table")
Form1.Caption = "table of " & t
n = 1
Cls
While n <= 10
Print t, "X", n, "=", t * n
n = n + 1
Wend
End Sub


Posted by: Wasim Javed