首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=U
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=U
admin
2015-08-28
28
问题
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。
Private Sub Command1_Click()
Dim count(25)As Integer, ch As String
ch=UCase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n>=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m
m=count(k)
End If
Next k
Print m
End Sub
选项
A、0
B、1
C、2
D、3
答案
D
解析
根据题中的程序代码可知,ch为输入字符串的大写状态,第一个For循环是依次取出字母,n为取出字母与"A"字符的ASCII码差值,然后再赋给数组count();第二个For循环是找出数组count()中的最小值,因此,最后窗体上输出的结果为3,即选项D。
转载请注明原文地址:https://jikaoti.com/ti/gF60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
已知通用对话框名为Cdlg,则执行下列的______语句,将弹出“另存为”对话框。
下列程序打印结果为______。PrivateSubCommand1_Click()Dima(5)AsStringDimbAsIntegerDimiAsIntegerfori=0To5
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是()。
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
若在Shape控件内以Fillstyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由Backstyle属性填充,则应______。
以下控件可以用来实现定时地执行某段代码的是______。
下列说法错误的是()。
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox("请输入年份:"))If(yearMod
下列关于菜单的说法错误的是()。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
自动冲洗时,与补充液流量调整无关的因素是
A、结缔组织附着出现降低,达釉牙骨质界的根方,称B、由于牙龈的肿胀或增生使龈缘的位置向冠方移动,结合上皮的位置并未向根方迁移称为C、结合上皮向根方增殖,其冠方部分与牙面分离形成的袋称为D、袋底位于釉牙骨质界的根方,牙槽骨嵴的冠方称
治疗氯丙嗪引起的直立性低血压,宜用
在基差(现货价格一期货价格)为+2时,买入现货并卖出期货,在基差()时结清可盈亏相抵。
甲公司是一家传统制造业上市公司,只生产A产品。2019年公司准备新上一条生产线,正在进行项目的可行性研究。相关资料如下:(1)如果可行,该生产线拟在2019年初投产,经营周期4年。预计A产品每年销售1000万只,单位售价60元,单位变动制造成本40元,
心理测验按照所要测量的特征大体上可分为认知测验和________。
下列不属于刑事侦查工作主要任务的选项是()。
张某因不服税务局查封财产决定向上级机关申请复议,要求撤销查封决定,但没有提出赔偿请求。复议机关经审查认为该查封决定违法决定予以撤销。对于查封决定造成的财产损失,复议机关正确的做法是什么?()
中国的信息化建设大部分___________于国外的技术,要想不被人控制,中国科技工作者应该________,发展自己的核心技术。只有我们足够先进,才能防控别人,才能掌控别人。填入画横线部分最恰当的一项是:
WhenChrisLee’swifegotajobtransferfromtheUStoHongKonglastyear,theseniorprojectmanagerforawebmarketingfirm
最新回复
(
0
)