首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:先输入一个字符串,再输入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
33
问题
下面程序的功能是:先输入一个字符串,再输入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全国计算机二级
相关试题推荐
Text文本框接受的最长字符数由文本框的______属性确定。
结构化程序设计的3种基本结构分别是顺序、选择和______。
有如下函数过程:Functionfunl(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0reminder=xModyx=y
下列程序运行时输出的结果是()。OptionBase1Consta=10PrivateSubForm_Click()Dimx(A)AsIntegerk=-1Fori=1Toax(i)
在使用打印直接输出信息时,下列哪个属性或方法实现了使文件结束打印()。
以下叙述中正确的是
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
设在工程中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于【】的联系。
设有菜单结构如表所示要求在运行时,当鼠标单击菜单项“大图标”时,在这个菜单项前面就添加一个“√”,下面正确的事件过程是
随机试题
求下列函数的极值:f(x,y)=4(x-y)-x2-y2;
0~6个月婴儿的粗大动作以()为主。
最常用的钢铁表面处理方式有()。
题9图电路中TTL逻辑门,其输出Y为【】
儿童中最常见的眼内恶性肿瘤是
羊水栓塞第一个阶段休克一般发生于
在水库加固工程蓄水安全鉴定工作中,必须进行鉴定的工程项目包括()。
张某之父新买一套商品房,张某估计其父会将旧房送给自己,就在旧房附近买了一个停车位。后张父突然去世,遗嘱中指定新房留给张某,旧房留给张某的母亲。则对于张某订立的关于停车位的合同,下列说法正确的是()。
求微分方程y’+ycosx=(lnx)e-sinx的通解.
A、Twohundreddollars.B、Threehundreddollars.C、Twothousanddollars.D、Threethousanddollars.CHowmuchmoneydoesthemanw
最新回复
(
0
)