Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
a = InputBox("Input a number")
For i = 1 To 10
r = a * i
List1.AddItem (r)
Next
End Sub
Private Sub Command1_Click()
Dim a As String
Dim i As Integer
For i = 1 To 5
a = InputBox("enter a word")
r = Left(a, 1)
If r = "A" Then
c = c + 1
Else
d = d + 1
End If
Next
MsgBox ("Starts with A " & c & "Others " & d)
End Sub
