● 以下关于项目沟通原则的叙述中，（46）是不正确的。（46）

窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（）。

A. 京

B. 北京南京

C. 南京北京

D. 没有匹配的项目

窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（）。

A.京

B.北京南京

C.南京北京

D.没有匹配的项目

ext1、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.没有匹配的项目

ext1、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.没有匹配的项目

分别为Text1、Text2, 1个名称为 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

If InStr（List.List（k）,s）>0 then

str=str&List.List（k）&” ”

End If

Next k

If str=””Then

Text2=”没有匹配的项目”

Else

Text2=str

End If

End Sub

程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（）。

A．京

B．北京 南京

C．南京

D．没有匹配的项目

A．A

B．B

C．C

D．D

窗体上有一个列表框和一个文本框，编写下列两个事件过程：

Private Sub Form. Load()

List1.Addltem"北京"

List1.Addltem"天津"

List1.Addltem"上海"

Text1.Text=""

End Sub

Private Sub List1 Click()

Print Text1.Text+List1.Text

End Sub

程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是()。

A．中国北京

B．中国天津

C．中国上海

D．北京中国

有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。

个文本框 ，名称分别为 Text1 、 Text2, 1 个名称为 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

If InStr （List.List （k ） ,s ） >0 then

str=str&List.List （k ） & ” ”

End If

Next k

If str= ”” Then

Text2= ” 没有匹配的项目 ”

Else

Text2=str

End If

End Sub

程序运行时，在 Text1 中输入 “ 京 ” ，单击命令按钮，则在 Text2 中显示的内容是（）

A ） 京

B ） 北京 南京

C ） 南京

D ） 没有匹配的项目

列表框，名称分别为List1和List2，在List2中已经预设了内容：还有两个命令按钮，名称分别为Cmd1和Cmd2,。标题分别为Add和Delete。如下图所示。

程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击Add按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击Delete按钮，则把该项移回右边的列表框中。

注意：

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容。 但不得修改程序的其他部分，也不得修改控件的属性。最后，按原文件名并在原文件夹中保存修改后的文件。