首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序代码: 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
40
问题
设有如下程序代码:
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全国计算机二级
相关试题推荐
设有如下程序:PrivateSubCommand1_Click()DimCAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数")Do
在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程:PrivateSubForm_Load()List1.AddItem"Item1"List1.AddItem"
程序流程图(PFD)中的箭头代表的是______。
下面对对象概念描述错误的是______。
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:PrivateSubFormKeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode;EndSubPrivat
下列特征中不是面向对象方法的主要特征的是()。
在考生文件夹中有工程文件execise23.vbp及窗体文件execise23.frm。在名为Form1、标题为“求和程序”的窗体上有3个Labe1控件、2个Text控件和3个命令按钮(如下图所示)。该程序的主要功能是求从1到Text1中用户输入的任意自然
在考生文件夹中有一个工程文件execise47.vbp及窗体文件execise47.frm。如下图所示,窗体中有一个名为Text1的文本框,初始内容为0;有一个标签;有一个计时器:有一个有两个元素的单选按钮数组,名称为Opt1,标题依次为“1秒”和“3秒”
随机试题
Successfulcompaniesconcentrate(much)_______onsellingtheirproductstotheirexistingcustomersthantotheirnewones.
善祛风痰的药物是
A.碘酊B.过氧乙酸C.戊二醛D.漂白粉E.乙醇干粉用于消毒排泄物的是
通常将房地产市场划分为()。
在一个容器中,反应2NO2(g)2NO(g)+O2(g),恒温条件下达到平衡后,若加入一定的Ar气体保持总压力不变,平衡将会()。
“守株待兔”错在()。
以下程序段执行后整型变量度n的值为______。n=0forI=lto20step5n=n+1nextI
有以下程序 main( ) { int i; for(i=0;i<3;i++) switch(i) { case 1: printf("%d",i); case 2: printf("%d",i); default: p
SpeakerA:CouldIgetaridewithyoutotheconcerttonight?SpeakerB:Ican’tgo,______.Ithinkshe’sleavingaround7:30
PrepareaJobInterviewThefirststeptowardsasuccessfuljobinterviewisself-assessment./Youneedtodecidewhatkind
最新回复
(
0
)