![[填空题] 下列这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。 Private Sub numCoun() Dim num As Integer s$=&q,第1张 [填空题] 下列这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。 Private Sub numCoun() Dim num As Integer s$=&q,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%B8%8B%E5%88%97%E8%BF%99%E4%B8%AASub%E8%BF%87%E7%A8%8B%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%E7%BB%9F%E8%AE%A1%E5%AD%97%E7%AC%A6%E4%B8%B2%E4%B8%AD%E2%80%9Ca%E2%80%9D%E7%9A%84%E4%B8%AA%E6%95%B0%EF%BC%8C%E8%AF%B7%E5%9C%A8%E7%A9%BA%E7%99%BD%E5%A4%84%E5%A1%AB%E4%B8%8A%E5%90%88%E9%80%82%E7%9A%84%E4%BB%A3%E7%A0%81%EF%BC%8C%E5%B0%86%E7%A8%8B%E5%BA%8F%E8%A1%A5%E5%85%85%E5%AE%8C%E6%95%B4%E3%80%82+Private+Sub+numCoun%28%29+Dim+num+As+Integer+s%EF%BC%84%3D%26amp%3Bq.png)
[填空题] 下列这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。 Private Sub numCoun() 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,A)
参考解析:分析题目和程序段可知,空白处的作用是取出字符串s中的第i个字符,这里可以使用Mid函数来取出第i个字符,然后对比该字符是否是字符a,如果是,则变量x加1,如果不是则跳过if后面的语句继续循环,最后输出x。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)