首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入"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
25
问题
下面程序运行时,若输入"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全国计算机二级
相关试题推荐
下列的程序段执行后,x的值为______。PrivateSubCommand1_Ciick()x=0fori=1To10forj=iTo10x=x+1Next
在窗体form1的Click事件过程中有以下语句:Label1.Caption="VisualBasic"若本语句执行前,标签控件的Caption属性取默认值,则该标签控件的名称属性和Caption属性在执行本语句前的取值分别为
以下叙述正确的是______。
下列叙述中不正确的是()。
下列语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut,但该语句的一个重要错误是没有()。
通过InputBox函数可以产生输入对话框。若执行下列语句:st$=InputBox("请输入字符串","字符串对话框","字符串")则运行程序,用户输入完毕并单击“确定”按钮后,st$变量的内容为()。
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
随机试题
定性分析粮食中氰化物的残留量时,氰化物遇酸产生氢氰酸,与苦味酸钠生成红色异氰紫酸钠。
Wehavenotfixedthedate______weshallstartourholidays.
A、慢性感染B、亚急性感染C、急性感染D、二重感染E、原发感染病程为15日的感染()
某综合性医疗机构排放经消毒处理后的污水,其水质检测结果为:粪大肠菌群≤900MPN/L,氯化法总余氯
贝尔面瘫急性期治疗不正确的是
初产妇第二产程中,何时应开始保护会阴
常用于清理铸件的毛边、飞刺、浇铸冒口及铸件中缺陷的切割方法为()。
下列关于期货期权说法正确的是()。[2012年5月真题]
给定资料1.改革开放以来,我国住房制度经历了从以福利分房制度为主发展到以住房市场化制度为主的过程,建立了比较适合中国国情的现代住房体制。然而,近十多年来,房价上涨成为全国各个城市的共同现象,住房供应结构不合理,房价过高,超出了普通消费者的支付能力
Localgovernmentispoliticaladministrationofthesmallestsubdivisionsofacountry’sterritoryandpopulation.Althoughther
最新回复
(
0
)