窗體上有一個名為List1的列表框,其中已經(jīng)輸入了若干個項(xiàng)目(如圖所示);還有兩個文本框,名稱分別為
窗體上有一個名為List1的列表框,其中已經(jīng)輸入了若干個項(xiàng)目(如圖所示);
還有兩個文本框,名稱分別為Text1、Text2,一個名稱為Command1的命令按鈕,并有以下程序: Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)>0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="沒有匹配項(xiàng)目" Else Text2=str End If End Sub 程序運(yùn)行時,在Text1中輸入“京”,單擊命令按鈕,則在Text2中顯示的內(nèi)容是______。
A.京
B.北京 南京
C.南京 北京
D.沒有匹配的項(xiàng)目
正確答案:C解析:InStr([首字符位置]字符串1,字符串2[,n])用來在“字符串1”中查找“字符串2”,如果找到,則返回“字符串2”的第一個字符在“字符串廣中的位置。ListCount屬性表示組合框中項(xiàng)目的數(shù)量。ListCount-1表示組合框中最后一項(xiàng)的序號。程序中循環(huán)變量的初值是列表框中的最后一個項(xiàng)目,終值是列表框中的第一個項(xiàng)目,此循環(huán)的作用是從列表框的最后一個項(xiàng)目到第一個項(xiàng)目中,找出列表框項(xiàng)目中包含“京”的項(xiàng)目,并將內(nèi)容顯示在Text2中。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。