首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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,
有下面程序代码: 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,
admin
2019-03-08
40
问题
有下面程序代码:
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
程序运行时,单击命令按钮Commandl,输入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 O 7 2 5 5 3 2
答案
A
解析
InputBox函数将会返回用户在输入对话框中输入的文本,以字符串的形式返回:在第一个For循环中从前到后依次取出字符串中的每一位数字,然后令对应的数组元素自加1,其中数组的第一位放的是0的个数,所以循环结束后数组中存放的是各个数字出现的个数。
转载请注明原文地址:https://kaotiyun.com/show/oZFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。再在滚动条下
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimiAsInteger,nAsInteger Fori=0To
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubCommand1_Click() n=0 Fori=0To10 X=2*i-1 IfXMod3=0Thenn=n+1
在VisualBasic中,所有标准控件都具有的属性是( )。
下面属于黑盒测试方法的是
编写如下程序:PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入一个数值:")Printn;ff(n)EndSubFunctionff(xAs
以下关于过程及过程参数的叙述中,错误的是
若要清除列表框控件中的所有列表项,应该使用的方法是
VB中,若没有显式声明变量的数据类型,则默认的类型是
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是( )。
随机试题
“因材施教”遵循了人的身心发展的()。
()的生理功能是生成和破坏血细胞,贮存血小板,免疫功能,修整细胞。
患者小便不畅,点滴短少1天,伴头痛鼻塞,咳嗽咽干,烦渴引饮,呼吸急促,舌红,苔薄黄,脉数。其诊断是
某工程设计有两个方案:甲方案功能评价系数0.856,成本系数0.92;乙方案功能评价系数0.6,成本系数0.7,则最优方案的价值系数为()。
某局(无强制执行权)根据深圳唯冠科技公司的控告,对某区迪信通销售门店开展了商标侵权产品查处行动,决定没收iPad2共计42台,罚款21000元。迪信通在规定期限内既未缴罚款,也未申请行政复议或提起行政诉讼。下列说法正确的有()。
某些政府在政务公开时存在“公开的群众不关心,群众关心的不公开”的现象,一定程度上屏蔽了社会关切,造成群众对政府的不信任,你怎么看?
试论元明清时期中央政府对西藏地区的统治。(兰州大学2000年中国古代史真题;南京大学2003年中国古代史真题)
Inthepasttwodecades,mainlandChina’sartmarkethasfollowedthesameflightpathastherestofthecountry’srocketingec
SummaryListentothepassage.Forquestions26—30,completethenotesusingnomorethanthreewordsforeachblank.Webquesti
()应急车道()环岛()四环路()辅路
最新回复
(
0
)