如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len(【 】) k=0 While k<List1. ListCount And Not found If Text1=Left $(List1. List(k), n)Then Text2=【 】 found=True End If k=k+1 Wend If Not found Then Text2="查无此人" End If End Sub
A.有重大营销活动的时候,必须详细制定预防踩踏事故的应急预案
B.现场要投入充足的保安力量
C.队伍前段部分人群向商场内疯狂拥挤而入时,一定要堵截,坚决不让人群进入商场
D.人群向商场内疯狂拥挤而入时,对队伍的中段或者后头人群应当堵截疏导,使整个队伍失去混乱的后续推动力
A.政府的政策
B.网民的需求
C.经济的波动
D.市场的反映