[填空題] 如圖所示，在列表框Listl中已經(jīng)有若干人的簡單信息，運(yùn)行時(shí)在Text1文本框(即“查找對(duì)象”右邊的文本框)輸入一個(gè)姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個(gè)匹配的列表項(xiàng)，則只顯示第1個(gè)匹配項(xiàng)；若未找到，則在Text2中顯示“查無此人”。請(qǐng)?zhí)羁?。Private Sub Command1_Click()Dim k As Integer，n As Integer，found As Booleanfound=Falsen=Len( 【1】 )k=0While k＜List1.ListCount And Not foundIf Text1=Left$(List1.List(k)，n)ThenText2= 【2】 found=TrueEnd Ifk=k+1WendIf Not found ThenText2="查無此人"End IfEnd Sub

[1]Text1；[2]List1．List(k)

[評(píng)析] 本題是把Text1中的內(nèi)容與List1中的項(xiàng)目逐個(gè)比較，而比較的時(shí)候，是先求出Text1中內(nèi)容的長度，即n=Len(Text1)，再從List1的項(xiàng)目中取出相同長度的內(nèi)容與Text1的值進(jìn)行比較，如果找到，則把項(xiàng)目顯示到Text2中，即Text2=List1.Lis((k)。