单项选择题

在窗体中添加一个列表框(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 IEnd Sub程序完成的功能是______。