首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox(”请输入一个多位整数”) Fo
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox(”请输入一个多位整数”) Fo
admin
2019-04-29
22
问题
有下面程序代码:
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 0 7 2 5 5 3 2
答案
A
解析
InputBox函数将会返回用户在输入对话框中输入的文本,以字符串的形式返回:在第一个For循环中从前到后依次取出字符串中的每一位数字,然后令对应的数组元素自加1,其中数组的第一位放的是0的个数,所以循环结束后数组中存放的是各个数字出现的个数。
转载请注明原文地址:https://kaotiyun.com/show/z9Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下数组定义语句:Dima(一1To4,3)AsInteger以下叙述中正确的是
数据库设计中,用E-R图来描述信息结构但不涉及信息在计算机中的表示,它属于数据库设计的
PrintFormat(1234.56,“###.#}”)语句的输出结果是
定时器的Interval属性的值是一个整数,它表示的是
设窗体上有2个直线控件Line1和Line2,若使两条直线相连接,需满足的条件是
窗体上有一个名称为Textl的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsInteger:bAsIntegerEndTypePrivateSubCommand1Click()Di
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load()Text1.Text=“:Text2.Text=…”:Text1.SetFocusEndSubPrivateSubTex
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimyAsIntegerEndSub在该工程的标准模块的声明部分有代码:PublicaAsInteger:Private
执行以下程序段a$=”VisualBasicProgramming”:b$=“C++”c$=UCase(Left$(a$,7))&b$&RightS(a$,12)变量c$的值为
对于循环队列,下列叙述中正确的是()。
随机试题
避免在300~500℃时矫正,主要是为了防止___________。
氯霉素的最严重不良反应是
技术方案的偿债能力是指分析和判断财务主体的偿债能力,其不包括()。
下列选项中属于我国银行担保类业务的有()。
下列法律事实中,属于法律事件的是()。
开门和关门是人生中含意最深的动作。没有人知道,当他打开一扇门时,有什么在等待着他。门的意义就是把隐藏在它内部的事物加以掩盖,给心儿造成悬念。门是隐秘、回避的象征,是心灵躲进极乐的静谧或悲伤的秘密搏斗的象征。无论一个人在哪儿,只要他在一扇关着的门的后面,他就
①即是说,要使知(对象)变成力量(主体),还需要某种科学的选择、组织、建构、融化的工夫②创造必须有学问。在一定意义上,创造是建立在知识的基础之上的③这样才能使知识纳入你的智力结构,成为你的能力,符合你的需要,而为你自由驾驭,而不只是像机
政协提案:是政协委员以个人、联名或本党派、团体的名义向人民政协组织,并通过政协组织向人民代表大会或人民政府就有关国家或地方大政方针、社会生产等重大问题提出意见和建议的形式。据此定义,下列属于政协提案的是()。
Ofthethreebrothers,theyoungestruns______.
Readthefollowingparagraphandthen"writearesponsepaperofabout250to300words.WriteitneatlyonANSWERSHEET(2).
最新回复
(
0
)