首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: 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
16
问题
设有如下程序代码:
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全国计算机二级
相关试题推荐
下列关于栈的叙述正确的是
可以产生30~50(含30和50)之间的随机整数的表达式是
检查软件产品是否符合需求定义的过程称为
软件生命周期是指
设订下面的语句:PrintIIf(x>0,1,IIf(x<0,-1,0))与此语句输出结果不同的程序段是
软件测试的目的是
表达式Int(5.3)+Int(-5.8)>Fix(5.3)+Fix(-5.8)的值是
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
在满足实体完整性约束的条件下()。
下列链表中,其逻辑结构属于非线性结构的是
随机试题
下列关于债券的相关指标计算公式中,正确的有()。
操作系统对磁盘上的普通文件以扇区为单位读写。()
TheVoiceofAmericabeganduringtheWorldWarIIwhenGermanywasbroadcastingaradioprogramtogetinternational【21】.Ameri
计算前后两面临街矩形土地的价值,通常是采用()。
以下所列各项,属于免于办理强制性产品认证的有()。
根据分税制体制规定,增值税收入中央与地方分享比例是()。
关于劳务派遣用工形式的下列表述中,正确的有()。
(1)市民自发看护鸽子(2)对不文明行为进行“曝光”(3)有人偷捕鸽子(4)放养一批广场鸽子(5)对城市放养鸽子的利弊作了研究
设一个袋中共有n个黑球,现每次从中任意取出一球,然后放入一个白球.若如此试验n次后,袋中白球数的数学期望为a,试求第n+1次从袋中任取一球为白球的概率.
关系数据库中,实现表与表之间的联系是通过______。
最新回复
(
0
)