首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer,ch As String
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer,ch As String
admin
2016-08-24
42
问题
下面程序运行时,若输入“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(O)
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://kaotiyun.com/show/liLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要选择多个不相邻的控件,按住______或SHIFT键不放,再单击要选择的控件。
函数String(n,"str")的功能是()。
在窗体上绘制一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click()a=InputBox("请输入日期(1~31)")t="旅游景点:"_
以下程序的功能是:将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),……,把A(91)到A(100)依次赋给B(
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是()。
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是
假设用复制、粘贴的方法建立了一个命令按钮数组Commandl,以下对该数组的说法错误的是()。
设“A=“87654321””,则表达式Val(Lef1(A,4)+Mid(A,4,2))的值为()。
在数据库系统的组织结构中,下列()映射把用户数据库与概念数据库联系了起来。
检查软件产品是否符合需求定义的过程称为()。
随机试题
案情:大岭市中级人民法院对武某、康某、尹某、杜某四人虚开增值税专用发票一案作出判决,武某被判处死刑,并处没收财产;康某被判处无期徒刑,并处罚金15万元;尹某被判处有期徒刑3年、缓刑4年,并处罚金10万元;杜某被判决免除刑事处罚。一审宣判后,人民法院立即对武
做器械胸前下拉练习的下拉动作时,肩关节的运动是()。
理想气体状态方程适用于高压低温下气体的计算。()
在下列立法表述中,哪些属于除斥期间的规定?()
张某、方某共同出资,分别设立甲公司和丙公司。2013年3月1日,甲公司与乙公司签订了开发某房地产项目的《合作协议一》,约定如下:“甲公司将丙公司10%的股权转让给乙公司,乙公司在协议签订之日起三日内向甲公司支付首付款4000万元,尾款1000万元在次年3月
对于企业租出并按出租协议向承租人提供保安和维修等其他服务的建筑物,是否属于投资性房地产的说法正确的是()。
在PowerPoint中,如需要在当前的幻灯片中加入自己的相片,要用到()菜单。
朝鲜族的传统菜肴是()。
各项公安专业工作应该结合自身工作特点开展群众工作,使群众工作成为公安专业工作的有机组成部分。()
Conversation:Afterreadingthefollowingpassage,youwillfind5questionsorunfinishedstatements,numbered36through40.F
最新回复
(
0
)