首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")
admin
2018-05-08
42
问题
有下面程序代码:
Option Base 1
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
解析
Len函数获取整数的位数并作为For循环的边界。Mid函数从循环变量指定的地方获取字符并赋值给b。Val函数取b的数值。For循环完成对数组a的元素赋值。第二个for循环进行打印。选A。
转载请注明原文地址:https://kaotiyun.com/show/kqGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
运行以下程序后,输出的图案是()。Forml.ClsA$=String$(10,”*”)Fori=1To5n=10-2*iX$=A$:Y$=Space$(n)Mid$(X$,i+1,n)=Y$PrintX$Nexti
如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是()。
关系模型允许定义3类数据约束,下列不属于数据约束的是()。
以下关于变量作用域的叙述中错误的是
下面关于控件数组的叙述中正确的是
现有语句:y=IIf(x>0,xMod3,0)设x=10,则y的值是
数据独立性是数据库技术的重要特点之一。所谓数据独立性是指()。
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
某个工厂有若干个仓库,每个仓库存放有不同的零件,相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是
随机试题
左心的附壁血栓脱落后可引起()
五种恶性电气误操作事故包括()。
根据用途不同,建筑砂浆可分为()等。
打桩时,发现桩、锤、桩架有异常,应()。
买方直接付款方式分为()。
《劳动争议调解仲裁法》规定:劳动争议申请仲裁的时效期间为(),仲裁时效期间从当事人知道或者应当知道其权利被侵害之日起计算。
某企业需要10万元资金用于购置一台设备,银行规定的补偿性余额为20%,该企业需要向银行申请借款( )万元。
(2015年)根据合同法律制度的规定,下列关于委托合同的表述中,正确的是()。
Thiswonderfulbook______(write)byayoungwriterinGermanylastyear.
PoliceLesson:SocialNetworkToolsHaveTwoEdgesOfficerTreyEconomidyoftheAlbuquerquepolicenowrealizesthathesho
最新回复
(
0
)