首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入"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
2020-06-30
43
问题
下面程序运行时,若输入"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/eGHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线,是一个数组,数组的名称为Line1。在运行时,用鼠标单击其中一条线的任何位置,则以单击的点为起始点,画一个正弦曲线(如图1-310所示);若鼠标单击在直线之外,则不画正弦曲线。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签(名称为Lbl1,标题为空白,BorderStyle属性为1,Visible属性为False)、一个文本框(名称为Txt1
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在标题为“列表框”、名称为Form1窗体上画一个名称为lstCourse列表框,通过属性窗口输入四个列表项:“语文”、“数学”、“外语”、“体育”,列表项采用“复
假定有如下的窗体事件过程:PrivateSubForm_Click()a$="MicrosoftInteger":b$=Right(a$,5)c$=Mid(a$,1,9):MsgBoxa$,34,b$,c$,5EndSub程序
若程序中有语句:y=proc(6),则proc应该是
有下面程序代码:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,x,bx=InputBox("请输入一个多位整数")Forvk=1ToLen(x)b=Mid(x,k,
以下叙述中,错误的是
在For的二重循环中,内外循环的循环控制变量名
以下能够正确退出循环的是()。
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
随机试题
简述商业秘密的构成条件。
求由曲线y2=(x—1)3和直线x=2所围成的图形绕x轴旋转所得的旋转体的体积.
甾体激素类最常用的含量测定方法有
论无效民事法律行为。[山东大学2010年研]
工程量清单的项目设置规则是为了统一工程量清单的()而制定的。
主要检验项目是指分项工程中对()起决定性作用的检验项目。
下列税率中最能体现税收负担纵向公平的税率形式是()。(2014年)
居民收入水平决定着产品的市场需求量,产品价格直接影响消费需求的变化。()
生物化学家们宣布,他们已掌握了有效控制植物体内拟南芥酶的技术。使用这种技术,人类就可以改变蔬菜和水果的气味。拟南芥酶是两种物质的综合体,包括二烯氧化物和过氧化氢酶,它能产生茉莉味和绿叶挥发物GLV,后者决定了蔬菜和水果的芳香特点。由此可以推出(
A--InternationalLogisticsB--DistributionChannelsC--GlobalMarketing
最新回复
(
0
)