如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。

Private Sub Command1_Click（）

D．im k As Integer, n As Integer, found As Boolean

found = False

n = Len（(14) ）

k = 0

While k < List1.ListCount And Not found

If Text1 = Left$（List1.List（k）, n） Then

Text2 = (15)

found = True

E．nd If

k = k + 1

Wend

If Not found Then

Text2 = "查无此人"

E．nd If

E．nd Sub

[单选题]在表单form1中有一个列表框list1和一个文本框text1，form1的load事件代码如下：Thisform.list1.additem（“123”）Thisform.list1.additem（“123”）Thisform.text1.value=””list1的interactivechange事件代码如下：Thisform.text1.value=Thisform.text1.value-Thisform.list1.value表单运行后，在list1中先选择456，再选择123，则

[单选题]窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Commandl_Click()D．im n％．k％n=Len(Textl．Text)F．or k=0 To Listl．ListCount-1If Left(Listl．List(k)，n)=Text1．Text ThenListl．Removeitem kE．nd IfNext kE．n

[主观题]窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）F．or i=1 To 100If i Mod 7 =0 Then________

[单选题]窗体如下左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的

[单选题]窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=

[单选题]窗体如图1所示。要求程序运行时，在文本框Text中输入一个姓氏，单击“删除”按钮（名称为Cornmand1），则可删除列表框List1中所有该姓氏的项

[单选题]在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是（ ）。A．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a>=0 or a<=100 T

[单选题]窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A． 京B． 北京南京C． 南京北京D． 没有匹配的项目

[单选题]在窗体上有若干控件，其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______ 。A．TabStopB．EnabledC．VisibleD．Tablndex

[单选题]在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是A．List1．Removeltem List1．TextB．List1．Removeltem List1．CIearC．List1．Removeltem List1．ListCountD．List1．Removeltem List1．Listlndex