下面这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码完成程序。 Private Sub numCount() Dim hum As Integer s$ = "software And hardw

admin2010-09-11  30

问题 下面这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码完成程序。
    Private Sub numCount()
       Dim hum As Integer
       s$ = "software And hardware"
       num = Len(s$)
       For i = 1 To hum
           b$=______
       If b$ = "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/tAg0FFFM
0

最新回复(0)