首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") Forvk=1 To Len(x) b=Mid(x,k,
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,x,b x=InputBox("请输入一个多位整数") Forvk=1 To Len(x) b=Mid(x,k,
admin
2019-01-17
46
问题
有下面程序代码:
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer,x,b
x=InputBox("请输入一个多位整数")
Forvk=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://jikaoti.com/ti/H2m0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommand1_Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)
有下面程序代码:PrivateSubCommand1_Click()Fork=5To1Step-1x=k+x*10NextkPrintxEndSub程序运行后,单击命
判断单选按钮是否被选中的属性为
若在窗体模块的声明部分声明了如下自定义类型和数组:PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是( )。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=Inpu
为了在程序运行时弹出一个菜单,程序中应使用()。
下列关于菜单的描述中错误的是()。
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得fix0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回fix)
随机试题
王某设立个人独资企业后,因业务发展需要在外地设立分支机构,则该分支机构的民事责任由()。
在尚未冷却的沥青混合料面层上,()停放任何机械设备或车辆,不得散落矿料,油料等杂物。
押品管理是指押品的受理、审查、评估、权利设立、监控、返还与处置等一系列活动。下列选项中,属于押品管理所应遵循的原则的有()。
某企业需借入资金120万元,由于银行要求将贷款数额的20%作为补偿性余额,故企业需向银行申请的贷款数额为()。
根据我国刑事诉讼法的规定,能够直接受理刑事案件的机关:()
行政法律关系中最主要的是行政机关与公务员之间的权利义务关系。()
在某次数学竞赛中,有单选题20道,每题1分,有20分的基础分,答对一题得3分,不答得1分,答错一题扣1分,若有2000人参加竞赛,则至少有()人得分相同。
执法人员当场作出行政处罚决定的,应当向当事人出示执法身份证件,填写预定格式、编有号码的行政处罚决定书。行政处罚决定书应当当场交付当事人。()
Digitaldivideissomething______.
Internationalairlineshaverediscoveredthebusinesstravelers,themanorwomanwhoregularlyjetsfromcountrytocountryas
最新回复
(
0
)