单项选择题

在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码：
Private Sub Commandl_Click()
Dim a, i, msg
msg="Choose OK to add 100 items to your listbox."
MsgBox msg
For i＝l To 100
a="a：" &i
List1. Addltem a
Next i
End Sub
程序完成的功能是 ( )