首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
60
问题
有下面程序代码:
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全国计算机二级
相关试题推荐
以下不属于VB控件的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“图片练习”的窗体上画一个名称为Image1、宽和高分别为1800和1200的图像框,设置属性使图像框中的图形能自动放大或缩小以与图像框
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Command1、标题为“打开”的命令按钮,然后画一个名称为CD1的通用对话框(如图1-189所示),编写适当的事件过程,
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为( )。
下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是()。PrivateSubCommandl_Click()DimNum(25)AsInteger,ChrlAsStrin
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"
如图所示,在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1______________TextTime.Text=TimeEndSu
算法的空间复杂度是指()。
下面关于算法的叙述中,正确的是()。
随机试题
从业者在职业劳动中,有一分力出一分力,出满勤,干满点,不怠工,不推诿,不自欺,遵纪守法;对待他人严格履行合同契约,说到做到,不说谎,不欺人,不弄虚作假,不唯利是图,不做缺德事,不做亏心事。这是职业道德中
利用混合物各成分在两相溶剂中的分配系数不同进行分离的色谱方法为
异烟肼每日用量超过500mg时,主要的不良反应是
以下四项中,除外哪一项为妊娠合并糖尿病对胎儿的影响
CR的空间频率处理、减影处理的叙述,正确的是
循环周期理论重点考虑的是时间因素、关系价格,不考虑成交量。()
在面试评估阶段可采用的评估方式包括()
毕业前夕,老师请学生张某谈谈对个人求职的看法。张某说:“找工作不好,不找工作也不好”。张某的话违背了()。
100BASE-T的网卡可分为3种,目前使用最多的、多用于主干网中的是()。
BeliefsabouttherelationshipbetweenhumanityandthenaturalenvironmentcanbedirectlycorrelatedwithconceptionsheldAre
最新回复
(
0
)