利用列表框和命令按钮编程，要求程序能够实现添加项目、删除项目和删除全部项目的功能

Question

   在窗体上添加一个列表框控件，3个命令按钮，代码如下：
   Private Sub Command1_Click()
    Dim entry
    entry = InputBox("输入添加内容", "添加")
    List1.AddItem enty
  End SubPrivate Sub Command2_Click()
    Dim i As Integer
    For i = List1.ListCount - 1 To 0 step - 1
        If List1.Selected(i) Then List1.RemoveItem i
    Next i
End SubPrivate Sub Command3_Click()
    List1.Clear
End Sub
运行的时候说entry未定义 是怎么回事？

Answer 1

 Private Sub Command1_Click()
    Dim entry
    entry = InputBox("输入添加内容", "添加")
    List1.AddItem entry
  End SubPrivate Sub Command2_Click()
    Dim i As Integer
    For i = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(i) Then List1.RemoveItem i
    Next i
End SubPrivate Sub Command3_Click()
    List1.Clear
End Sub