首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Len(x) b=Mid(x,k,1
有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Len(x) b=Mid(x,k,1
admin
2019-07-30
27
问题
有下面程序代码:
Option Base1
Private Sub Command1_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/WpUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设a=4,b=5,c=6,执行语句Printa<bAndb<c窗体上显示的是
下面属于白盒测试方法的是
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作韵事件过程是
下列叙述中正确的是
设有如下变量声明语句:Dima,bAsBolean则下面叙述中正确的是
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的Case子句是()。
以下变量名中合法的是()。
设有变量声明:Dima,bAsInteger,c!,d%,e#,fAsLong其中所有的整型变量是()。
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
随机试题
通常情况下,使用高压锅可以大大缩短食物的烹煮时间,节约能源。下列对其所用物理原理的解释正确的是:
下列病证中,不宜选用川芎的为
复合树脂充填时首选基底料A.氧化锌丁香油水门汀B.磷酸锌水门汀C.玻璃离子水门汀D.牙胶E.护洞漆
在麻痹性痴呆中最典型的类型是
医院分级管理标准中,医院分级的依据中不包括
A.中性粒细胞B.巨噬细胞C.浆细胞D.NK细胞E.B细胞可递呈抗原,活化后又可分泌抗体的免疫细胞是
根据药典、局颁标准或其他规定的处方,将原料药物加工制成具有一定规格的制品,称为
骨料因干湿或冻融交替等作用引起体积变化而导致混凝土破坏的性质,称为骨料的()。
下列关于作曲家、国籍及作品表述正确的一组是()
2l,27,40,62,96,147,()
最新回复
(
0
)