首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入“Visual Basic.Programming”,则在窗体上输出的是( )。 Private Sub Command 1 C1ick() Dim Num(25)As Integer,Chrl As String Chrl=
下面程序运行时,若输入“Visual Basic.Programming”,则在窗体上输出的是( )。 Private Sub Command 1 C1ick() Dim Num(25)As Integer,Chrl As String Chrl=
admin
2020-07-22
23
问题
下面程序运行时,若输入“Visual Basic.Programming”,则在窗体上输出的是( )。
Private Sub Command 1 C1ick()
Dim Num(25)As Integer,Chrl As String
Chrl=UCase(InputBox("请输入字母字符串"))
For k=1 ToLen(Chrl)
n=Asc(Mid(Chrl,k,1))_Asc("A")
If n>=0 Then
Num(n)=Num(n)+1
End If
Next k
m=Nam(0)
For k=1 To 25
If m
m=Num(k)
End If
Next k
Print m
End Sub
选项
A、3
B、2
C、1
D、0
答案
A
解析
该程序的第一个循环是遍历整个字符串,其中数组Num的作用是存放对应字符的出现次数;第二个循环的作用是找到数组Num中的最大值,所以整个程序的功能就是找到在输入字符串中出现次数最多的字母,并输出其出现的次数。
转载请注明原文地址:https://jikaoti.com/ti/dDS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列数组定义中错误的是
窗体上有名称为Command1的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1_Click()DimaDimb(10)AsIntegera=Array
向文本框中输入字符时,下面能够被触发的事件是
命令按钮Commandl的MouseUp事件过程结构如下:PrivateSubCommandl_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)…
以下关于VB的叙述中,错误的是
下列关于通用对话框CommonDialogl的叙述中,错误的是
执行语句DimX,YAsInteger后( )。
设某二叉树的后序序列为CBA,中序序列为ABC,则该二叉树的前序序列为
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
下列算法中均以比较作为基本运算,则平均情况与最坏情况下的时间复杂度相同的是()。
随机试题
在卧式万能铣床上用右旋滚刀对滚精铣右旋蜗轮时,若A
男,40岁。劳累性心悸、气促3年,下肢水肿半年。查体:心界向两侧扩大,心尖部闻及2/6级收缩期杂音,两肺底有细小湿啰音。超声心动图示左心室增大。最可能的诊断是
城市中工业用地一般占城市建设用地的比例为()。
假设国商业银行某年末的财务数据如下:该银行的不良贷款率是()。
提出“生活即教育”“社会即学校”“教学做合一”教育思想的教育家是()。
对地方各级人民政府的具体行政行为不服的,可以向上一级地方人民政府申请行政复议。()
我相信,一切为宗教而来的人,一定能带走超越宗教的感受,在一生的潜意识中蕴藏。蕴藏又变作遗传,下一代的苦旅者又_______。为什么甘肃艺术家只是在这里_______了一个舞姿,就能引起全国性的狂热?为什么张大千举着油灯从这里带走一些线条,就能_______
①我最初只看到满眼繁花,多半是叫不出名字,只是________而已。②大作家的出现,往往不是________的。在他的同时,或稍前,或稍后,总有一批才华横溢的作家围绕着他,宛若群星之与北斗,相互辉映着,布成灿烂的星空。③在冬天作客的雪往往是鹅毛大雪,这
(Ⅰ)证明拉格朗日中值定理:若函数f(x)在[a,b]上连续,在(a,6)内可导,则存在ξ∈(a,b),使得f(b)—f(A)=f’(ξ)(b—a)。(Ⅱ)证明:若函数f(x)在x=0处连续,在(0,δ)(δ>0)内可导,且f’(x)=A,则f+’(0)
A=BOOKREVIEW1B=BOOKREVIEW2C=BOOKREVIEW3D=BOOKREVIEW4Whichbookreview(s)contain(s)thefollowinginformation?
最新回复
(
0
)