首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:先输入一个字符串,再输入3个字符,然后统计这3个字符分别在字符串中出现的次数并输出 Private Sub Command1_Click() Dim ch$(3), str$, prompt$, count%(3) str
下面程序的功能是:先输入一个字符串,再输入3个字符,然后统计这3个字符分别在字符串中出现的次数并输出 Private Sub Command1_Click() Dim ch$(3), str$, prompt$, count%(3) str
admin
2015-10-23
39
问题
下面程序的功能是:先输入一个字符串,再输入3个字符,然后统计这3个字符分别在字符串中出现的次数并输出
Private Sub Command1_Click()
Dim ch$(3), str$, prompt$, count%(3)
str = InputBox("请输入一个字符串")
For k = 1 To 3
prompt = "请输入要查找的第" & k & "个字符"
ch(k) = InputBox(prompt)
Next k
For j = 1 To Len(str)
For k = 1 To 3
If ch(k) = Then
count(k) = count(k) + 1
End If
Next k
Next j
Print str
For k = 1 To 3
Print ch(k); "出现的次数为"; count(k)
Next k
End Sub
程序不完整,在横线上应该填写的是
选项
A、Mid(str, k, 1)
B、Mid(str, j, 1)
C、str(k)
D、str(j)
答案
B
解析
将输入对话框中输入的第一个字符串赋值给str,第一个For循环,将输入3个字符复制到数组ch(3)中;第二个For的多重循环,利用数组count记录字符串str中出现ch(3)数组元素的个数;最后一个For循环输出记录的次数。则在第二个for的多重循环中,If条件语句应为检验待查找的字符ch(k)和字符串str中的每个字符是否相同,相同时,条件为真。故应该与Mid(str,j,1),即与str的j后的第一个字符比较,看是否相同。由于在For循环中,保证了ch(k)每个元素和str的每个字符都进行了比较。
转载请注明原文地址:https://jikaoti.com/ti/ABJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序运行后的输出结果是FunctionFun(n)x=n*nFun=x-11EndFunctionPrivateSubCommand1_Click()Fork=1To2y=Fun(k):Printy
程序运行后,利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容,将程序补充完整。PtivateSubForm_load()Dima(1T05)AsInteger,n=5a(1)=20:a(2)=25:a(3)=10:
有如下程序,该段程序将()。Fori=1to10Step0k=k+2Nexti
按"先进后出"原则组织数据的数据结构是【】。
使图像(Image)控件中的图像自动适宜控件的大小需要
为了便于对照检查,测试用例应由输入数据和预期的【】两部分组成。
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Arr(j,k)=(j-1)*3+kNextkNextjForj=2To3Forj=2To
数据结构中,与所使用的计算机无关的是数据的
下列是软件调试技术的是()。
随机试题
下列关于消化道平滑肌生理特性的叙述,哪一项是错误的
患者,男,30岁。CT示颅内肿物,医生查体患者瞳孔正常。正常的瞳孔表现为
阴阳偏盛形成的是()
经期延长阴虚血热证的发病机制是
根据《票据法》的规定,下列属于支票绝对应记载事项的有()。
出口押汇是指银行凭借获得货运单据质押权利无追索权地对信用证项下或出口托收项下票据进行融资的行为。()
ParisisthecapitalofFrance.Itssubwayisalsoveryspecial.Youcanenjoyitsculturewhenyouareinthiscity.Firstyou
(09年)设函数y=f(χ)在区间[-1,3]上的图形为则函数F(χ)=∫0χf(t)dt的图形为【】
Manythingsmakepeoplethinkartistsareweird—theoddhours,thenonconformity,theclovecigarettes.However,theweirdest
"Youwouldratherfollowthanlead"means______.Whichofthefollowingistrue?
最新回复
(
0
)