有如下程序：Private Sub Command1_Click（）a$= "A WORKER IS HERE"x=Len（a$）For i=1 To x - 1b$=Mid$（a$, i, 3）If b$= "WOR" Then S=S + 1NextPrint SEnd Sub单击命令按钮，程序运行结果为（ ）A．1B．2C．3D．5
题目
有如下程序：
Private Sub Command1_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
相似考题
更多“有如下程序: PrivateSubCommand1_Click() a$="AWORKERISHERE" x=Len(a$) Fori=1Tox－1 b ”相关问题
-
第1题：
有如下程序:
Private Sub Command1_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
解析：此题考查字符串函数与循环语句的嵌套使用,S用来记录找到指定字符串的次数,在"A WORKER IS HERE"中只出现一次,所以返回值是1。 -
第2题：
有如下程序： 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
解析：此题考查了字符串函数与循环语句的嵌套使用，s用来记录找到指定字符串的次数，在“AWORKERISHERE”中，只出现一次，所以返回值是1。 -
第3题：
（27）设有如下程序
Private Sub Command 1_Click()
x=10：Y=0
For i=1 To S
Do
x＝x-2
y＝y+2
Loop Until y＞5 Or x＜-1
Next
End Sub
运行程序，其中Do循环执行的次数是
A）15
B）10
C）7
D）3
正确答案：C
-
第4题：
有如下程序： 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。 -
第5题：
有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是
A．1
B．2
C．3
D．4
正确答案：C
解析：Mid(a＄，i，2)表示从字符串a＄的第i个字符开始向后截取2个字符。由于“AWORKERISOVERTHERE'’中有三个“ER”，故s=s+1将被执行3次，即s最后的值为3。