首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Command1_C1ick() Dim Ntim(25)As Integer,Chrl As String Chr1=U
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Command1_C1ick() Dim Ntim(25)As Integer,Chrl As String Chr1=U
admin
2016-09-18
125
问题
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。
Private Sub Command1_C1ick()
Dim Ntim(25)As Integer,Chrl As String
Chr1=UCase(InputBox("请输入字母字符串"))
For k=1To Len(Chr1)
n=Asc(Mid(Chr1,k,1))-Asc("A")
If n>=0then
Num(n)=Num(n)+1
End If
Next k
m=Num(0)
For k=1To25
If m<Nam(k)Then
m=Num(k)
End If
Next k
Print m
End Sub
选项
A、3
B、2
C、1
D、0
答案
A
解析
该程序的第一个循环是遍历整个字符串,其中数组Num的作用是存放对应字符的出现次数;第二个循环的作用是找到数组Num中的最大值,所以整个程序的功能就是找到存输入字符串中出现次数最多的字母,并输出其出现的次数。
转载请注明原文地址:https://kaotiyun.com/show/vZLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VisualBasic采用______驱动的编程机制,程序员只需要编写响应用户动作的程序,而不必考虑按精确次序执行的每个步骤。
以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。请填空。PrivateSubCommand1_Clcik() Randomize ForI=1To20 X=Int(Rnd*_____
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为______。
可以用InputBox函数产生“输入对话框”。若执行下列语句st$=InputBox("请输入字符串","字符串对话框","字符串")当用户输入完毕,按“确定”按钮后,st$变量的内容是()。
数据处理的最小单位是
以下叙述中错误的是()。
设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。PrivateSubCommandl_Click()Dima(1To10)AsI
数据管理技术发展的三个阶段中,()没有专门的软件对数据进行管理。I.人工管理阶段Ⅱ.文件系统阶段Ⅲ.数据库阶段
设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是______。
随机试题
实现发展成果由人民共享,必须深化经济效益分配制度改革,努力实现居民收入增长和经济发展同步,劳动报酬增长和劳动生产率提高同步,提高居民收入在国民收入分配中的比重,提高劳动报酬在初次分配中的比重。()
温补肺肾,定喘,善于治疗肾不纳气之虚喘劳嗽的药物是()
水泥稳定碎石基层与级配碎石基层交工验收时,都需检测的项目只有压实度。()
下列不属于项目执行管理层在实施阶段的工程咨询业务工作的是()。
安全带长度一般为1.5~2m,使用3m以上长绳时,应加( )。
当发生有危及贷款人安全的情形时,借款人应当()。
收款凭证的左上角科目为(),登记的科目是“现金”或“银行存款”。
只有经过严格体检并合格的人才能加人冬泳协会。所有加人冬泳协会的人都被评为全民健身积极分子。有的退休老同志是冬泳协会成员。王府大厦的保安都没有经过体检。如果以上断定成立,那么下列各项都能从中推出,除了:
•Readthetextbelowaboutafter-saleservice.•Inmostofthelines41—52thereisoneextraword.Itiseithergrammaticallyi
A—cashbusinessJ—modeofpaymentB—commissionreceivablesK—downpaymentC—loanextensionL—repaymentguaranteeD—bankdraftsM
最新回复
(
0
)