首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: 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
2020-07-22
18
问题
设有如下程序代码:
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/WcHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()DimiAsInteger,nAsIntegerFori=
窗体上有一个名称为CDl的通用对话框,一个名称为。rextl的文本框,窗体的单击事件过程如下:PrivateSubForm—Click()CDI.DialogTitle=“改变颜色”CDl.Color=Forml.Back
设栈的存储空间为S(1:m),初始状态为top=m+1。经过一系列入栈与退栈操作后,top=m。现又在栈中退出一个元素后,栈顶指针top值为()。
在标准模块中用Public关键字定义的变量,其作用域为
以下合法的VB变量名是()。
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于
以下不属于VisualBasic数据文件的是
对于循环队列,下列叙述中正确的是
在学生管理的关系数据库中,存取一个学生信息的数据单位是
随机试题
A.根尖孔B.侧支根管C.分叉区副根管D.牙本质小管E.畸形舌侧沟牙周刮治后可能会造成牙髓的反应性改变,通过的主要途径是
采用二灰碎石作路面底基层时应验算层底拉应力。()
这起事故构成()。《安全生产法》规定:两个以上生产经营单位在同一作业区域内进行可能危及对方安全生产活动,未签订()或者未指定()的,责令限期改正,逾期未改正的,责令停产停业。
下列各项中,应计入坏账准备贷方的是()。
《中华人民共和国旅游法》由全国人民代表大会常务委员会于2013年4月25日通过,自2013年11月1日起生效。()
认真阅读《邹忌讽齐王纳谏》课堂教学实录节选,回答下列问题。生:(读课文)“臣之妻私臣,臣之妾畏臣,臣之客欲有求与臣,皆以美于徐公”:“宫妇左右莫不私王,朝廷之臣莫不畏王,四境之内莫不有求于王。”师:这两组句子,相同的词语是:“私、畏、有
某公司实行人性化管理。公司领导表示,所有30岁以下的年轻人如果还没有女朋友,则一律不用加班,抓紧时间去找女朋友;领导还表示,公司所有30岁以上的员工如果有了女朋友,也一律不用加班,因为要抓紧时间好好陪陪女朋友,创造条件尽快结婚。根据公司领导的表示,可以得出
由于真实或想象的他人的影响而改变行为,我们称这种现象为()。
有以下程序#includeintfun(intn){inta;if(n==1)return1;a=n+fun(n-1);return(a);}main(){printf("%d\n",fun(5));}程序的输出结果是
Whatdoesthemanwanttodo?
最新回复
(
0
)