首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Dim ilum As Integer,r As Integer,n As Integer,i As Integer,art(5)As Integer Private Sub Command1_Click() num
编写如下程序: Dim ilum As Integer,r As Integer,n As Integer,i As Integer,art(5)As Integer Private Sub Command1_Click() num
admin
2019-06-11
33
问题
编写如下程序:
Dim ilum As Integer,r As Integer,n As Integer,i As Integer,art(5)As Integer
Private Sub Command1_Click()
num=12:r=2
Call subl(num,r,n)
For i=n To 1 Step -1
Print art(i);
Next i
End Sub
Sub sub 1(d As Integer,r As Integer,k As Integer)
k=0
Do While d<>0
k=k+1:arr(k)=d Mod r:d=d\r
Loop
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、1 1 0 0
B、0 0 1 1
C、0 1 0 1
D、1 0 1 0
答案
A
解析
本题实际上是在子过程subl中对arr数组进行的赋值工作,形参d的值为12,r的值为2,k的初值为0;在循环中计算d除以2的余数放到数组的第一个元素,整除2后再除以2的余数放到第二个元素……以此类推,最后数组arr中存放的是(0、0、1、1),在Command1_Click()过程中调用完子过程对数组进行赋值以后,逆序输出了数组的值。
转载请注明原文地址:https://kaotiyun.com/show/U3Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的执行结果是()。PrivateSubCommand1_Click()a=0k=1DoWhilek
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是()。
以下数组定义语句中,错误的是()。
有如下程序代码:PrivateSubForm_Click()DimxAsInteger,yAsInteger,numAsIntegerx=3y=xDoUntilx>=6num
向文本框中输入字符时,下面能够被触发的事件是()。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为Image1的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名
以下关于DoUntil…Loop循环的说法正确的是()。
数据流图中带有箭头的线段表示的是
随机试题
A.磨切基牙牙体组织较少的是哪一种固定桥B.倒凹区牙面与基牙长轴之间构成角度C.就位道与脱位道之间形成的角度D.模型固定在观测台上,牙冠轴面最突点所画出的连线E.用来确定基牙的倒凹区和非倒凹,选择卡环类型,确定义齿共同就位道的仪器下述内容中,与
最常转移到局部淋巴结的肿瘤是
A.呋喃唑酮B.甲氧苄啶C.氧氟沙星D.磺胺嘧啶E.甲硝唑能引起儿童软骨发育不良的药物是()
根据《国务院关于投资体制改革的决定》,实行备案制的企业投资项目,一般由企业按属地原则向地方政府()备案。
利用气体火焰的热能将工件切割处预热到一定温度后喷出高速切割氧流,使金属燃烧并放出热量而实现切割的方法是( )。
人的抗辩,又称相对抗辩或主观抗辩,是票据债务人仅可以对特定的票据债权人提出的抗辩,包括()的抗辩。
公民、法人或者其他组织认为具体行政行为侵犯其合法权益的,可以自知道该具体行政行为之日起一定期限内提出行政复议申请,该期限为( )。
我国《婚姻法》规定,结婚必备的条件有
已知事件A与B互不相容,则=_______,=______,=______.
下列程序的运行结果是()。#includemain(){staticchara[]="Languagef",b[]="programe";char*p1,*p2;intk;p1
最新回复
(
0
)