首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: 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
51
问题
设有如下程序代码:
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全国计算机二级
相关试题推荐
下列程序的执行结果是()。PriVateSubForm_Activate()Dimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsV撕antscore(1)=50:score(2
下列选项中不属于结构化程序设计原则的是( )。
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是()。
下面描述中不属于数据库系统特点的是
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:OptionBase0PrivateSubCommand1_Click() DimA1(4)AsInteger,A2(4)AsInteger Fork=0To
在黑盒测试方法中,设计测试用例的主要根据是( )。
假定已在窗体上画了多个控件,其中有一个被选中,为J了存属性窗口中设置窗体的属性,预先应执行的操作是()。
设置定时器控件的Interval属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出()次Beep声。SubTimer1_Timer()BeepEndSub
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
随机试题
采用负荷实验评价成人维生素B1营养状态时维生素B1经口给予的剂量为
患者,女,59岁。进行性呼吸困难1个月,无发热。体检示气管向右侧偏移,左侧胸廓饱满,左肺叩诊呈实音,呼吸音消失,诊断为胸腔积液。胸水检查示,外观呈淡黄色,比重1.024,有核细胞数1000×106/L,单核细胞0.80,胸水总蛋白36g/L。对该患者的
土地的经济供给是相对稳定的,一般来说,不受任何人为因素的影响,因此它是无弹性的。()
在下列建设项目筹资方式中,形成项目负债的有()。
使用测力计对防火门的开启力进行测试时,防火门门扇开启力不得大于()N。
信用证的修改书内容在两项以上时,受益人()。
军警不分、警政合一是古代警察的特点之一。()
(2010年江苏.C类.材料三)根据以下资料,回答下列问题。表中2008年贸易顺差最大的经济类型是()。
应用MPLSVPN时,针对每个VPN地址规划应满足的条件是(35)。不同的VPN信息通过MPLS骨干网(或核心网)时通过(36)进行区分。35.
Beforeconsideringthisquestionitisinterestingtoreviewbrieflytheevolutionof【M1】______themindastheinstrument.T
最新回复
(
0
)