首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:先输入一个字符串,再输入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-06-30
74
问题
下面程序的功能是:先输入一个字符串,再输入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://kaotiyun.com/show/m0Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列()事件过程可以将打开文件对话框的标题改变为“newCaption”。
下列程序的运行结果是()。PrivateSubCommandl_Click()a=1.5b=1.5Callfun(a,B)Printa,bEndSubPrivateSubfun(x,y)x=
在数据库设计中,将E-R图转换为关系模式的过程属于()。
改变驱动器列表框的Drive属性值将激活______事件。
假定程序中有以下语句:answer=MsgBox("String1",,"String2","String31",2)执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则answer的值为______。
结构程序设计的3种结构是______。
设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
数据结构中,与所使用的计算机无关的是数据的
用下面的语句所定义的数组的元素个数是()Dimarr(3To5,—2To2)
下列有关文件的叙述中,正确的是
随机试题
求微分方程y’+=0满足条件y|x=0=1的特解.
A.六淫B.瘀血C.痰饮D.戾气其形成后,影响血液的运行,导致经脉阻滞不通的是
以下哪项不属于降压药治疗对象
甲从某商场购回一个玻璃钢燃气灶。使用几天后,燃气灶突然炸裂,甲被碎片刺瞎左眼。下列哪些说法正确?
某IT企业职员2006年税前月薪6000元,另有1000元住房及交通补助。如果每月个人缴纳的“三险”合计为500元,则每月应纳所得税()(2006年起个人所得税费用减除标准调整为1600元)
全国银行间同业拆借中心与中央国债登记结算有限责任公司在收到买断式回购双方的最终仲裁或诉讼结果报告后3个工作日内将最终结果予以公告。()
企业合并中发生的审计、法律服务、评估咨询等与合并相关的费用,正确的会计处理方法有()。
我国税收制度按照构成方法和形式分类属于()。
时间知觉
WhatisthepurposeofJaneandRick’smeetingwiththetutor?
最新回复
(
0
)