设List1为列表框控件,List1.Clear中的Clear是()。
A.方法
B.对象
C.属性
D.事件
A.方法
B.对象
C.属性
D.事件
第1题
第2题
第3题
Private Sub Command1_Click() If List1.ListIndex>=0 Then List1.RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub
第4题
第5题
End If End Sub
第6题
DataCombo控件是一个数据绑定组合框,若将其设置成下拉列表框,其()属性值应设置为2-dbcDropdownList。
第7题
A.DropDown
B. DropDownList
C. Sinple
D. IsSelected
第8题
A.DropDown
B.DropDownList
C.Sinple
D.IsSelected
第9题
请在【 】和【 】处填入适当内容,将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【 】() Label1.Caption=【 】 End Sub
第10题
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len(【 】) k=0 While k<List1. ListCount And Not found If Text1=Left $(List1. List(k), n)Then Text2=【 】 found=True End If k=k+1 Wend If Not found Then Text2="查无此人" End If End Sub