首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: 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
31
问题
设有下面程序代码:
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全国计算机二级
相关试题推荐
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivmeSubCommandl.Click()DimhumAsInteger,xAsIntegernurfl=Val(InputBox(“请输入一个正整数”))Select
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndc<=dOr2*a>c.
在窗体上画一个水平滚动条,其属性值Min满足
若要清除列表框控件中的所有列表项,应该使用的方法是
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
下列叙述中正确的是
下列是VisualBasic中所允许的形式数是()。
在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经给出所有控件。程序运行时,单击“开始”按钮,则汽车图标向右运动;单击“停止”按钮则汽车停止运动;移动滚动条上的滚动框,可以改变汽车的运动速度(滚动框向右移动,速度减慢)。如图3-86所示。要求如下:
在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3-85所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;②请编写适当的程序完成以下功能:在Text1中输入40(度数),
下列排序方法中,最坏情况下时间复杂度(即比较次数)低于O(n2)的是()。
随机试题
女婴,3个月。生长发育良好,体重为5kg,因母亲患慢性疾病,需停用母乳而改牛奶喂养。该婴儿每日所需水分是()
关于三叉神经的叙述正确的是【】
囊肿的侧壁声影产生原因是
患者,女,35岁。高处坠落,左枕着地,进行性意识障碍,1小时后右侧瞳孔散大。最可能的诊断是
一位成年男性病人因胆囊结石、胆囊炎,行腹腔镜胆囊切除术,术后恢复正常饮食。术后第4天,患者突然出现全腹疼痛、恶心、低热。白细胞数升高。X线腹平片显示肠梗阻征象。
合理用药是用药
下列成立犯罪中止的是:
视觉适应是我们熟悉的一种感觉现象。它是由于刺激物的持续作用而引起的感受性的变化。在视觉范围内,可区分为暗适应和明适应。暗适应是指照明停止或由亮处转入暗处时视觉感受性提高的时间过程。明适应与暗适应相反,是指照明开始或由暗处转入亮处时人眼感受性下降的时间过程。
下列关于程序计数器(PC)的描述中,错误的是( )。
To:Allsupervisorssupervisors@haydenboutique.com>From:JulienHirschSubject:FashionShowAttachment:OnefileDate:F
最新回复
(
0
)