a$='National Computer Rank Examination'n=Len(a$)s=0For i=1 To nb$=Mid(a$, i, 1)If b$='n' Thens=s+1End IfNext iPrint sEnd Sub程序运行后,单击命令按钮,输出结果是 【7】 。