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

根据我国口岸检查办法的规定，申请电讯检疫的船舶，应持有效卫生证书并在船舶入境前24小时，向卫生检疫机关报告下列事项（）。

Ⅰ．船名、国籍、预定到达检疫锚地的日期和时间；

Ⅱ．发航港、最后寄港；

Ⅲ．船员和旅客人数及健康状况；

Ⅳ．货物种类。

A．Ⅱ～Ⅳ

B．Ⅰ～Ⅳ

C．Ⅰ～Ⅲ

D．Ⅰ、Ⅲ、Ⅳ