皮皮学，免费搜题
登录
搜题
【单选题】
（ 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
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈参考答案：
举一反三
【单选题】下列数字中,有效数字属于 2 位数的是( )。 A . 0.1 B . 0.09 C . 1.50 D . 3.0 × 10^3 E . 5 000
A.
0.1
B.
0.09
C.
1.50
D.
3.0 × 10^3
参考解析：
知识点：
题目纠错 0
发布
