首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
2018-05-08
23
问题
有下面程序代码:
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、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://jikaoti.com/ti/d4y0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul-1.jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片
目录列表框的Path属性的作用是()。
假定有如下的Sub过程:SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click(
编写如下程序:PrivateSubForm_Click()Print”Welcome!”EndSubPrivateSubForm_MouseDown(ButtonAsInteger,Shift
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)
以下关于控件数组的叙述中,错误的是
下面为单精度实型(即单精度浮点型)变量的是
如下关于变体类型变量的叙述中,错误的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Fiher属性设置为()。
下列关于二叉树的叙述中,正确的是()。
随机试题
大众传播的内容应力求
习近平形象地指出,理想信念是共产党人精神上的“钙”,没有理想信念,或理想信念不坚定,精神上就会“缺钙”,就会得“软骨病”。中国共产党人的理想信念是【】
InBritain,peoplehavedifferentattitudestothepolice.Mostpeoplegenerally【C1】______themandthejobtheydo—althoughther
A.12~1月B.2~4月C.5~6月D.7~9月E.10~12月
数据电文申报包括()。
在教学过程中集中学生的注意力的方法有()。
以下叙述中正确的是()。
Researcherssaypeopletravelingintrafficarethreetimesmorelikelytosufferaheartattack.Theysaytheriskofahearta
Togetachocolateoutofaboxdemandsaconsiderableamountofunpacking:theboxhastobetakenoutofitspaperbagthepla
A、Sheplanstohavethemanmakeatourarrangementforher.B、Shehopesthathecouldgivehersomeadviceonwriting.C、Shewa
最新回复
(
0
)