首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Command1_Click( ) Dim a(10)As Integer,x,b x=InputBox(“请输入一个多位整数”)
有下面程序代码: Option Base 1 Private Sub Command1_Click( ) Dim a(10)As Integer,x,b x=InputBox(“请输入一个多位整数”)
admin
2020-05-11
67
问题
有下面程序代码:
Option Base 1
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、1 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/BEHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii=KeyAscii+3EndSub程序运行时,在文本
为了把命令按钮设置为图形格式,其Style属性值应为()。
(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时,先向文本框Text1中输入一个不超过10的正整数,然后选择“N的阶乘”或“(N+2)的阶乘”单选按钮,即可进行计算,计算结果显示在文本框Text2中,如图1-199所示。在给出的
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Shape1的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求:①圆角矩形中
内聚性是对模块功能强度的衡量,下列选项中,内聚性较弱的是()。
下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是()。PrivateSubCommandl_Click()DimNum(25)AsInteger,ChrlAsStrin
假定Picturel和Text1分别为图片框和文本框的名称,下列不正确的语句是()。
假定有如下语句:answer$=MsgBox(“Stringl”,“String2”,“String3”,2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为()。
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图所示,对应的事件过程是()。
随机试题
预决算调整法是以待估建筑物预决算资料中的___为基础进行现行价格的调整而确定评估值的。()
属于G蛋白耦联受体的是
下列哪些情形下,合议庭成员不承担责任?(2013年卷二第73题)
P1、P2、P3…Pn是城市按人口规模从大到小排序后某位序城市的人口,通常所说的“四城市指数”是()城市人口的比值。
根据《公司法》司法解释(三)的规定,股东在公司设立时未履行或者未全面履行出资义务的,()对未履行的出资义务负有履行责任。
个人质押贷款发放后,()的业务部门留存联应该返回信贷部门存档。
根据下列资料,回答问题。据统计,2016年共有来自205个国家和地区的442773名各类外国留学人员在31个省、自治区、直辖市的829所高等学校、科研院所和其他教学机构中学习,比2015年增加45138人。1.按洲别统计2.按国别排
在华外资金融机构将逐步建立以中外合资银行为主的结构体系。()
新中国成立初期,为加强执政党建设,在全党范围开展的重大举措主要有()
如果项目A的净现值为30000元,项目B的净现值为50000元,那么选择B的机会成本是()元。
最新回复
(
0
)