首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Commandl Click() Dim Nurn(25)As Integer,Chrl As String Chrl=U
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Commandl Click() Dim Nurn(25)As Integer,Chrl As String Chrl=U
admin
2019-06-20
54
问题
下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。
Private Sub Commandl Click()
Dim Nurn(25)As Integer,Chrl As String
Chrl=UCase(InputBox(“请输入字母字符串”))
For k=1 To Len(Chrl)
n=Asc(Mid(Chrl,k,1))-Asc(“A”)
If Il>=0 Then
Naml(n)=Num(n)+1
End If
Next k
m=Nam(0)
For k=1 To 25
If m
m=Num(k)
End If
Nextk
Print m
End Sub
选项
A、3
B、2
C、1
D、0
答案
A
解析
该程序的第一个循环是遍历整个字符串,其中数组Num的作用是存放对应字符的出现次数;第二个循环的作用是找到数组Num中的最大值,所以整个程序的功能就是找到在输入字符串中出现次数最多的字母,并输出其出现的次数。
转载请注明原文地址:https://kaotiyun.com/show/rgUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于VB对象属性的叙述中,错误的是
有下面的程序段:x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNextiCombo1.Text=SumEndSub
下列控件中,不响应Click事件的是
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Commandl(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组Optionl,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4”,初始状态下,“
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个标签,名称为L1,标题为“业余爱好”,再画一个名称为Chl的复选框数组,含三个复选框,它们的Index属性分别为0、1、2,标题依
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“显示记录”的窗体上画一个名称为Textl的文本框.其初始内容为空:再画一个名称为Commandl的命令按钮数组(下标从0开始,有4个按钮
下面的数写成普通十进制数是()。8.6787E+8
下面的数写成普通十进制数是()。
下面的数写成普通十进制数是()。8.6787E+8
随机试题
(1)在考生文件夹下,“sampl.mdb”数据库文件中建立表“tCourse”,表结构如下:(2)根据“tCourse”表的结构,判断并设置主键。(3)设置“学时”字段的有效性规则,使其输入的数据必须非空且大于等于0。(4)设置“开课日期”字
A.calledB.publishedC.vocallyD.feasibleE.possibleF.probablyG.primarilyH.stopI.indeedJ.con
化工过程的检测和控制系统的图形符号,一般由测量点、连接线和仪表圆圈三部分组成。()
肺循环的动脉起于()
阴道真菌及毛滴虫检查最常用的方法是
A.丝氨酸B.精氨酸C.苯丙氨酸D.半胱氨酸E.谷氨酸可产生硫酸根
关于建设工程分包的说法,正确的是()。
银行券的发行必须具有发行保证,黄金保证体现为()。
Taxes(税)areabigpartintheUnitedStates.MostAmericanspaycitytaxes,statetaxes,socialsecurity(安全)taxes,salestax
A.pushingB.remainC.pregnantD.humiliatingE.undergroundF.vitallyG.draggingH.deriveI.obliviousJ.preferK
最新回复
(
0
)