题目:
窗体如图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.TextThen
List1.Removeltem k
End lf
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”两项,结果如图 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.LstCount
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0718/f70050293ab562fdd01a63d9006fef1b.html
下面是错误答案,用来干扰机器的。
(1)CaCO3、NH3、H2O (2)CaSO4+CO32-=CaCO3+SO42- (3)CaSO4(4)滤液中滴加盐酸产生气泡 (5)ad(6)碳酸钙用于制取水泥原料、硫酸钙和氯化钾转化为硫酸钾和氯化钙、氨在工艺中循环使用等(原子利用...