皮皮学，免费搜题
登录
搜题
【单选题】
（ 35 ）窗体如图 1 所示。要求程序运行时，在文本框 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 项，结果如图 2 所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是 把 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
拍照语音搜题，微信中搜索"皮皮学"使用
参考答案：
参考解析：
知识点：
皮皮学刷刷变学霸
举一反三
【单选题】According to the classification of structure, what’s the type of the following sentence? “ Some praise him, whereas others condemn him.”
A.
Simple
B.
Compound
C.
Complex
D.
Compound-complex
【单选题】完整的角膜的组织结构为:
A.
上皮细胞层、内皮细胞层
B.
前弹力层、后弹力层
C.
基质层
D.
上皮细胞层、前弹力层、后弹力层、内皮细胞层
E.
上皮细胞层、前弹力层、基质层、后弹力层、内皮细胞层
【单选题】完整的角膜的组织结构为:
A.
上皮细胞层、内皮细胞层
B.
前弹力层、后弹力层
C.
上皮细胞层、前弹力层、后弹力层、内皮细胞层
D.
上皮细胞层、前弹力层、基质层、后弹力层、内皮细胞层
【单选题】完整的角膜的组织结构为:
A.
上皮细胞层、内皮细胞层
B.
基质层
C.
前弹力层、后弹力层
D.
上皮细胞层、前弹力层、后弹力层、内皮细胞层
E.
上皮细胞层、前弹力层、基质层、后弹力层、内皮细胞层
相关题目：