首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: 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
29
问题
设有如下程序代码:
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/jNHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定编写了如下的Sub过程:PublicSubProc(a()AsInteger)StaticiAsIntegerDoa(i)=a(i)+a(i+1)i=i+1LoopWhilei
在窗体上有一个文本框Textl,Text属性值为空,然后编写如下事件过程:PrivateSubTextlKeyPress(KeyAsciiAsInteger)DimstrAsString,nAsInteger
如果把命令按钮的Cancel属性设置为True,则程序运行后( )。
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() Dimx%,y%,z% x=InputBox("请输入第1个整数") y=InputBox("请输入第2个整数")
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
下面描述中不属于数据库系统特点的是
对建立良好的程序设计风格,下面描述正确的是()。
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click() a=InputBox("Enteranintege
实现字符的UniCode编码方式与ANSI编码方式相互转换的函数是()。
随机试题
下列哪一或哪些做法不符合公证员职业道德的要求?()
实现工业化是中国近代以来历史发展的必然要求,也是国家独立和富强的必要条件。毛泽东同志在《论十大关系》中论述的第一大关系,即()。
倾听的规则是()
下列哪一项检测结果表明胎儿或胎儿器官已成熟
强制性使用训练要求集中、重复、强化训练患肢,一般训练强度为
A、上牙槽后神经+腭前神经B、下牙槽神经+颊长神+舌神经C、上牙槽前神经+鼻腭神经D、下牙槽神经+舌神经E、上牙槽中神经十上牙槽后神经+腭前神经拔除下列牙时,应麻醉哪组神经上颌第二磨牙
全口义齿初戴,组织面不易出现疼痛的部位是()
低收入者宁愿省吃俭用来购买汽车,以获得“有钱人”的暂时满足感,体现的消费心理是()。
依照我国票据法的规定,支票上绝对必须记载的事项包括()。
TheEnglishnationalcharacterisdualistic:Oneaspectisconservative,theotherextroverted(性格外向的).Thepubisafineexampl
最新回复
(
0
)