Private Sub Command1_Click( )
a$="National Computer Rank Examination"
n=Len(a$)
s=0
F.or i=1 To n
b$=Mid(a$, i, 1)
If b$="n" Then
s=s+1
E.nd If
Next i
Print s
E.nd Sub
程序运行后,单击命令按钮,输出结果是 (7) 。