窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：

Private Sub Commandl_Click()

D．im n％．k％

n=Len(Textl．Text)

F．or k=0 To Listl．ListCount-1

If Left(Listl．List(k)，n)=Text1．Text Then

Listl．Removeitem k

E．nd If

Next k

E．nd Sub

在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k：0 To Listl．ListCount-1改为

A．For k=Listl．ListCount-1 To 0 Step-1

B．For k=0 To Listl．ListCoulit

C．For k=1 To List1．ListCount-1

D．For k=1 To List1．ListCount

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

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

[单选题]窗体上确文本框Text1和一个菜单，菜单标题、名称见表，结构如图2所示。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中，下面可实现此功能的事件过程是（ )。

[单选题]在窗体上有一个文本框Text1和一个标签Label1，要求运行程序时，在文本框中输入的内容立即显示在标签中(如图1所示)，则空白处应填入的内容是（ ）。A． GeffocusB． ClickC． ChangeD． LostFocus

[单选题]在窗体上从左到右有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

[单选题]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）C．all CheckInput（Text1，500）E．nd SubPrivate Sub Text2_LostFocus（）C．all CheckInput（Text2，1000）E．nd SubSub CheckInput（

[单选题]窗体上有一个文本框，其Name属性为Text1，如图1所示，并有如下事件过程：上述程序的运行结果是（ ）。A． 在文本框Text1中输出55B． 在文本框Text1中输出0C． 语法错误D． 在文本框Text1中输出不定值

[单选题]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句是______。A．Text1.ClearB．Text1.Locked=TrueC．Text1.Visible=FalseD．Text1.Enabled=True

[单选题]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句： ______。A．Text1.ClearB．Text1.Locked=TrueC．Text1.Visible=FalseD．Text1.Enabled=True

[单选题]设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是（ ）。A．Text1.MaxLength=0B．Text1.Enabled=FlaseC．Text1.Visible=FlaseD．Text1.Width=0