执行下面程序，单击Command1按钮后，列表框上显示的第一个列表项内容是    (1)    ，最后一个列表项内容是    (2)    。
OptionExplicit
PrivateSubCommand1_Click()
DimstAsString，pAsString1，iAsInteger，jsAsIntegerst="12233"
p=Mid(st，1，1)js=1
i=1Do
i=i+1
IfMid(st，i，1) =pThenjs=js+1

Else

List1.AddItemp&":"&jsp=Mid(st，i，1)
js=1

EndIf
LoopWhilei<Len(st)
List1.AddItemp&":"&jsEndSub