计算机二级VB问题 急急急！！！

来源：百度知道 编辑：UC知道 时间：2024/05/28 11:23:17
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
这个程序的最后结果是什么？要有 详细解释过程~~~谢谢

当 i = 1时: b$ = Mid$("A WORKER IS HERE",1, 3) = A W , s = ""
当 i = 2时: b$ = Mid$("A WORKER IS HERE",2, 3) = WO , s = ""
当 i = 3时: b$ = Mid$("A WORKER IS HERE",3, 3) = WOR , s = 1
当 i = 4时: b$ = Mid$("A WORKER IS HERE",4, 3) = ORK , s = 1
当 i = 5时: b$ = Mid$("A WORKER IS HERE",5, 3) = RKE , s = 1
当 i = 6时: b$ = Mid$("A WORKER IS HERE",6, 3) = KER , s = 1
当 i = 7时: b$ = Mid$("A WORKER IS HERE",7, 3) = ER , s = 1
当 i = 8时: b$ = Mid$("A WORKER IS HERE",8, 3) = R I , s = 1
当 i = 9时: b$ = Mid$("A WORKER IS HERE",9, 3) = IS , s = 1
当 i = 10时: b$ = Mid$("A WORKER IS HERE",10, 3) = IS , s = 1
当 i = 11时: b$ = Mid$("A WORKER IS HERE",11, 3) = S H , s = 1
当 i = 12时: b$ = Mid$("A WORKER IS HERE",12, 3) = HE , s = 1
当 i = 13时: b$ = Mid$(&quo