2. 计算机
  3. 函数fun如下： Private Function fun(ch As String)As Integer Dim n％，st$，c$ For k=1To Len(ch) c=Mid(ch，k，1) If c＜＞"A"Then st=st&c Else n

函数fun如下： Private Function fun(ch As String)As Integer Dim n％，st$，c$ For k=1To Len(ch) c=Mid(ch，k，1) If c＜＞"A"Then st=st&c Else n

admin2018-06-20  16
问题 函数fun如下：
Private Function fun(ch As String)As Integer
Dim n％，st$，c$
For k=1To Len(ch)
c=Mid(ch，k，1)
If c＜＞"A"Then
st=st&c
Else
n=n+1
End If
Next k
ch=st
fun=n
End Function
函数的功能是(    )。
选项 A、从字符串ch中删除所有字符“A”，返回值为删除的个数
B、从字符串ch中删除所有字符“A”，返回值为删除后的字符串
C、统计宁符串ch中字符“A”的个数并返回
D、把字符串ch中不等于“A”的字符都改成“A”，返回值为修改的个数
答案A
解析 fun函数中字符串变量ch作为形参，函数的返回值类型为整型，For循环中循环变量k的初始值为1终止值为字符串的长度，每当循环执行一次时，将字符串ch中的一个字符取出赋值给字符变量c，然后使用if语句判断取出的字符是否等于字符“A”，若取出的字符不是“A”，则将该字符放人字符串st中，若取出的字符是“A”，则将变量n的值加1；由程序可知for循环的功能是：将字符串ch中非“A”字符存放到字符串变量st中，并对字符串ch中“A”字符的个数进行计数，故本题A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/riGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)