首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
57
问题
有下面程序代码:
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://kaotiyun.com/show/NvGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
在学生管理的关系数据库中,存取一个学生信息的数据单位是
关于菜单设计,下列叙述中错误的是()。
设置定时器控件的Interval属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出()次Beep声。SubTimerl_Timer()BeepEndSub
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Textl、Text2,1个名称为Commandl的命令按钮,并有以下程序。PrivateSubCommandl_Click()Dim
下面程序执行时,输出的结果是()。PrivateSubForm_Click()DimiAsIntege,jAsIntegeri=10Doi=i+jForj=10ToiStep-3i=i+jNextj
关于变量作用域,下列叙述中正确的是()。
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Fiher属性设置为()。
随机试题
求函数f(x,y)=xecosy+的极值.
企业广告诉求的基点是()
(2010年)钢板用两个铆钉固定在支座上,铆钉直径为d,在图5-12所示载荷下,铆钉的最大切应力是()。
污水生物处理的微生物一般最佳的pH值范围为()。
为了规范招投标活动,保护国家利益、社会公众利益和招标投标活动当事人的合法权益,提高经济效益,保证项目质量,全国人民代表大会于()通过了《中华人民共和国招标投标法》。
我国心理学通常把学生的学习分为知识的学习、技能的学习和______的学习三类。
党员:干部:青年
下列描述α错误和β错误正确的选项是()
设n阶矩阵A满足A2+2A一3E=O.求:(A+4E)-1.
In1812,theUnitedStatesfoughtthefirstwarwith______afteritbecameanindependentnation.
最新回复
(
0
)