首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入"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
55
问题
下面程序运行时,若输入"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://kaotiyun.com/show/m7Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下述关于数据库系统的叙述中正确的是______。
DefSnga定义的变量a是______类型的变量。
常用的软件结构设计工具是结构图(SC),也称程序结构图。其中,用矩形表示______,用带空心圆的箭头表示传递的是数据。
在运行程序时,在程序代码中改变文本框的Text属性值,或在文本框中输入新的内容,相应会触发()事件。
如果在立即窗口中执行以下操作(<CR>是回车键):a=8<CR>b=9<CR>printa>b<GR>则输出结果是______。
在窗体上有一个文本框控件,名称为TextTime,一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。PrivateSubTimer1_TextTime.Text=TimeEnd
表达式Str(Len(“123”))+Str(77.7)的值是()。
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在以下横线处合适的语句是()。PrivateSubForm_Cl
设A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为______。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
有以下程序:#includemain(){intx=1,y=2,z=3;if(x>y)if(y
A.麻疹疫苗B.乙型脑炎疫苗C.脊髓灰质炎疫苗D.百白破混合制剂E.乙肝疫苗2个月小儿应接种
维持阴阳相对的动态平衡称之为
脂肪酸合成酶催化合成的脂肪酸是
证券公司应当在集合资产管理计划设立工作完成后( )个工作日内,将集合资产管理计划的设立情况报中国证监会及注册地中国证监会派出机构备案。
首次发行的公开招股说明书摘要应当早于网上直播推介。()
主板上市公司申请公开发行新股,应满足的条件之一是()。
在某专利侵权纠纷民事诉讼中,专利权人申请人民法院通知具有专门知识的人张某出庭,代表当事人对专利侵权技术比对涉及的专业问题在法庭上提出意见。根据民事诉讼法及相关规定,下列关于该意见的哪种说法是正确的?
中世纪非常漫长,从公元5世纪到15世纪,整整1000年的时间。那时,大多数学者的时间和精力大都消耗在故纸堆里,他们将古代的智慧视为金科玉律,把古希腊自然哲学大师亚里士多德的思想当作是自然界所有知识的基础,只相信已有的解释,却拒绝怀疑,拒绝自己面对自然,所以
HowsciencegoeswrongScientificresearchhaschangedtheworld.Nowitneedstochangeitself.[A]Asimpleideaunderlies
最新回复
(
0
)