[单项选择题] 有如下程序： Private Sub Command1

[单项选择题] 有如下程序：

Private Sub Command1_Click()

as="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

此题考查了字符串函数与循环语句的嵌套使用，S用来记录找到指定字符串的次数，在“A WORKER IS HERE”中，只出现一次，所以返回值是1。