首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Dim num As Integer, r As Integer, n As Integer, i As Integer Dim arr(5) As Integer Private Sub Command1_Click() num =
编写如下程序: Dim num As Integer, r As Integer, n As Integer, i As Integer Dim arr(5) As Integer Private Sub Command1_Click() num =
admin
2019-03-14
58
问题
编写如下程序:
Dim num As Integer, r As Integer, n As Integer, i As Integer
Dim arr(5) As Integer
Private Sub Command1_Click()
num = 12: r = 2
Call sub1(num, r, n)
For i = n To 1 Step -1
Print arr(i);
Next i
End Sub
Sub sub1(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
解析
sub1函数对全局数组arr元素赋初值,sub1函数参数传递均为默认的引用传递。因此执行完后n值被修改。Command1_Click()事件中的For循环对arr数组元素进行倒序输出。选A)。
转载请注明原文地址:https://kaotiyun.com/show/osUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一命令按钮和一文本框,其名称分别为Commandl和Text1,然后编写如下程序:FunctionFun(xAsInteger,YAsInteger)AsIntegerFun=IIf(x
下面不是键盘事件的是
下列选项中不属于结构化程序设计原则的是
有数据定义语句:DimX,YAsInteger以上语句表明
数据字典(DD)所定义的对象都包含于
在E-R图中,用来表示实体联系的图形是
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Labell、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、
用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是()。
设有如卞关系表:则下列操作中正确的是
随机试题
A.肾上腺素B.去甲肾上腺素C.激肽D.乙酰胆碱E.血管升压素由肾上腺髓质释放的数量占多数的心血管活性物质是
具有转运内源性胆固醇功能的脂蛋白是
拔除残根时,最容易进入上颌窦的是()
受到外界刺激时,牙本质小管中的成牙本质细胞突起变性,矿物质沉积.封闭牙本质小管,这部分矿化的牙本质称为牙本质死区。()
发行人向中国证监会报送申请文件前,或在报送申请文件后且证券尚未发行前更换为本次发行证券所聘请的律师或律师事务所的,更换后的律师或律师事务所及发行人应向中国证监会分别说明。()
阅读材料,根据要求完成教学设计。材料一《普通高中物理课程标准(实验)》关于“电容、电感与交流电”的内容的要求为:“通过实验,了解电容器和电感器对交变电流的导通和阻碍作用。”材料二高中物理某教科书“电感和电容对交变电流的影响”一节的部分内容。材料
2010年全国完成税收总收入73202亿元,同比增收13681亿元,比上年同期增长加快了13.2个百分点。 2010年增值税收入21091.95亿元,同比增长14.1%,比上年同期增速加快了11.4个百分点。2010年成品油、原油和煤炭行业增值税同比
美国人汤姆最近发明了永动机。如果上述断定为真,则以下哪项一定为真?
Recentresearchhadclaimedthatanexcessofpositiveions(离子)intheaircanhaveanill-effectonpeople’sphysicalorpsych
Theresearchersstresstheurgencyofpreservingoldvarietiesasbothdisease-resistantstrainsandonesthatwillthrivewitho
最新回复
(
0
)