首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: 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
73
问题
设有如下程序代码:
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全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上面有两个名称分别为Text1、Text2的义本框,其中Textl可多行显示。请画两个名称为Commandl、Command2,标题为“产生数组”、“查找”的命令按钮。如图2.216所示。程序功能如下:
下面程序运行时,若输入"VisualBasicProgramming",则在窗体上输出的是( )。PrivateSubCommand1_Click() Dimcount(25)AsInteger,chAsString ch=U
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是()。
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:PrivateFunctionfun(xAsLong)AsBooleanIfxMod2=0
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
(1)在考生文件夹下有一个工程文件sit3.vbp,其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0.5秒,方框的颜色交替变为黄色和红色(黄色值为&HFFFF&;红色值为&HFF&);若单击鼠标右键,则停止变色;若单击鼠标左键,则方框左上角移到鼠标
能够产生1到50之间(含1和50)随机整数的表达式是()。
表达式Str(Len("123"))+Str(77.7)的值是()。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为
随机试题
WhenIwaswalkingdownthestreettheotherday,Ihappenedto【C1】______asmallbrownleatherpurselyingonthesidewalk.I【C2
Thereisameasurablerelationbetweenhowmuchapersonlearnsandhisattitudetowardthesubjecttobelearned.Whenfacedwi
不要求进行无菌检查的剂型是()。
某企业年固定成本为5000万元,产品单价为30元,单位产品可变成本为5元,单位产品销售税金为2元,则盈亏平衡点销售收入为()万元。
()对于企业来说是使用最频繁的媒介。
随园菜的代表菜有:素燕鱼翅、鳆鱼炖鸭、草菇蒸鸡等。()
概念一般都涉及以下要素()。
把资本分为不变资本和可变资本的依据是()。
某次考试100道选择题,每做对一题得1.5分,不做或做错一题扣1分,小李共得100分,那么他答错(包括不做)多少题?()
Likepeople,eachcountryhasuniquecharacteristics.Manycountriesareknownbytheproductstheyproduce.Theseproductsare
最新回复
(
0
)