首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
35
问题
编写如下程序:
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://kaotiyun.com/show/DhTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于通用对话框的叙述中,错误的是
如果一个菜单项的Enabled属性被设置为False,则程序运行时,该菜单项
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Cbol的组合框,组合框的列表项分别是:北京、天津、上海。请设置组合框的参数,使其外观如图3—6所示。窗体的标题是“用组合框
下列有关过程的叙述中错误的是()。
下列程序段的执行结果为()。x=Int(Rnd+4)SelectCasexCase5:Print"AClass"Case4:Print"BClass"Case3:Print"CCla
下面的程序执行完毕后,组合框中数据项的值是()。PrivateSubForm_Click0Fori==1To6Combo1.AddItemiNextiFori=1To3
定义部门关系模式如下:部门(部门号,部门名,部门成员,部门总经理),使它不满足第一范式的属性是()。
在快速排序法中,每经过一次数据交换(或移动)后()。
设变量x的值是845,则下面语句的输出是()。Printx\100+(xMod100)\10+xMod10
随机试题
MATLAB也是一种能用于数值计算的高级程序设计语言。()
组成中均含有玄参、生地、麦冬的方剂是
男性,65岁,因胃癌合并上消化道大出血,出血量约1000ml,给予快速输血1000ml,病人突然出现胸闷、憋气、咳血性泡沫样痰。查体:紫绀,静颈脉怒张,双肺可闻湿哕音
铸造金属舌面板最适合于下列各项,除了
在生产管理上,()是制定定额,计算劳动量,配备工人,核算生产能力,安排生产作业计划,进行质量检验和班组经济核算的基本单位。
X:当一种很少发生但很严重的工业事故发生时,人们的反应是认为这种事故越来越频繁了。这种想法是没有道理的。毕竟,在某一把扑克牌中起到4张A这一稀有的事并不能增加将来某把牌起到4张A的机会。Y:正相反,该看法是合理的。因为它使人们感觉到他们以前没有感觉
In1784,fiveyearsbeforehebecamepresidentoftheUnitedStates,GeorgeWashington,52,wasnearlytoothless.Sohehireda
在考生文件夹下,打开文档Wordl.docx,按照要求完成下列操作并以该文件名Wordl.docx保存文档。在页面顶端插入“奥斯汀”样式页眉,并输入页眉内容“通信知识”。在页面底端插入“普通数字3”样式页码,设置页码编号格式为“I、II、Ⅲ、……”、起
在标准ASCII码表中,英文字母A的十进制码值是65,英文字母a的十进制码值是
Blair:Hello.MayIspeaktoMr.Smith?Steve:______Wouldyouliketoleaveamessage?
最新回复
(
0
)