首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: 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
62
问题
设有如下程序代码:
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)中的箭头代表的是______。
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:PrivateSubFormKeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode;EndSubPrivat
为了使一个窗体从屏幕上消失但仍在内存中,所使用的方法或语句为()。
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干国家的名称,当单击列表中的某个国家名时,在标签中显示选中国家的名称。下列正确实现上述功能的程序是()。
在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程,PrivateSubFormClick()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub单击该窗体,在
下列特征中不是面向对象方法的主要特征的是()。
关于结构化程序设计原则和方法的描述错误的是()。
在考生文件夹下有文件in6.txt,文件中有几行汉字。请在窗体Form1上绘制一个文本框,名称为Text1,能显示多行;再绘制一个命令按钮,名称为Cmd1,标题为“保存”。并编写适当的事件过程,使得在加载窗体时,把in6.txt文件的内容显示在文本框中,然
随机试题
马克思主义认为国家的本质是指()。
男性,60岁左右,在门诊楼排队取药时突然晕倒在地。如确认患者发生心脏骤停,下列紧急处理中不正确的是()
沥青混合料马歇尔试件成型过程中,需要加热的器件有()。
基坑(槽)应采取支护措施的情形有()。
在民事诉讼中,普通的共同诉讼必须具备的条件有()。
一般资料:求助者,男性,17岁,高中二年级学生。案例介绍:求助者有一次上课迟到,着急跑向自己的座位,不小心被绊倒并摔到一位女同学的身上,顿时引起同学哄堂大笑,事后还有人取笑他。此后每次到教室时就会紧张焦虑,觉得同学看不起他。常常会用力抓自己的头发
()同志曾强调指出:“加强党对政法公安工作的领导是始终不渝地坚持的一个原则。人民民主专政是一个整体功能,要在党的统一领导下进行协调。”
中国历史上曾出现过多次所谓盛世。盛世的出现是和法制的相对健全分不开的,法制是推动盛世出现的条件,又是盛世的外在标志。从来没有无法制的盛世,也从来没有盛世而法制衰微的现象。即使是入主中原的少数民族,在立定脚跟之后也急于立法,以适应统治广大汉族地区的需要。对这
将不能量化的诗歌(以及纯文学)评价标准和人工智能的算法标准拼接在一起,本来就是一件不伦不类的事。人工智能在科学研究、生产劳动等方面的贡献,足以证明其本领之强,________________。人类也完全没必要拿自己的优势去跟人工智能的缺点比较,即使科技再发
TherearemanytheoriesaboutthebeginningofdramainancientGreece.Theonemostwidelyacceptedtodayisbasedontheassum
最新回复
(
0
)