首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=
admin
2020-02-27
49
问题
下面程序运行时,若输入"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/3GTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用()。
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommandl()_ClickDimn()AsIntegerDima,bAsIntegera=
窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是()。
以下不能用形状控件画出的图形是()。
已知图片框Picturel中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是()。
设已经在菜单编辑器中设计了弹出式菜单mnuStyle,要求程序运行时,当用户在文本框Textl上单击鼠标右键时,能够弹出该菜单,则应使用的事件过程是()。
注意:下面出现的“考生文件夹”均为%IJSER%。在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
使用Open语句可以打开或建立文件,并同时指定文件的输入输出方式。下列输入输出方式中错误的是()。
在E—R图中,用来表示实体联系的图形是()。
随机试题
髋关节后脱位少见,呈外展、外旋、屈曲畸形。
男性,30岁,肝区钝痛、低热、乏力3个月,有血吸虫疫区生活史。查体肝肋下2cm,质硬。HBsAg(+),ALT60U,A/G为3.1/1.3,AFP先后检测两次,结果分别为200mg/ml和400mg/ml。为进一步检查,患者拟行腹部CT检查,CT扫描
外周血网织红细胞增多>5%,最可能的诊断是
统摄血液在经脉中流行的脏器是
A.氟西汀B.艾司佐匹克隆C.艾司唑仑D.齐拉西酮E.美沙酮口服吸收好,生物利用度高,属于5一羟色胺再摄取抑制剂的抗抑郁药是()。
某县公安机关将正在实施强奸的张某先行拘留后,经审查认为需要逮捕,于是依法提请该县人民检察院审查批准。人民检察院在对案件进行审查后,可以依法作出下列哪种处理决定?( )
在英、美工程咨询行业协会中,()的宗旨是为鼓励本行业在全世界的创新和优秀成果提供资源。
沪、深证券交易所以国债为主要品种的质押式回购交易的开办时间分别是()。
在同学聚会上,甲、乙、丙在各自的工作岗位上都做出了一定的成绩,成为了教授、明星和经理。另外:(1)他们分别毕业于音乐系、物理系和中文系;(2)明星称赞中文系毕业者身体健康;(3)物理系毕业者请教授写了一幅字;(4)明星和物理系毕业者生活在同一个城市
Honoryourcustomers.Listentothem.Getoutintothemarketsyouserve,andaskyourcustomersforfeedback.Makethenecessar
最新回复
(
0
)