首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer Private Sub Command l_Click()
编写如下程序: Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer Private Sub Command l_Click()
admin
2020-01-02
62
问题
编写如下程序:
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(num,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 While d<>0
k=k +1:arr(k)=d Mod r:d=d\r
Loop
End Sub
程序运行后,单击命令按钮Commandl,输出结果为
选项
A、1 1 0 0
B、0 0 1 1
C、0 1 0 1
D、1 0 1 0
答案
A
解析
本题实际上是在子过程sub1中对arr数组进行的赋值工作,形参d的值为12,r的值为2,k的初值为0;在循环中计算d除以2的余数放到数组的第一个元素,整除2后再除以2的余数放到第二个元素……以此类推,最后数组arr中存放的是(0、0、1、1),在Commandl_Click()过程中调用完子过程对数组进行赋值以后,逆序输出了数组的值。
转载请注明原文地址:https://kaotiyun.com/show/fbTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是()。PrivateSubCommand1_Click()Picture1.Picture=LoadPicture("c:\picture.jpg")
在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()x=0d0Whilex
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
有如下函数:Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea>=na=a-n:m=m+lWend
(1)在名称为Form1的窗体上添加一个计时器控件,名称为Timerl。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体的标题设置为“题目2”。设计阶段的窗体如图3.73所示。(2)在名称为
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Framel、标题为“项目”的框架;框架内有1个名称为opt1的控件数组,该控件数组含有三个标题分别为“篮球”“排球”“足球
下列关于函数过程的叙述中,正确的是()。
以下VisualBasic不支持的循环结构是
以下数据结构中,属于非线性数据结构的是()。
随机试题
下列关于中国古琴的说法中,正确的是()。
A.TATA盒B.GC盒C.CAAT盒D.CCAAT盒(2010年第132题)转录因子Spl的结合位点是
A.60°B.30°C.25°D.15°E.45°上颌窦癌两夹角50°照射时,楔形角应取
A.靠近抗原孔B.靠近抗体孔C.在两孔之间D.呈多条沉淀线E.不出现沉淀线双扩试验平板法中,若抗原含量较大,则反应沉淀线应
在估价中测算开发利润应掌握()。
教师讲课过程中的间隔和停顿是运用感知的()。
美国是一个移民国家,学校的学生来自不同的种族与家庭,通过接受系统的学校教育,学生掌握现代文化知识,建立独特的族群和阶层文化,社会也因此充满生机与活力。这主要体现了教育的()
刑法规定,故意杀人情节较轻的,处3年以上10年以下有期徒刑。对此追诉期限为()。
JohnaswellasJack______justbeenbackfromanimportantmeeting.
CareerBuilder.comnowoffersthemostfunctionalandeasy-to-useonlinejobsearchforScience&Biotechjobs.Infact,therea
最新回复
(
0
)