首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
63
问题
有下面程序代码:
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全国计算机二级
相关试题推荐
单击命令按钮时,下列程序段的执行结果为()。PrivateSubCommand1_Click()PrintFunc1(24,18)EndSubPublicFunctionFunc1(mAsInteger,nAsInteg
在窗体上画一个名为Command1的命令按钮,编写如下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkx=6PrintM(2+M(x))
用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是()。
以下不能输出“Program”的语句是
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
设窗体上有一个Picture1图片框,要求在图片框中的指定位置(坐标为(500,300))输出“OK”,下面可以实现这一功能的事件过程是
决定标签内容显示位置的属性是
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
在标准模块中用Public关键字定义的变量,其作用域为
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个名称为Labell的控件数组,含三个标签,标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为Text1的控件数组,含三个初始值为空的文本框:此外还有两个名称分别为Cmdl和Cm
随机试题
“老吾老以及人之老,幼吾幼以及人之幼”,反映的是中华民族()优良道德传统
在酵解过程中催化产生NADH和消耗无机磷酸的酶是
慢性血行播散型肺结核的X线表现是
由项目业主采购材料、构配件及设备的,()应当保证材料、构配件及设备符合设计文件和合同要求。
学校文化的形成来自于两方面,即【】
[2010年单选]右边这张照片反映出由于气候变暖,北极冰盖融化,致使北极熊无处可去的场景,颇具震撼力。它给我们地球上的人类发出的警示是()
On-the-jobsmokingisahotissueforbothsmokersandnon-smokers,andmanymanagersnowseesmokingasaproductivity(生产力)pro
Inmanycountriestobaccoandmedicinearegovernment______.
Heobviouslydisplaysagreat______forsomeofyourpoems.
PASSAGETHREEWhatdoesMazzelameanbysaying"thetippingpointwillbeby2020"inPara.8?
最新回复
(
0
)