下面程序的功能是统计字符串中“i”的个数请填空。 Sub COU( ) Dim n As Integer a$ =" Beijing University of Technology" n = L

admin2009-03-15  28

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

选项

答案Mid$(a$,i,1) b$=“i”

解析 从字符串中依次截取每一个字母看是不是i,来统计i的个数,用Mid$(字符串,P,n)函数是从第p个字符开始,向后截取n个字符。
转载请注明原文地址:https://kaotiyun.com/show/HD1p777K
0

最新回复(0)