首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
2020-01-02
15
问题
编写如下程序:
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/8QTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)考生文件夹中有工程文件sjt3.vbp。其窗体上已有部分控件。在窗体上添加含有两个单选钮的控件数组,其名称为Option1,单选按钮的下标分别为0、1,Caption.属性分别为“驱动器为C”及“列txt文件”,如图3—12所示。运行程序时,驱动器列
以下()操作不能触发滚动条Change事件。
执行下面的程序段后,变量S的值为()。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
使用菜单编辑器设计菜单时,必须输入的项是()。
定义部门关系模式如下:部门(部门号,部门名,部门成员,部门总经理),使它不满足第一范式的属性是()。
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为()。
下面可以作为软件需求分析工具的是()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是()。
面向对象方法中,继承是指( )。
随机试题
患者,慢性支气管炎肺气肿20年,冠心病5年,呼吸困难加重2d,意识障碍1h来诊。查体:浅昏迷,呼吸困难,口唇发绀,球结膜水肿,血压170/110mmHg,双肺散在干啰音,中下部湿哕音,心率128/min,节律不整,肝略大,下肢水肿(±)。该患者经抢救治疗后
在事件树分析中,事故是()引发的结果。
有线电视信号传输一般可采用的传输方式有()。
某大型购物中心地下2层,地上5层,建筑高度30m,耐火等级2级。地下二层室内地面与室外出入口地坪高差为11.5m。地下每层建筑面积为152000m2,地下二层设置汽车库和变配电房、消防水泵房等设备用房及建筑面积为5800m2的建材商场;地下一层为家具灯饰商
根据我国《仲裁法》的规定,当事人有证据证明仲裁裁决依法应当撤销的,可向仲裁委员会所在地的中级人民法院申请撤销裁决的期限是()。
永青假发店是上海第一家假发店,清咸丰十年创办,后重点经营假发,以自产自销为主。假发品种之多,为全市之冠。()
作为可再生新能源,风能具有无污染、永不枯竭、综合社会效益高、研发成本相对低等特点。然而,风能行业建设投资回收周期长,客观上需要长期、稳定的优惠政策保障。美国风能增长潜力很大,但因美政府对风能税收鼓励政策不稳定,使包括中国风能企业在内的国际投资者在美国风能市
下列说法错误的是()。
学生在考试时,回答简答题的记忆活动主要是
VerylittlerainfellonSymi.The76______peoplehavesavedeverydroptheycould.77______Butithasneverbeenenoughfort
最新回复
(
0
)