首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1
有下面程序代码: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") For k=1
admin
2020-04-18
72
问题
有下面程序代码:
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
程序运行时,单击命令按钮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
解析
Len函数获取整数的位数并作为For循环的边界。Mid函数从循环变量指定的地方获取字符并赋值给b。Val函数取b的数值。For循环完成对数组a的元素赋值。第二个For循环进行打印。选A。
转载请注明原文地址:https://kaotiyun.com/show/icTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:OptionBase1PfivateSubCommand1——Click()Dimaa=Array(1,2,3,4)
为了把ActiveX控件加到工具箱中,首先应采取的操作是
已知变量x、y为整数型,且x=4,y=12,s为字符串型,且s=a,LblOk为标签控件,下列赋值语句不合法的是()。
VB应用程序不能把一个二维表格中的数据存入文件
窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。程序如下:PrivateSubCommand1_Click(IndexAsInteger) IfIndex=1Then Print"计算机等级考试" En
下面有关标准模块的叙述中,错误的是()。
假定已在窗体上画了多个控件,其中有一个被选中,为了在属性窗口中设置窗体的属性,预先应执行的操作是( )。
数据结构主要研究的是数据的逻辑结构、数据的运算和()。
数据库的故障恢复一般是由()来执行恢复。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
简述知觉的基本特征。
男,35岁,无痛性颈部淋巴结肿大1个月。胸部、腹部CT未发现深部淋巴结肿大。淋巴结活检示结构破坏,找到R-S细胞,下列哪项表现一般不出现
X线摄影中表示X线“质”的是
患者因全身关节疼痛,长期服用某药而出现自发性骨折。导致该不良反应的药物是
半夏白术天麻汤主治证的病机是
水利水电工程建设用地的移民安置,应按照就地安置的原则,首先在本乡本县内安置,在本乡本县内安置不了的,应在工程受益地方安置。()
A银行新近推出了一款名为“轻松换房”的个人住房贷款产品,该产品主要针对有改善居住条件需求的客户,该产品的特点有:①通过将客户原有房产进行抵押贷款,弥补客户支付首付款后家庭其他消费资金的不足;②与房产开发商合作,举办“购房让利”活动;③开通贷款“绿色通道”,
政企分开的主要措施包括()。
Thedesiretolearnanewlanguageisoftenbornofadesiretofindadeeperexperienceabroad.Whentravelingtoacountry
Amobilephoneisnolongerjustaphone--itisalsoamusicplayer,videocameraandpersonalorganizer.Andmobilephoneswi
最新回复
(
0
)