首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Private Sub Command1_Click() Dim str As String,ch As String str=”Visual Basic Programming”:ch=”a”
设有下面程序代码: Private Sub Command1_Click() Dim str As String,ch As String str=”Visual Basic Programming”:ch=”a”
admin
2019-06-11
23
问题
设有下面程序代码:
Private Sub Command1_Click()
Dim str As String,ch As String
str=”Visual Basic Programming”:ch=”a”
n=fun(ch,str):Print str,n
End Sub
Private Function fun(ch As String,str As String)As Integer
Dim strbuf As String,c As String,n As Integer
For k=1 To Len(str)
c=Mid$(str,k,1)
Ifc<>ch Then
strbuf=strbuf&c
Else
strbuf=strbuf&UCase(c):n=n+1
End If
Next k
str=strbuf:fun=n
End Function
程序运行时的输出是
选项
A、Visual Basic Programming 0
B、VisuAl BAsic ProgrAmming 3
C、Visul Bsic Progrmming 3
D、VisualBasicProgramming 2
答案
B
解析
本题中函数fun除了有返回值外,还通过地址传递的形参str带回修改以后的字符串。在函数中会依次遍历整个字符串,每一次取得一个字符,判断该字符和给定的参数“a”是否相等,如果不等则将其原样连接,否则将此字符转换成大写字符以后连接,而且令计数器加1。所以整个函数的功能就是将形参str中所有等于形参ch的字符转换成大写,并且统计这类字符的个数作为函数返回值。
转载请注明原文地址:https://kaotiyun.com/show/f8Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数"):b=InputBox("请输入整数")proa:probCallp
对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是
数据库设计过程不包括
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。IfCheck1(Index).
使用菜单编辑器设计菜单时,必须输入的项是()。
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
下列是VisualBasic中所允许的形式数是()。
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
算法的有穷性是指
以下关于VB的叙述中,错误的是
随机试题
关于肩锁关节脱位的功能锻炼,叙述错误的是
支原体感染可引起
基金信息披露的及时性原则要求以最快的速度公开信息,在重大事件发生之日起()日内披露临时报告。
优质蛋白质
不同的五种商品在货架上排成一排,其中甲、乙两种必须排在一起,丙、丁两种不能排在一起,则不同的排法种数共有()。
案例一这学期,我新接手了一个班级。一段时间下来,一个叫小林的同学引起了我的注意。他平日里沉默寡言,总是穿着一身脏兮兮的校服,背着一个似乎从未洗过的书包。他座位前后排的同学桌子拉得都离他很远,下课也没有人和他玩,他好像坐在一个孤岛上。我曾试图与他交
除了书本上的知识之外,我们更要明白“常识”的重要。只有学问而无常识,与人谈话时,会缺少轻松平易的话题。有你在座,空气即会紧张严肃,你就成为不受欢迎的人物。所谓常识,包罗万象,一切都该去留神知道,才可使你活泼风趣,谈起话来左右逢源。这段话的主要意思是
以下程序的输出结果是()。defloc_glo(b=2,a=4):globalzz+=3*a+5*breturnzz=10print(z,loc_glo(4,2))
窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下:PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerStaticzAsIntegerx=3:y=
【B1】【B5】
最新回复
(
0
)