首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
函数fun如下: Private Function fun(ch As String)As Integer Dim n%,st$,c$ For k=1 To Len(ch) c=Mid(ch,k
函数fun如下: Private Function fun(ch As String)As Integer Dim n%,st$,c$ For k=1 To Len(ch) c=Mid(ch,k
admin
2020-08-10
76
问题
函数fun如下:
Private Function fun(ch As String)As Integer
Dim n%,st$,c$
For k=1 To 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/YqHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不能在信息框中输出“VB”的是
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是
下面程序的功能是输出100以内所有素数:PrivateSubCommand1_Click()Forn=2To100isprime=True:k=2DoWhilek
有如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,slimAsIntegern=1DoJ=1Doslim=sum+j:j=j+1Printj;
以下不能触发滚动条Change事件的操作是
设a、b都是自然数,为求a除以b的余数,某人编写了以下函数:Functionfun(aAsInteger,bAsInteger)Whilea>ba=a-bWendfun=aEndFunction在调试时发现函数是错
按照“后进先出”原则组织数据的数据结构是
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Combo1的组合框,其宽度为1200,其类型如图3—188所示(即简单组合框)。要求如下:①请按图中所示,通过属性窗口输入“北京
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为。Forml的窗体上画一个名称为Combol的组合框,其宽度为1200,其类型如图2-95所示(即简单组合框)。要求如下:①请按图中所示,通过属性窗口输入”北京”、”
随机试题
TCP/IP协议的含义是()。
求函数y=2x3+3x2-12x+1的单调区间.
患者,男,68岁。不慎跌倒,感左髋部疼痛。体检:左下肢短缩2cm、极度外旋畸形。常常提示
在公路工程中,大型崩塌是指崩塌体体积大于()m3。
无权代理行为在( )情况下,被代理人承担民事责任。
施工项目管理规划大纲内容中的投标和签订合同规划应包括()。
“备案号”栏应填写()。“成交方式”栏应填写()。
以下各种关于图形元件的叙述,正确的是()。
我国刑法规定的犯罪概念是区分罪与非罪的总标准。()
"SocialReadjustmentScales"HolmesandRahedevelopedtheSocialReadjustmentRatingScale(SRRS)tomeasurelifechangeas
最新回复
(
0
)