首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox(”请输入一个多位整数”) For k=1
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox(”请输入一个多位整数”) For k=1
admin
2017-11-23
70
问题
有下面程序代码:
Option Base 1
Private Sub Commandl_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
解析
InputBox函数将会返回用户在输入对话框中输入的文本,以字符串的形式返回;在第一个For。循环中从前到后依次取出字符串中的每一位数字,然后令对应的数组元素自加1,其中数组的第一位放的是0的个数,所以循环结束后数组中存放的是各个数字出现的个数。
转载请注明原文地址:https://kaotiyun.com/show/P8Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当程序运行时,在窗体上单击鼠标,以下______事件是窗体不会接收到的。
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()Dima(5,5)AsIntegerDimiAsInteger,jAsI
执行下列程序后,鼠标单击窗体,输出结果为。 PrivateSubForm_Click() Print“Click”; EndSub PrivateSubForm_MouseDown(ButtonAsInteger,Shift_
启动窗体在【】对话框中指定。
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
能够将文本框控件隐藏起来的属性是()。
由Array函数建立的数组的名字必须是【】类型。
使用CommonDialog控件的()方法,可显示“打印”对话框。
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序:PrivateSubCommand1_Click()
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为()。
随机试题
A、Itwillincreasethegovernment’seconomicburden.B、ItwillleadtoapartialshutdownoftheUSgovernment.C、Itwillgiver
简述征订目录的种类。
motiveswhichcarriedpenetrationovercostslong-termconclusioncontrastsecuritiestry
简述分区定价的含义和存在的主要问题。
男性,55岁。反复咳嗽并有吸烟史10年,冬春季咳嗽加重。体查:双肺呼吸音稍减低,右下肺可闻少量湿性啰音。胸片示肺纹理增多。肺功能检查残气量占肺总量的25%,1秒率为55%。最可能的诊断是
吊车、升降机等昼间施工场地作业时,噪声限值为()。
如果两种债券的息票利率、面值和收益率等都相同,则期限较长的债券的价格折扣或升水( )。
劳动力市场的性质是地区性的还是全国性的,主要取决于()。[2004年真题]
从10种不同的作物种子中选出6种分别放入6个不同的瓶子中展出,如果甲、乙两种种子都不许放入第一号瓶子内,那么不同的放法共有:
A、Byplane.B、Bycar.C、Bytrain.D、Bybus.D该题为推理题。听者应该关注女士“but”后面的话。该女士认为坐汽车比自己开车或坐飞机更划算。
最新回复
(
0
)