单选

窗体上有1个名称为List1的列表框,其中已经输入了若干个项目,如图所示;还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有下列事件过程。

Private Sub Command1_Click(  )

Dim str As String,S As String.k As Integer

s=Text1

str =""

For k=Listl.ListCount-1 To 0 Step-1

If InStr(List1.List(k),s)>0 Then

str=str & List1.List(k)&""

End If

Next k

If str=""Then

Text2="没有匹配的项目"

Else

Text2=str

End If

End Sub

程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是(  )。

  • A.京
  • B.北京南京
  • C.南京北京
  • D.没有匹配的项目
参考答案
您可能感兴趣的试题

现有如下一段程序:

Option Base 1

Privalc Sub Command1 Click(  )

 Dim a

  • a=Array(3,5,7,9‘)    x=1
  • For i=4,10 j Step-1    s=s+a(i)*X    x=x*10    Next i    Print s
  • End Sub    执行程序,单击Command1命令按钮键,执行上述事件过程,输出结果是(  )。
  • A.9753
  • B.3579
  • C.35
  • D.79

下列可以打开随机文件的语句是(  )。

  • A.Open"file 1.dat"For Input As#1
  • B.Open"file1.dat"For Append As#1
  • C.Open"file1.dat"For Output As#1
  • D.Open"file1.dat"For Randow As#1 Len=20

下列关于线性链表的叙述中,正确的是(  )。

  • A.各数据结点的存储空间可以不连续,但它们的存储顺序与逻辑顺序必须一致
  • B.各数据结点的存储顺序与逻辑顺序可以不一致,但它们的存储空间必须连续
  • C.进行插入与删除时,不需要移动表中的元素
  • D.以上三种说法都不对
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服