下列这个Sub过程的功能是:统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。 Private Sub numCount() Dim num As Integer S$="soft

admin2010-03-30  28

问题 下列这个Sub过程的功能是:统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。
   Private Sub numCount()
             Dim num As Integer
             S$="software And hardware"
             num=Len(s$)
             For i=1 To num
                 b$=______
             Ifb$="a" Then x=x+1
             Next i
             Print "x=";x
   End Sub

选项

答案Mid(s$,i,1)

解析 分析题目和程序段可知,空白处的作用是取出字符串s中的第i个字符,这里我们可以使用Mid函数来取出第i个字符,然后对比该字符是否是字符a,如果是,则变量x加1,如果不是则跳过if后面的语句继续循环,最后输出x。
转载请注明原文地址:https://jikaoti.com/ti/cUq0FFFM
0

最新回复(0)