首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
105
问题
有下面程序代码:
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://kaotiyun.com/show/9gFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面的程序段:x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是
编写如下程序:PrivateSubCommand1_Click()DimxAsString,yAsStringx=Right("abcd",2)y=Mid("dcba",2,3)Ifx>
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger) …EndSub则下面叙述中错误的是( )。
以下叙述中错误的是( )。
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。
为了使标签Label1透明且不具有边框,以下正确的属性设置是
设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程中不能实现此功能的是( )。
下面属于黑盒测试方法的是
下面对对象概念描述正确的是
在VisualBasic标准工具栏中,"菜单编辑器"的图标是
随机试题
A、胆囊内强回声光团,随体位改变B、声影C、两者均有D、两者均无胆囊息肉的B超显示为
A肾小球毛细血管血压下降B肾小球滤过总面积减小C滤过膜通透性减小D血浆胶体渗透压升高E囊内压升高输尿管结石时尿量减少的原因是
肉桂人煎剂、研末冲服时的剂量分别是()
下列对招标公告的有关叙述中,说法正确的是( )。
企业所有者权益等于()。如果该公司为进一步扩大业务,从银行借款20万元,那么该公司所有者权益()。
患者,男,50岁,6年前开始有咳嗽和咳痰,逐年加重,常持续数月,多次胸片示两肺纹理增粗。首先应考虑为()。
Perhapsthemostfamiliarplantmovementbelongstoonespeciesofmimosacalledthesensitiveplant.Withinseconds,itcanlow
组成一个计算机系统的两大部分是
用8位二进制数能表示的最大的无符号整数等于十进制整数______。
AccordingtoBT’sfuturologist,IanPearson,theseareamongthedevelopmentsscheduledforthefirstfewdecadesofthenewmil
最新回复
(
0
)