首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Len(x) b=Mid(x,k,1
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Len(x) b=Mid(x,k,1
admin
2019-07-30
28
问题
有下面程序代码:
Option Base1
Private Sub Command1_Click()
Dim a(10)As Integer,x,b
x=InputBox("请输入一个多位整数")
For k=1 To Len(x)
b=Mid(x,k,1)
a(Val(b)+1)=a(Val(b)+1)+1
Next k
For k=1 To 10
Print a(k);
Next k
End Sub
程序运行时,单击命令按钮Command1,输入2355270224,则输出是
选项
A、1 0 4 1 1 2 0 1 0 0
B、0 4 1 1 2 0 1 0 0 0
C、2 3 5 5 2 7 0 2 2 4
D、4 2 2 0 7 2 5 5 3 2
答案
A
解析
InputBox函数将会返回用户在输入对话框中输入的文本,以字符串的形式返回;在第一个For循环中从前到后依次取出字符串中的每一位数字,然后令对应的数组元素自加1,其中数组的第一位放的是0的个数,所以循环结束后数组中存放的是各个数字出现的个数。
转载请注明原文地址:https://kaotiyun.com/show/WpUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommandl_Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasemCase1SelectCasen
编写如下程序:PrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=3:b=2Ifa*b<10Thenb=b+1Elseb=b-1EndIfP
软件设计中划分模块的一个准则是
以下关于控件的叙述中,正确的是
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsInteger…若已有变量声明:Dimx(5)AsInteger,nAsInteger,chAsString
设有如下的用户定义类型:TypeStudentNumberAsString:NameAsString:AgeAsIntegerEndType则以下正确引用该类型成员的代码是
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码前叙述中,错误的是
下列关于软件工程的描述中正确的是
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labell),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图所示,对应的事件过程是()。
随机试题
适用于全子宫切除术的是
甲晚10点30分酒后驾车回家,车速每小时80公里,该路段限速60公里。为躲避乙逆向行驶的摩托车,将行人丙撞伤,丙因住院治疗花去10万元。关于丙的损害责任承担,下列哪一说法是正确的?(2010年卷三第20题)
经有关部门批准,建筑艺术造型有特殊要求的,其设计可以直接发包。()
防止土体发生流土渗透变形的工程措施主要有()。
某工程采购的一批钢材的出厂价为3980元/吨,运费为50元/吨,运输损耗率为0.5%,采购保管费率为2%,则该批钢材的材料单价为()元/吨。
阅读下列材料,回答问题。 百姓有所呼,政府有所应。长春市人民政府举办局长接待日活动多年来持之以恒,形成制度,深受百姓欢迎。政府各部门“一把手”亲自出面,倾听群众意见和诉求,对个案问题、共性问题和政治层面问题,抓住关键和症结所在,落实政策;对新情况、新问
()被认为是美国进步教育思想最卓越的例子。
“一言可以兴邦,一言可以丧邦”,英雄人物的个别举动可以改变历史发展的方向,这种观点是( )
在如下的数据库表中,若雇员信息表的主键是’雇员号’,部门信息表的主键是’部门号’。若要删除部门信息表中行,哪一行可以被删除?
Thephrase"progressiveeducation"isone,ifnotprotest,atleastofcontrast,ofcontrastwithaneducationwhichwaspredomi
最新回复
(
0
)