首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Lea(x) b=Mid(x,k
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Lea(x) b=Mid(x,k
admin
2019-06-11
67
问题
有下面程序代码:
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer,x,b
x=InputBox("请输入一个多位整数")
For k=1 To Lea(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
解析
Len函数获取整数的位数并作为For循环的边界。Mid函数从循环变量指定的地方获取字符并赋值给b。Val函数取b的数值。For循环完成对数组a的元素赋值。第二个For循环进行打印。选A)。
转载请注明原文地址:https://kaotiyun.com/show/3kUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架,标题分别为“字号”、“修饰”;在Frame1中添加两个单选按钮,1名称分别为Option1、Option2,标题分别为“10号字”、“20号字”,且标题显示在单选按钮的左边
执行以下程序后,在窗体上输出的是()。PrivateSubCommand1_Click()Dima(20)Forj=1To20Step2a(j)=jNextiPrinta(1)+a(2)+a(3)EndSub
在窗体上画一个名为Command1的命令按钮,编写如下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkx=6PrintM(2+M(x))
在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中;②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是
判断单选按钮是否被选中的属性为
下面描述中不属于数据库系统特点的是
下列不属于软件工程3个要素的是()。
在深度为7的满二叉树中,叶子结点的个数为
将E-R图转换到关系模式时,实体与联系都可以表示成()。
随机试题
“中和之美”
社会主义条件下,我国各级领导者的领导观念具有的特点包括【】
心脏病孕妇最危险的3个时期是:_________、_________及_________。
A.血寒证B.阴虚证C.阳虚证D.血热证E.亡阳证因行经期下水劳作而月经延迟,少腹冷痛,拒按,脉沉弦的临床意义是
患者,女,干咳,有少量黏痰、缠喉难出,伴有鼻燥咽干现象,根据藏象学说回答相关问题。所患疾病的脏,别名是()。
某市政立交桥工程采用钻孔灌注桩基础,八棱形墩柱,上部结构为跨径25m后张预应力混凝土箱梁。桩基主要穿过砾石土(砾石含量少于20%,粒径大于钻杆内径2/3)。钻孔灌注桩工程分包给专业施工公司。钻孔桩施工过程中发生两起情况:(1)7#桩成孔过程中出现较严重坍
根据我国商标法规定,注册商标的有效期为10年,其起算点为()。(2012年单选37)
A、字典B、照片C、熊猫B
Thisproblemis______hisabilityandIdon’tthinkhecansolveit.
Anygoodmysterymusteventuallyuncoveravillain,andinarecentdocumentary,"WhoKilledtheElectricCar?",thefilmmakers
最新回复
(
0
)