首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
23
问题
编写如下程序:
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全国计算机二级
相关试题推荐
下面4个选项中,不是窗体属性的是()。
数据结构主要研究的是数据的逻辑结构、数据的运算和()。
对序线性表(23,29,34,55,60,70,78)用二分法查找值为60的元素时,需要比较次数为()。
有下面程序代码:PrivateSubCommandl—Click()a=3s=0Fork=1To5s=s+aModka=a+kNextkPrintsEndSub程序运行后,单击命令按钮Command1,输出结果是(
执行以下程序段:a$=“VisualBasicProgramming”b$=“C++”C$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
设有变量声明:Dima,bAsInteger,c!,d%,e#,fAsLong其中所有的整型变量是()。
关系数据模型的三个组成部分中不包括()。
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Lbel4和Label3中(窗体外观如图所示
为了清除列表框中指定的项目,应使用的方法是( )。
在面向对象方法中,不属于“对象”基本特点的是()。
随机试题
在一间酒吧里有3个音乐爱好者队列,第1队的音乐爱好者只有随身听,第2队只有音乐磁带,第3队只有电池。而要听音乐就必须随身听、音乐磁带和电池这3种物品俱全。酒吧老板一次出售这3种物品中的任意两种。当一名音乐爱好者得到这3种物品并听完一首乐曲后,酒吧老板才能再
心肌传导细胞4期自动去极是由于()
七情刺激,易导致心气涣散的是
[2010年第116题]关于粮食仓库耐火等级的确定,下列不符合《建筑设计防火规范》规定的是:
采用数据电文形式订立合同,收件人未指定特定系统的,数据电文进入收件人的任何系统的首次时间,视为要约或者承诺到达时间。()(20D3年试题)
体积为9π立方厘米和27π立方厘米的两个实心金属球熔成一个新的实心金属球,问新的金属球表面积是多少?
以下关于我国的立法体制,说法不正确的是()
若256KB的SRAM具有8条数据线,则它具有( )条地址线。
已知IP=1000H,(SP)=2000H,(BX)=283FH,CALL WORD PTR [BX]指令的机器代码是 FF17H,试问执行该指令后,(IFFEH)=( )
VN程序中函数f的功能是:当flag为1时,进行由小到大排序;当flag为0时,进行由大到小排序。yoidf(intb[],intn,intflag){inti,j,t;for(i=0;i<n-1;i++)for(j=i+lj<nj++)if(f
最新回复
(
0
)