首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Private Sub Command 1_Click() Dim strAs String,chAs String str="Visual Basic Programming":ch="a" n=fun(ch,str):Print s
设有下面程序代码: Private Sub Command 1_Click() Dim strAs String,chAs String str="Visual Basic Programming":ch="a" n=fun(ch,str):Print s
admin
2015-05-29
19
问题
设有下面程序代码:
Private Sub Command 1_Click()
Dim strAs String,chAs 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 strbufAs 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
解析
本题中函数fun除了有返回值外,还通过地址传递的形参str带回修改以后的字符串。在函数中会依次遍历整个字符串,每一次取得一个字符,判断该字符和给定的参数“a”是否相等,如果不等则将其原样连接,否则将此字符转换成大写字符以后连接,而且令计数器加1。所以整个函数的功能就是将形参str中所有等于形参ch的字符转换成大写,并且统计这类字符的个数作为函数返回值。
转载请注明原文地址:https://kaotiyun.com/show/0CQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上添加一个文本框Text1,然后编写如下的Load事件过程,则程序运行结果为()。PrivatesubForm_Load()Text1.Text=""Text1.SetFocusF
下列程序运行后在立即窗口输出的结果是()。PrivateSubForm_Click()x="a":y="b"z=1:u=2Debug.Printx;y,z;uDe
需求分析阶段的任务是()。
按照“先进后出”原则组织数据的数据结构是()。
在窗体中放置控件,对该控件的操作错误的是()。
下列特征中不是面向对象方法的主要特征的是()。
如果准备读文件,打开随机文件“text.dat”的正确语句是()。
编写如下事件过程和函数过程:PrivateSubCommand1_Click()Dimnum(1To6)AsSinglenum(1)=103:num(2)=190:num(3)=0num(4)=32:
数据结构中,与所使用的计算机无关的是数据的______。
使用“打开”对话框的方法是()。
随机试题
溃疡性肠炎的治疗原则,正确的有
关于聚合酶链反应(PCR)引物的叙述正确的是
风险管理计划制定的成果的内容包括()。
不属于保险产品显著特点的是()。
【2018上】在心理学实验中,为了使小狗能够区分开圆形光圈和椭圆形光圈,研究者只在圆形光圈出现时才给予食物强化,而在呈现椭圆形光圈时不给予强化,那么小狗便可以学会只对圆形光圈做出反应而不理会椭圆形光圈。该过程称为()。
教育学生必须了解学生的年龄特征,这要求教师应具备的知识结构是()(潍坊峡山)
近年来,为各种关系、事实、行为进行公证的现象越来越普遍,根据《公证法》的规定,公证机关可予以办理公证的事项有()。
Whyis(1)fun?WhatdelightsmayitSpractitionerexpectashisreward?Firstisthesheerjoyofmakingthings.Asthechildd
Whatisthebenefitofdarkchocolate?
A、Itguaranteesfederalinvestmentinschools.B、Itisauniversallawthatappliestoeveryuniversity.C、Itstopsgenderdiscr
最新回复
(
0
)