首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Private Sub Command1_Click() Dim str As String,ch As String str="Visual Basic Programming" ch="a" n=fun(ch,st) Print s
设有下面程序代码: Private Sub Command1_Click() Dim str As String,ch As String str="Visual Basic Programming" ch="a" n=fun(ch,st) Print s
admin
2019-04-29
41
问题
设有下面程序代码:
Private Sub Command1_Click()
Dim str As String,ch As String
str="Visual Basic Programming"
ch="a"
n=fun(ch,st)
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)
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 Programming 0
B、VisuAl BAsic ProgrAmming 3
C、Visul Bsic Progrmming 3
D、VisualBasicProgramming 2
答案
B
解析
Mid$(A$,4,2)是为了与老版本的VB兼容($的作用是强制将函数的返回值设为字符型)。&用来连接字符串。Ⅱ条件判断字符是否和输入的字符相等,相等则n加1。选B。
转载请注明原文地址:https://kaotiyun.com/show/E1Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Labell的标签:一个名称为Timerl的计时器,其Enabled和Interva属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSfbTimer1Timer()ch=Chr(n+As
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是
为了使标签Labell透明且不具有边框,以下正确的属性设置是
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommand1Click()m=-3.6IfSgn(m)Thenn=Int(m)Elsen=Abs(m)EndIfPrintnEndSub运
下列叙述中正确的是
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubText1—Change(Index..AsInteger)SelectCaseIndexCase0Textl(1).FontSize=Te
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是
以下关于VB特点的叙述中,错误的是
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTest1。设窗体Form1标题为“MyForm1”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTest1_Click(IndexAs
随机试题
______withthesizeofthewholeearth,thehighestmountaindoesn’tseemhighatall.
人民法院审理民事案件,应当根据自愿和合法的原则进行调解。对此,下列哪些理解是错误的?
甲村与乙村交界处20公顷土地的权属由于历史原因一直处于不明确状态,双方多次协商未果。为了早日解决问题,乡政府在双方代表参与的情况下,经过审查裁决土地所有权属于甲村。乡政府的行为属于:()
以下属于可以开立专用存款账户的资金有()。
对序时账的审查分析应注意()。
依次填入下面横线上的词语最恰当的一项是()。我们无法____________生命的长度,但我们可以靠____________它的宽度和高度来____________它的容积,使人生更加丰富多彩。
语文课程评价的目的不仅是为了考查学生达到学习目标的程度,更是为了检验和改进学生的语文学习和教师的教学,……不应过分强调评价的_______功能。突出语文课程评价的整体性和综合性,要从知识与能力、过程与方法、情感态度与价值观几个方面进行评价,以全面考查学生的
我们的整个文明都建立在自然生态之上,它们跟不上我们的步伐,终将令我们也随之______________。将责任推给“适者生存”,任凭野生动物在我们制造的阴影中______________,这不但是一件残忍的事情,更是一件愚蠢的事情。依次填入画横线
Susan:I’msogladtoseeyou,David.【K1】______hasbeensuchalongtime.Howareyou?David:I’mfine,andyou?Susan:I’mju
Amazon,whichgotitsstartsellingbooksonline,announcedthisyearthat,forthefirsttime,itsdigitalbookshadoutsold
最新回复
(
0
)