首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer Private Sub Command l_ Click() num=12:r=2 Cal
编写如下程序: Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer Private Sub Command l_ Click() num=12:r=2 Cal
admin
2020-01-02
99
问题
编写如下程序:
Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer
Private Sub Command l_ Click()
num=12:r=2
Call subl(nurn,r,n)
For i=n To 1 Step-1
Print arr(i);
Next i
End Sub
Sub sub 1(d As Integer,r As Integer,k As Integer)
k=0
Do Whil
选项
A、1 1 0 0
B、0 0 1 1
C、0 0 0 1
D、1 0 1 0
答案
A
解析
本题实际上是在子过程subl中对arr数组进行的赋值工作,形参d的值为12,f的值为2,k的初值为0;在循环中计算d除以2的余数放到数组的第一个元素,整除2后再除以2的余数放到第二个元素……以此类推,最后数组arr中存放的是(0、0、1、1),在Commandl—Click()过程中调用完子过程对数组进行赋值以后,逆序输出了数组的值。
转载请注明原文地址:https://www.kaotiyun.com/show/DhTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
通用对话框Filter属性的作用是
下面程序计算并输出的是()。PrivateSubCommand1_Click()Num=10:Sum=0DoSum=Sum+Num*Num*NumNum=Num-1LoopUnti1N
InputBox函数返回值的类型为()。
设一棵满二叉树共有15个结点,则在该满二叉树中的叶子结点数为()。
语句PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")的输出结果是()。
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1,2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Labe12、标题为“各行平均值的最小值为”的标签,再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所
下列关于控件焦点的叙述中正确的是()。
学校的数据库中有表示系和学生的关系:系(系编号,系名称,系主任,电话,地点),学生(学号,姓名,性别,入学日期,专业,系编号),则关系学生中的主键和外键分别是()。
设变量x的值是845,则下面语句的输出是()。Printx\100+(xMod100)\10+xMod10
设a=10,b=4,c=5,d=7,表达式a>bAndNotc
随机试题
1957年,《()教育》杂志停办,标志着美国教育史上一个时代的结束。
何项检查对癫痫最有辅助诊断意义
甲研究院与张某签订设备购销技术服务合同,合同约定由甲研究院供应张某一套JD-4型电焊条设备,并提供技术服务,让张某掌握该技术并投入生产,张某支付技术转让及服务款。合同签订后,张某即支付了约定款项,将设备运回,并根据甲研究院提供的设备生产能力租赁了厂房,购买
适用于边设计、边施工的紧急工程或灾后修复工程的合同模式是()。
根据《国家新型城镇化规划(2014~2020年)》,培育发展中西部地区城市群应采取的措施不包括()。
根据下图回答以下问题
你和一个同学同入一个部门,做出的成绩相同。几年后他升迁了,你没动。你如何想?
ExerciseCutsCancerDeathsinMen Menwhoexerciseoftenarelesslikelytodiefromcancerthanthosewho(51),newresear
Nowadays,oursocietyisbeingreshapedbyinformationtechnologies—computers,telecommunicationsnetworks,andotherdigitalsy
Digestion______thenecessarychemicalchangesinthefoodwhichmustoccurbeforeitcanbeabsorbed.
最新回复
(
0
)