首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Private Sub Command1_Click() Dim str As String,ch As String str="Visual Basic Programming":ch="a" n=fun(ch,str):Print
设有下面程序代码: Private Sub Command1_Click() Dim str As String,ch As String str="Visual Basic Programming":ch="a" n=fun(ch,str):Print
admin
2020-04-18
59
问题
设有下面程序代码:
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
Privat eFunction 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)
If c<>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 Programming0
B、VisuAl BAsic ProgrAmming3
C、Visul Bsic Progrmming3
D、VisualBasicProgramming2
答案
B
解析
本题中函数fun除了有返回值外,还通过地址传递的形参str带回修改以后的字符串。在函数中会依次遍历整个字符串,每一次取得一个字符,判断该字符和给定的参数“a”是否相等,如果不等则将其原样连接,否则将此字符转换成大写字符以后连接,而且令计数器加1。所以整个函数的功能就是将形参s仃中所有等于形参ch的字符转换成大写,并且统计这类字符的个数作为函数返回值。
转载请注明原文地址:https://kaotiyun.com/show/slTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:PrivateSubForm_Click()x=50Fori=1To4Y=InputBox(“请输入一个整数”)Y=Val(Y)IfYMo
有如下程序:PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod20AndiMod3=0
定义无符号整数类为UInt,下面可以作为类UInt实例化值的是( )。
(1)在考生文件夹下有一个工程文件sit3.vbp。程序运行后,单击“读入数据”按钮,可把考生文件夹下in3.txt文件中的所有英文单词读入,并显示在Text1文本框中;单击“插入列表框”按钮,则按顺序把每个单词作为一项添加到List1列表框中(如图2.1
下面正确使用动态数组的是( )。
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为“计算”的命令按钮Command1,并编写了以下程序:PrivateSubCommand1_Click()Callealc(HV.Value,HT.Value)EndS
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增的顺序排序,采取简单选择排序法,第一趟排序后关键码15被放到第()个位置。
随机试题
组成中无黄芩的方剂是
口服药物吸收后经哪些途径到达肾脏?
克罗恩病不会出现的是
属于HDPE膜焊缝非破坏性检测的方法有()。
某单位办公楼,地下1层,地上20层,建筑高度76m,建筑面积32000m2,耐火等级为一级。负1层为设备房;1层裙房为会议报告厅,有固定座椅1550个;2至20层为标准层,走道两侧布置办公房间、小会议室,内走道长度25米,设有可开启外窗。根据以
[资料二]甲公司发生下列有关交易性金融资产的业务:(1)2013年1月8日,甲公司购入丙公司发行的公司债券,该笔债券于2012年7月1日发行,面值为2500万元,票面利率为4%,债券利息按年支付。甲公司将其划分为交易性金融资产,支付价
Thegirl______tobeagooddancerifsheiswelltrainedfromanearlyage.
已知矩形的周长为2p,将它绕其中一边旋转一周构成一旋转体(圆柱体),求该圆柱体的半径与高各为多少时,该圆柱体体积最大?
Whatarethespeakersdoing?
TheBlessingandCurseofthePeopleWhoNeverForgetAhandfulofpeoplecanrecallalmosteverydayoftheirlivesinenor
最新回复
(
0
)