首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
60
问题
有下面程序代码:
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全国计算机二级
相关试题推荐
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click()Dima&,s&,k&s=1a=2Fork=
在考生文件夹下有一个工程文件Sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则把它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Labell中;若是其他字符,则把该字符直接
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
对序线性表(23,29,34,55,60,70,78)用二分法查找值为60的元素时,需要比较次数为()。
VB中,若没有显式声明变量的数据类型,则默认的类型是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Label1的标签数组,含3个标签控件,下标从0开始,标签上的内容(按下标顺序)分别是:“等级考试”,“程序设计”,“VB程
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
软件测试的目的是( )。
随机试题
利用PowerPoint2003的________________工具中的“摘要幻灯片”命令,可创建选定幻灯片的摘要幻灯片。
可产生耳毒性的药物为
月经先期的病因病机不包括
[背景资料]某写字楼建设项目,建设单位与施工单位签订土建和装饰装修施工合同,建设单位委托监理单位对该工程土建施工和装饰装修进行工程监理。施工过程中发生了如下事件:事件一:装饰装修合同中规定5000m2的花岗石石材由建设单位指定厂家,施工
财务管理环境包括()。
按生产要素分配的具体形式有()。
Mostofusthinkweknowthekindofkidwhobecomesakiller,andmostofthetimewe’reright.Boys(1)_____about85%ofall
向部门经理发一个E—mail,并将考生文件夹下的一个Word文档Sell.DOC作为附件一起发送,同时抄送给总经理。具体如下:【收件人】zhangdeli@126.com【抄送】wenjiangzhou@126.com【主题】销售计划演示【内容】
•Readthearticlebelowaboutjobenrichment,akindofwaytopromotetheworkefficiencyofacompany.•Choosethecorrectw
Sinceitistoolatetochangemymindnow,Iam______tocarryingouttheplan.
最新回复
(
0
)