首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Private Sub Command1_Click() Dim str As String, ch As String str = "Visual Basic Programming" ch = "a"
设有下面程序代码: Private Sub Command1_Click() Dim str As String, ch As String str = "Visual Basic Programming" ch = "a"
admin
2018-12-20
25
问题
设有下面程序代码:
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
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兼容($的作用是强制将函数的返回值设为字符型)。&用来连接字符串。If条件判断字符是否和输入的字符相等,相等则n加1。选B)。
转载请注明原文地址:https://kaotiyun.com/show/EjFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。Option1的单击事件过程如下:PrivateSubOption1_Click() Dimarr arr=Array("
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateTypeRecord IDAsInteger NameAsString*20EndTypePrivateSubCommand1_Click()
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger) KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符"A",则在文本
随机试题
A、Askforprofessionaladvicefromhisseminar.B、Turntohisteacherforfillinginstruction.C、Takeoneortwoseminarsbefore
系统性红斑狼疮患者可出现的自身抗体有
9岁男孩,营养发育正常,体重26ks,身长133cm,头围53cm,胸围最可能是
慢粒白血病下列哪项错误
A、通风、干燥处B、通风、阴凉处C、阴凉、干燥处D、密闭贮藏E、石灰缸内种子类药材炒后应贮存于
我国的安全生产管理体制包括()。
计算6000-1-2-3-…-99-100的值()。
(2013年单选29)甲以房屋作抵押向乙借款,并办理了抵押登记。后甲未按期归还借款,且未与乙就如何实现抵押权达成协议。根据我国物权法规定()。
设函数y(x)(x≥0)二阶可导且y’(x)>0,y(0)=1.过曲线y=y(x)上任意一点P(x,y)作该曲线的切线及z轴的垂线,上述两直线与x轴所围成的三角形的面积记为S1,区间[0,x]上以y=y(x)为曲边的曲边梯形面积记为S2,并设2S1-S2恒
WhatisthemaintaskoftheUnitedNationsPopulationFund?
最新回复
(
0
)