首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下函数: Function DelSpace(ch As String)As Integer Dim n%, st$, c$ st="" n=0 For k=1 To Len(ch) c=Mid(ch, k, 1) I
设有如下函数: Function DelSpace(ch As String)As Integer Dim n%, st$, c$ st="" n=0 For k=1 To Len(ch) c=Mid(ch, k, 1) I
admin
2020-06-30
55
问题
设有如下函数:
Function DelSpace(ch As String)As Integer
Dim n%, st$, c$
st=""
n=0
For k=1 To Len(ch)
c=Mid(ch, k, 1)
If c<>" " Then
st=st & c
Else
n=n+1
End If
Next k
ch=st
DelSpace=n
End Function
函数的功能是( )。
选项
A、统计并返回字符串ch中字符的个数
B、删除字符串ch中的空格符,返回删除字符的个数
C、统计并返回字符串ch中非空格字符数
D、删除字符串ch中除空格符外的其他字符,返回删除字符的个数
答案
B
解析
过程中对传入的字符串的字符一个个取出,判断如果不是空格则依次连接到一个字符串变量中,如果是空格则计数加1。最后,返回不包含空格的字符串和空格的个数。因此选项B正确。
转载请注明原文地址:https://kaotiyun.com/show/zFHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签(名称为Lbl1,标题为空白,BorderStyle属性为1,Visible属性为False)、一个文本框(名称为Txt1
(1)在名称为Form1的窗体中画一个名称为lblClock的标签,其标题为“0”,BorderStyle属性为1;再添加一个名称为tmrClock的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图1-3
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Textl,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommandl_Click()a=InputBox(”
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommandl_Click()
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Picture=LoadPic
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下:PrivateSubCommandlClick()Open”c:\f1.txt”ForInputAs#l:Open”c:\f2.txt”ForOu
若程序中有语句:y=proc(6),则proc应该是
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSUbText1_Change(IndexAsInteger)SelectCaseIndexCase0Textl(1).FontSize=Te
设有下面的语句:PrintIIffx>0,1,Ilf(x
随机试题
在上皮棘层或基底层,个别或一群细胞发生角化称为
患者,男性,20岁。淋雨受凉后出现高热。查血常规:WBC19×109/L。X线胸片示大叶性肺炎。可诊断可能的致病菌是
下列是哮喘与肺炎喘嗽的主要区别的是
长期胃肠减压的病人应加强的护理内容是
海运提单是证明海上运输合同和货物由承运人接管或装船,以及承运人保证据以将货物交代给单证所载明的收货人的一种不可流通的单证,因此又称“不可转让海运单”。
下列选项不属于身体运动七要素的是()。
在教育过程中,甲教师对突发性事件做出迅速、恰当地处理,被称为“教育机智”,这反映了教师劳动()的特点。
根据下列资料。回答下列问题:制造业中,民间固定资产投资同比增长最多的是:
VBA中求字符串长度的函数是
起初,我不理解。现在我才明白无论何时何地我们都不应该浪费时间。
最新回复
(
0
)