[填空題] 在窗體上建立如下圖所示的界面。在列表框List1中已有若干人的簡單信息,運行時Text1文本框輸入一個姓或姓名,單擊"查找"按鈕,則在列表框中進行查
2021-07-20
[填空題] 在窗體上建立如下圖所示的界面。在列表框List1中已有若干人的簡單信息,運行時Text1文本框輸入一個姓或姓名,單擊"查找"按鈕,則在列表框中進行查找。若找到,則把該人的信息顯示在Text2文本框中。若有多個匹配的列表框,則只顯示第一個匹配項;若未找到,則在Text2文本框中顯示"查無此人"。請完成下列的程序代碼。
Private Sub Command1_Click()
Dim k As Integer,n As Integer, found As Boolean
found=False
n=Len( (10) )
k=0
While k< (11) And Not found
If Text1=Left $ (List1.List(k),n)Then
Text2= (12)
found=True
End If
k=k+1
Wend
If Not found Then
Text2="查無此人"
End If
End Sub
正確答案:List1.List(k)
參考解析:本題考查的是While…Wend循環(huán)格式語句,嵌套層內使用If條件語句判斷。[10]空是讀取Text1中字符串的長度,以便在Text2中進行查找。[11]空循環(huán)條件是在列表框的項數(shù)之內循環(huán),用List1.ListCount來讀取列表框共有多少項。[12]空的條件語句中,如果找到該項,用List1.List(k)語句把結果在Text2中顯示出來。
詞條內容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域專業(yè)人士。