首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputSox("请输入一个多位整数") For k=1To Len(x) b=Mid(x,k,1)
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputSox("请输入一个多位整数") For k=1To Len(x) b=Mid(x,k,1)
admin
2020-04-18
64
问题
有下面程序代码:
Option Base1
Private Sub Command1_Click()
Dim a(10)As Integer,x,b
x=InputSox("请输入一个多位整数")
For k=1To Len(x)
b=Mid(x,k,1)
a(Val(b)+1)=a(Val(b)+1)+1
Nextk
For k=1T010
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/uwTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()x=1s=0Fori=1To5x=x/is=s+xNex
为了使文本框中的文本能够水平滚动,应采取的正确方法是
关于KeyPress事件,以下叙述中正确的是( )。
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
以下关于变量作用域的叙述中,错误的是
在窗体上建立一个命令控件数组Commandl,并双击第一个命令按钮,编写如下事件过程:PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index).Caption=Format$(Now,"hh
下面程序运行时,若输入"VisualBasicProgramming",则在窗体上输出的是( )。PrivateSubCommand1_Click() Dimcount(25)AsInteger,chAsString ch=U
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
数据结构主要研究的是数据的逻辑结构、数据的运算和()。
随机试题
被称为“诗中有画,画中有诗”的诗人作品是()
November7,2000isaveryspecialdayintheUnitedStates.Votersallacrossthenationare【21】representativesinlocalandnat
下列关于脓胸慢性机化期的叙述,正确的是()
在传染病区使用口罩,正确的是
新设项目法人项目资本金的来源有( )。
情景描述:某高层民用建筑始建于1996年,1999年投入使用,建筑面积14093.78m2,地上十六层,地下一层,高度60m,属一类高层建筑,未经消防审核、验收;大楼内现有行政办公、旅馆住宿、民企公司、普通住户、网吧、商铺等多种用途用房,含商住业主20户,
人民法院审理行政案件,是审查具体行政行为的()。
一、注意事项1.申论考试是对应考者阅读理解能力、综合分析能力、提出和解决问题能力、文字表达能力的测试。2.作答参考时限:阅读资料40分钟,作答110分钟。3.仔细阅读给定资料,按照后面提出的“作答要求”作答。二、给定资料1
Writeanessayof160-200wordsbasedonthefollowingdrawing.Inyouressay,youshould1)describethedrawingbriefly,2)in
采用UML分析用户需求时,用例UC1可以出现在用例UC2出现的任何位置,那么UC1和UC2之间的关系是(45)关系。
最新回复
(
0
)