首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Dim nurrlAs Integer,rAs Integer,nAs Integer,iAs Integer,art(5)As Integer Private Sub Command l Click() num=12:r=2 Call s
编写如下程序: Dim nurrlAs Integer,rAs Integer,nAs Integer,iAs Integer,art(5)As Integer Private Sub Command l Click() num=12:r=2 Call s
admin
2015-12-09
60
问题
编写如下程序:
Dim nurrlAs Integer,rAs Integer,nAs Integer,iAs Integer,art(5)As Integer
Private Sub Command l Click()
num=12:r=2
Call sub1(num,r ,n)
For i=n To 1 Step-1
Print art(i);
Next i
End Sub
Sub subl(dAs Integer,rAs.Integer,kAs Integer)
k=0
Do While d<>0
选项
A、1 1 0 0
B、0 0 1 1
C、0 1 0 1
D、1 0 1 0
答案
A
解析
本题实际上是在子过程subl中对a11r数组进行的赋值工作,形参d的值为12,r的值为2,k的初值为0;在循环中计算d除以2的余数放到数组的第一个元素,整除2后再除以2的余数放到第二个元素……以此类推,最后数组arr中存放的是(0、0、1、1),在Commandl Click()过程中调用完子过程对数组进行赋值以后,逆序输出了数组的值。
转载请注明原文地址:https://kaotiyun.com/show/nALp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下关系表:RSTABCABCABC112313
以下程序代码实现单击命令按钮Commandl时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。Dimalt(1To20)Fori=1To20arr(i)=NextiS
下列程序段的执行结果为()。a=0:b=0Fori=-1To-2Step-1Forj=1To2b=b+1Nextja=a+1NextiPrinta;b
窗体上有1个名称为CD1的通用对话框,1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommandl_Click()CD1.FileName=""CD1.Filter="AllFi
下面是窗体Forml的Crick事件过程,实现运行时每次单击窗体,窗体均向右移动100的是()。PrivateSub______StaticIntleftAsIntegerInfiefi=Intleft+100
在窗体上画一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同
随机试题
杜某大学毕业后被某流通科技有限公司录用,双方约定好了工作岗位、工作内容和工资待遇等,但没有签订书面劳动合同,工作至今已3个月。该公司和杜某之间的劳动关系是()。
下列争议不适用《劳动法》的有:
监理机构对施工组织设计审查的内容包括()。
雨期填筑路堤时,路堤应分层填筑,每一层的表面应()。
根据道路对交通运输所起的作用把道路分为()。
资产评估的主体是指()。
用人单位应当建立职工名册备查,下列项目中,()不属于职工名册应当包括的内容。
十八世纪德国著名文学家歌德,早年创作的一部以青年男女恋爱为主题,并曾对我国“五四新文化运动”作家产生过影响的小说是()。
如果你要创建一家成功的公司,你必须在一件事情上做得最好,比如你的产品比别人做得好;别人也做得一样好时,你比别人快;别人也同样快时,你比别人成本低;别人的成本也一样低时,你比别人附加值高。下面哪项最不接近上面这段话的意思?
[*]
最新回复
(
0
)