首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: Private Sub Command1_Click() Dim ch As String Dim num(26) As Integer ch = InputBox("") Call p(num, ch)
设有如下程序代码: Private Sub Command1_Click() Dim ch As String Dim num(26) As Integer ch = InputBox("") Call p(num, ch)
admin
2015-09-23
58
问题
设有如下程序代码:
Private Sub Command1_Click()
Dim ch As String
Dim num(26) As Integer
ch = InputBox("")
Call p(num, ch)
For k = 1 To 26
If num(k) > 0 Then Print num(k);
Next k
End Sub
Private Sub p(a() As Integer, ch As String)
For k = 1 To Len(ch)
st = Mid(ch, k, 1)
If st >= "a" And st <= "z" Then
n = Asc(st) - Asc("a") + 1
a(n) = a(n) + 1
End If
Next k
End Sub
若Command1_Click过程运行时的输入是:program,则产生的输出是
选项
A、1 1 1 1 1 2
B、program
C、1 1 1 1 1 1
D、1 2 1 1 1 2
答案
A
解析
Len(ch)计算program的字符数为7,num(26)数组用来统计每个字符出现的次数,Asc()函数用来返回指定字符的ASCII码值。程序开始执行,输入字符串"program"给变量ch,然后调用过程p,调用开始时实参num()将地址传给形参a(),实参ch将地址传给形参ch。程序开始执行过程p:首先进入For循环,k取值从1到7。当k=1,st=mid(ch,k,1)="p",判断If条件为真,执行n=Asc(st)-Asc("a")+1=16,a(16)=0+1=1;当k=2,st=mid(ch,k,1)="r",判断If条件为真,执行n=Asc(st)-Asc("a")+1=18,a(18)=0+1=1;当k=3,st=mid(ch,k,1)= "o",判断If条件为真,执行n=Asc(st)-Asc("a")+1=15,a(15)=0+1=1;依次执行,当k=7执行最后一次循环结束。a()数组中存放的值为字符串ch中每个字符出现的次数。最后程序返回Command1_Click过程。For循环将数组中非0元素依次打印输出。故答案为A选项。
转载请注明原文地址:https://kaotiyun.com/show/UFLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
程序流程图(PFD)中的箭头代表的是______。
下面不属于软件工程的3个要素的是______。
为了显示一个窗体,所使用的方法为【】;为了隐藏一个窗体,所使用的方法为【】。
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:PrivateSubFormKeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode;EndSubPrivat
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:OptionBase1PrivateSubCommandl_Click0DimCAsInteger,dAsIntegerd=0c=6X
下列程序段运行后窗体上输出结果为()。PrivateSubCommand1Click()a=5:b=4:c=3:d=2X=3>2*bOra=cAndb<>COrc>dPrintXEndSub
在考生文件夹下有文件in15.txt,文件中有几行汉字。请在Form1的窗体上绘制一个文本框,名称为Text1;能显示多行;再绘制一个命令按钮,名称为Cmd1,标题为Save。编写适当的事件过程,使得在加载窗体时,把in15.txt文件的内容显示在文本框中
随机试题
下列不属于火灾报警控制器必备自检功能的是()。
28岁,初产妇,37周妊娠,患风湿性心脏病10年,现病情稳定、心功能Ⅱ级。产妇临产入产房后,下列哪项应不列入考虑之列()
患者,女,25岁,停经44天,查尿妊娠试验阳性,近3天腰酸坠,小腹坠痛,心烦失眠,口渴,喜冷饮,便秘溲赤,舌红,苔黄,脉滑数,治疗最佳选方是:
骑跨伤尿道断裂时,最有效的治疗方法是
发现先兆子宫破裂,必须立即采取有效措施抑制子宫收缩,先兆子宫破裂的临床表现包括()。
下列情形符合《行政处罚法》规定的有()。
背景某写字楼,剪力墙结构。因工程需要在其剪力墙的外侧安装点式玻璃幕墙。土建工程已经完毕,施工时没有预埋件,而且抹灰工序已经完成。现需要在该处安装后埋件,安装完毕后土建要对其进行抹灰和涂料处理;抹灰后埋件不得外露。监理工程师要求上报安装后埋件前对剪力墙部位
主要反映一国的贸易和劳务往来状况的国际收支项目是()。
Surtseywasbornin1963.Scientistssawthebirthofthisisland.Itbeganat7:30a.m.on14thNovember.Afishingboatwas
A、Lessfreedomandmoremoney.B、Morefreedomandmoremoney.C、Educationsystem.D、Livinginpoorareas.B细节辨认题。原文明确表述了青少年犯罪的四个
最新回复
(
0
)