[填空題] 如圖16-10所示．在列表框List1中已經有若干人的簡單信息，運行時在Text1文本框(即“查找對象”右邊的文本框)輸入一個姓或姓名，單擊“查找”按鈕，則在列表框中進行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個匹配的列表項，則只顯示第1個匹配項；若未找到，則在Text2中顯示“查無此人”。請?zhí)羁铡? Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len( 【6】 ) k=0 While k＜List1. ListCount And Not foundIf Text1=Left $(List1. List(k), n)Then Text2= 【7】 found=TrueEnd Ifk=k+1 Wend If Not found Then Text2="查無此人" End If End Sub

[6]Text1. text或Text1 [7]List1. list(k)解析：[分析]： 變量n記錄文本框Text1中的字符串長度，作為讀取列表框List1中字符串使用，使得在比較文本框和列表框的字符串時具有相同的長度。一旦在列表框中找到與文本框相匹配的字符串，就將列表框中該段字符串賦給文本框Text2。變量found的作用是確認是否查找到有匹配的字符串，在初始時假定毆有匹配的字符串，當查找到有匹配的字符串時，將found賦值True。