3. Write a program to take input of x and print table of x in the following format.
X * 1 = X
X * 2 = 2X
-----------------
-----------------
X * 10 = 10 * X
Private Sub Command1_Click()
List1.Clear
Dim n As Integer
n = 0
Do While n < 12
n = n + 1
r = Val(Text1.Text) * n
List1.AddItem (Text1.Text & " x " & n & " = " & r)
Loop
Text1.Text = ""
Text1.SetFocus
End Sub
X * 1 = X
X * 2 = 2X
-----------------
-----------------
X * 10 = 10 * X
List1.Clear
Dim n As Integer
n = 0
Do While n < 12
n = n + 1
r = Val(Text1.Text) * n
List1.AddItem (Text1.Text & " x " & n & " = " & r)
Loop
Text1.Text = ""
Text1.SetFocus
End Sub