单选题 在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码：
Private Sub Command1_ Click()
Dim Entry, I, Msg
Msg = "Choose Ok to add 100 items to your list box."
MsgBox Msg
for I = 1 To 100
Entry = "Entry" & I
List1. AddItem Entry
Next I
End Sub
程序完成的功能是______。