5、有如下程序： Private Sub Command1_Click() a$="A WORKER IS HERE" x=Len(a$) For i=1 To x

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

A) 1
当i=3时s=s+1=1,整个循环中If b$="WOR" Then S=S + 1只满足一次，所以s最后的值为1

A If b$="WOR" Then S=S + 1只+1过一次

right函数的功能是从字符串右端取指定个数字符；mid函数从字符串中返回指定数目的字符。msgbox函数格式为：msgbox(prompt［, buttons］ ［, title］ ［, helpfile, context］)其中第一个参数prompt代表在对话框中显示的信息；第二个参数buttons可缺省；第三个参数title代表在对话框标题栏中显示的字符串表达式；第四个参数helpfile和第五个参数context也可缺省。本题要得到弹出信息框标题栏的标题为b$=right(a$, 8)表达式的值，即hardware。hardware