[填空題] 如圖所示，在列表框Listl中已經(jīng)有若干人的簡單信息，運(yùn)行時在Text1文本框(即“查找對象”右邊的文本框)輸入一個姓或姓名，單擊“查找”按鈕，則在
2021-07-20
[填空題] 如圖所示，在列表框Listl中已經(jīng)有若干人的簡單信息，運(yùn)行時在Text1文本框(即“查找對象”右邊的文本框)輸入一個姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個匹配的列表項，則只顯示第1個匹配項：若未找到，則在Text2中顯示“查無此人”。請?zhí)羁铡?/p>
Private Sub Commandl_Click()
Dim k As Integer, n As Imeger,found As Boolean
found=False
n=Len(______)
k=0
While k＜Listl.ListCount And Not found
If Text1=Left$(Listl.List(k),n)Then
Text2=______
found=True
End If
k=k+1
Wend
If Not found Then
Text2="查無此人"
End If
End Sub
正確答案：Text1 Listl.List(k)
參考解析：本題是把Text1中的內(nèi)容與Listl中的項目逐個比較，而比較的時候，是先求出Text1中內(nèi)容的長度，即n=Len(Text1)，再從Listl的項目中取出相同長度的內(nèi)容與Text1的值進(jìn)行比較，如果找到，則把項目顯示到Text2中，即Text2=Listl.List(k)。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。