VB_2014_SLIP 23

SLIP 23_1

Option Explicit

Private Sub Command1_Click()

Dim num As Integer

Dim i As Integer

num = Val(Text1.Text)

For i = 1 To 10

List1.AddItem num & "x" & i & "=" & num * i

Next i

End Sub