执行下面程序,单击Command1按钮后,列表框上显示的第一个列表项内容是 (1) ,最后一个列表项内容是 (2) 。 OptionExplicit PrivateSubCommand1_Click() DimstAsString,pAsString1,

admin2019-04-04  40

问题 执行下面程序,单击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
LoopWhileiList1.AddItemp&":"&jsEndSub

选项

答案(1) 1∶1 (2) 3∶2

解析
转载请注明原文地址:https://jikaoti.com/ti/8kO7FFFM
0

最新回复(0)