![[填空题] 在窗体上建立如下图所示的界面。在列表框List1中已有若干人的简单信息，运行时Text1文本框输入一个姓或姓名，单击"查找"按钮，则在列表框中进行查找。若找到，则把该人,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E5%BB%BA%E7%AB%8B%E5%A6%82%E4%B8%8B%E5%9B%BE%E6%89%80%E7%A4%BA%E7%9A%84%E7%95%8C%E9%9D%A2%E3%80%82%E5%9C%A8%E5%88%97%E8%A1%A8%E6%A1%86List1%E4%B8%AD%E5%B7%B2%E6%9C%89%E8%8B%A5%E5%B9%B2%E4%BA%BA%E7%9A%84%E7%AE%80%E5%8D%95%E4%BF%A1%E6%81%AF%EF%BC%8C%E8%BF%90%E8%A1%8C%E6%97%B6Text1%E6%96%87%E6%9C%AC%E6%A1%86%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E5%A7%93%E6%88%96%E5%A7%93%E5%90%8D%EF%BC%8C%E5%8D%95%E5%87%BB%26amp%3Bquot%3B%E6%9F%A5%E6%89%BE%26amp%3Bquot%3B%E6%8C%89%E9%92%AE%EF%BC%8C%E5%88%99%E5%9C%A8%E5%88%97%E8%A1%A8%E6%A1%86%E4%B8%AD%E8%BF%9B%E8%A1%8C%E6%9F%A5%E6%89%BE%E3%80%82%E8%8B%A5%E6%89%BE%E5%88%B0%EF%BC%8C%E5%88%99%E6%8A%8A%E8%AF%A5%E4%BA%BA.png "[填空题] 在窗体上建立如下图所示的界面。在列表框List1中已有若干人的简单信息，运行时Text1文本框输入一个姓或姓名，单击"查找"按钮，则在列表框中进行查找。若找到，则把该人,第1张")
[填空题] 在窗体上建立如下图所示的界面。在列表框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
正确答案：Text1.Text
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）