首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: 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
40
问题
设有下面程序代码:
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全国计算机二级
相关试题推荐
为了在Form—Load事件过程中用Print方法在窗体上输出指定的内容,首先应执行的操作是
下面哪个属性肯定不是框架控件的属性.
设有如下程序:PrivateSubFormClick()hum=InputBox(“请输入一个实数”):P=InStr(num,".")Ifp>0ThenPrintMid(num,P+1)ElsePrint“END”EndIfE
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString.strLAsIntegertStr="strL=Len(xStr)i=1DoWhilei
己知列表框控件Listl中已放入若干表项,下列关于Listl的叙述中错误的是
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
下列选项中,不属于模块间耦合的是()。
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox("请输入一个浮点数:")str1$=Str$(asing
设a=2,b=3,c=4,d--5,下列表达式的值是()。3>2*bOra=cAndbcOrb◇a+c
下列数据结构中,属于非线性结构的是
随机试题
双胎多见的胎方位是
目的DNA片段的获得主要方法有哪几种?
下列各项,不是胃溃疡并发症的是
自利行为原则的依据是()。
国有资产评估的方法主要包括()。
甲出差前将家中的一台彩电交由邻居乙保管。在甲出差期间,乙将彩电卖给丙,丙以为彩电为乙所有,便以合理价款购得。对此,()。
儿童:疫苗
今年持续暴雨,各地花椒严重减产。由此可以预见,今年的花椒价格将会显著上涨。要使上述推理成立,需要补充的前提条件是:
在SQL中,删除视图用________。
TheCaseforKillingMyMotherA)Mymotherwantedtodie,butthedoctorswouldn’tlether.Atleastthat’sthewayitseemedto
最新回复
(
0
)