问题 填空题

下面程序的功能是统计字符串中“广的个数,请填空。  Sub COU( )    a$="Beijing University of Technology"    Dim n AS Integer    n=Len(a$)     For i=1 To n    b$=【 】     If 【 】 Then x=x+1   Next i    Print "x=";x  End Sub

答案

参考答案:Mid$(a$,i,1)

解析:本题的思路是用截取字符函数Mid来逐个查找字符中a$中是否有“i"41字符,x记录“i”的总个数。如果满足条件语句b$="i"就执行x=x+1,然后输出。

单项选择题
填空题