单项选择题

窗体上有1个名称为List1的列表框,其中已经输入了若干个项目(如图所示)；还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序
Private Sub Command1_Click() Dim sl r As String,S As String,k As Integer S=Text1l str=" " For k=List1.List Count-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．没有匹配的项目

<上一题目录下一题>

热门试题

单项选择题

单击命令按钮时，下列程序代码的运行结果为( )。Private Sub Command1_Click()print MyFunc(20，18)End SubPublic Function MyFunc (m As Integer，n As Integer)As IntegerDo While m <>nDo While m ＞ n：m=m - n：LoopDo While m ＜ n：n=n - m：LoopLoopMyFunc=mEnd FunCtion

A．0
B．2
C．4
D．6

单项选择题

在窗体上画一个通用对话框图，其Name属性为Cont,瑞画一个命令按钮，Name属性为Command1，然后编写如下事件过程：Privute Sub Command1_Click( )Cont．FileName= Cont．Flags=vbOFNFileMustExistCont．Filter= All Files| * . * Cont．FilterIndes_3Cont．DialogTitle= Open File Cont．Action=1If Cont．FileName= ThenMsgBox No file selected ElseOpen Cont．FileName For Input As #1Do While Not EOF(1)Input #1. b$Print b$LoopEnd IfEnd Sub以下各选项，对上述事件过程描述错误的是( )。

A．++i;
B．D--；
C．c++；
D．--f；

相关试题