单项选择题

窗体如图3所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：
Private Sub Command1_Click() Dim n%, k% n=Len(Text1.Text) For k=0 To List1.ListCount-1 If Left(List1.List(k), n)=Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图4所示。这说明程序不能适应所有情况，需要改正。正确的修改方案是把For k=0 to List1.ListCount-1改为

A. For k=List1.ListCount-1 To 0 Step-1
B. For k=0 To List1.ListCount
C. For k=1 To List1.ListCount-1
D. For k=1 To List1.ListCount

<上一题目录下一题>

热门试题

单项选择题下列对变量的定义中，不能定义a为变体变量的是

A. Dim a As Double
B. Dim a As Variant
C. Dim a
D. a=24

单项选择题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() x=0 n=InputBox( ) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是。

A.3
B.4
C.5
D.6