首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:先输入一个字符串,再输入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
87
问题
下面程序的功能是:先输入一个字符串,再输入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/8PLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序运行后的输出结果是FunctionFun(n)x=n*nFun=x-11EndFunctionPrivateSubCommand1_Click()Fork=1To2y=Fun(k):Printy
将一个窗体设置为MDI子窗体的方法是
设有如下三个关系表下列操作中正确的是
窗体设计器窗口简称______,是应用程序最终面向用户的窗口,它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。
下面程序运行后,窗体中显示【】。PrivateSubCommand1_Click()a$="*":b$="$"Fork=1To3x$=String$(Len(a$)+k,b$)Printx$;NextPrint
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和
在数据管理技术的发展过程中,经历了人工管理阶段,文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是()。
为了便于对照检查,测试用例应由输入数据和预期的【】两部分组成。
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
通常,将软件产品从提出、实现、使用维护到停止使用退役的过程称为【】。
随机试题
Theymustworkveryhardinorderto________theirchildren.
以下票据抗辩中,可以对抗任何持票人的是()
GATT与GATS的一般原则有哪些不同?
寡头垄断厂商的产品是()
正常人每日的尿蛋白总量是
为比较两所等级和规模均相同的医院的治愈率,若各医院各科病人数的内部构成不同时,为避免产生假象,关键要进行的是
肺心病与慢性支气管炎、肺气肿的临床征象有很多相似点,但不同点是肺心病有
对水平混凝土构件模板支撑系统高度超过(),或跨度超过18m的高大模板工程,建筑施工企业应当组织专家组进行论证审查。
窗体上画一个命令按钮,然后编写如下代码:PrivateTypeRecordIDAsIntegerNameAsString*20EndTypePrivateSubcommand1_Click(Open"c:
DuringtheSeptember11thterroristattacks,______.Accordingtothepassage,whichofthefollowingisTRUE?
最新回复
(
0
)