单项选择题

有如下程序：　　Private Sub Commandl_Click( ) 　　　　a$="A WORKER IS HERE" 　　　　x=Len(a$) 　　　　For i=1，To x-1 　　　　　　b$=Mid$(a$，i，3) 　　　　　　If b$="WOR" Then S=S+1 　　　　Next 　　　　Print S 　　End Sub 　　单击命令按钮，程序运行结果为( )。

A．1
B．2
C．3
D．5

<上一题目录下一题>

热门试题

单项选择题

下列程序段，在运行时最后输出的内容是( )。a=2c=3AAA：c=c * aIf c〈10 ThenPrint cGoTo AAAElsePrint“10以内的奇数显示完毕”End If

A． 5，2，3
B． -5，-12，-7
C． -5，-12，-17
D． 5，-2，-7

单项选择题

在窗体上画一个名称为File的文件列表框，并编写如下程序：Private Sub File1_DblClick( )x=Shell(File1．FileName，1)End Sub以下关于该程序的叙述中，错误的是（）。

A．x没有实际作用，因此可以将该语句写为：Call Shell(File．FileName，1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过File1．FileName指定
D．File1中显示的是当前驱动器、当前目录下的文件

相关试题