有如下程序:
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
第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
第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
第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
第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
第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