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

18 查阅

[填空题] 下列这个Sub过程的功能是:统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。

Private Sub numCount()

Dim num 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,A)

分析题目和程序段可知,空白处的作用是取出字符串。中的第i个字符,这里我们可以使用Mid函数来取出第i个字符,然后对比该字符是否是字符a,如果是,则变量x加1,如果不是则跳过if后面的语句继续循环,最后输出x。

计算机考试