问题详情

运行下列程序：

Private Sub Command1_Click()

s$ = "abcdefabcdefabcdef"

k = InStr(s$, "c")

Do While k > 0

n = n + 1

s$ = Mid(s$, k + 1)

k = InStr(s$, "c")

Loop

Print n

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.1

B.2

C.3

D.4