如图16-10所示．在列表框List1中已经有若干人的简单信息 运行时在Text1文本框(即“查找对
如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len(【 】) k=0 While k＜List1. ListCount And Not found If Text1=Left $(List1. List(k), n)Then Text2=【 】 found=True End If k=k+1 Wend If Not found Then Text2="查无此人" End If End Sub 
请帮忙给出正确答案和分析，谢谢！
参考解答
400***265
2023-07-22 16:20:19
正确答案：Text1. text或Text1 List1. list(k)
变量n记录文本框Text1中的字符串长度，作为读取列表框List1中字符串使用，使得在比较文本框和列表框的字符串时具有相同的长度。一旦在列表框中找到与文本框相匹配的字符串，就将列表框中该段字符串赋给文本框Text2。变量found的作用是确认是否查找到有匹配的字符串，在初始时假定殴有匹配的字符串，当查找到有匹配的字符串时，将found赋值True。
相似问题
下图中 图1 图2是应用程序的部分界面。运行程序首先出现图1的对话框 要求用户输入口令 输入完毕后单
下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2
设有如下记录类型： Type student Number As String*10 Name As
设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮Command1时，执行如
以下程序计算自然数e的值 要求精确到1015 阅读下列程序。已知e的计算公式为：e=1+1/1!+1
以下程序计算自然数e的值，要求精确到1015，阅读下列程序。已知e的计算公式为：e=1+1 1!+1 2! + …+1 n!。请在【 】和【 】处填上正确内容。 Privat
下列程序实现的功能是：当在窗体上单击时 将输出a1．txt 文件中的数字字符的个数。 Private
下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub form_ Click() Dim Ch As String * 1 Dim
假设有以下程序段： For i= 1 To 3 For j=5 To 1 Step -1 Print
假设有以下程序段： For i= 1 To 3 For j=5 To 1 Step -1 Print i * j Next j Next i 则语句Print i*j的执行次数是______，i的值为______，j的值为______。请帮忙给出正确答案和分析，谢谢！
