首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
假定编写了如下的Sub过程: Public Sub Proc(a()As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i
假定编写了如下的Sub过程: Public Sub Proc(a()As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i
admin
2019-03-14
23
问题
假定编写了如下的Sub过程:
Public Sub Proc(a()As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
编写如下事件过程:
Private Sub Form_Click()
Dim in As Integer,i As Integer,x(4)As Integer
For i=0 To 4
x(i)=i+1
Next i
For i=1 To 2
Call Proc(x())
Next i
For i=0 To 4
Print x(i);
Next i
End Sub
运行程序,单击窗体,输出结果是( )。
选项
A、3 4 7 5 6
B、3 5 7 4 5
C、2 3 4 4 5
D、4 5 6 7 8
答案
B
解析
单击窗体时,触发Form_Click事件,在Form_Click事件过程中,定义了两个整型变量m和i,同时定义了一个可以存储5个整型元素的一维数组x,然后通过第一个For循环给数组元素赋值,其中x(0)=1,x(1)=2,x(2)=3,x(3)=4,x(4)=5;第二个For循环共执行两次,每执行一次,调用过程Proc一次,且数组作为实际参数,传递的形式为按地址传递,即被调用过程对数组元素的改变会影响主调过程中数组元素的值。在被调用过程Proc中,定义了一个静态局部变量i,静态局部变量有一个很重要的特性就是在程序运行过程中,会自动保留上次执行的结果,即第一次调用Proc过程结束后变量i的值会被“记忆”住,作为下次调用Proc的初始值。两次调用Proc过程,各变量的值如下表所示。
a(3)和a(4)的值不受影响,还是初始值,最后通过Form_Click事件过程中的第三个For循环将数组结果输出,所以B选项正确。
转载请注明原文地址:https://jikaoti.com/ti/fYm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是
现有如下程序:PrivateSubCommand1_Click() s=0 Fori=1To5 s=s+f(5+i) Next PrintsEndSubPublicFunctionf(xAsInteger
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
(1)在考生文什央下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
以下关于窗体的叙述中,错误的是
能够被窗体或控件所识别的操作称为
有关系R如下,其中属性B为主键:则其中最后一个记录违反了
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimI,Num Randomize Do ForI=1To1000 Num=Int(Rnd*
下面叙述中错误的是
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
随机试题
肝硬化的特征性病变是
可作为B群链球菌的特异性鉴定的试验
善于治疗髓之病证的是( )
A.先兆流产B.难免流产C.稽留流产D.完全流产E.不全流产容易发生失血性休克的是()
以下说法正确的有()。
为了督促学生完成作业,班主任将下午最后一节课延长了半小时来写作业,写完作业的学生才可以回家,没有做完的还要继续留下来。班主任的做法()。
不可译性
singeone’swings
请在“答题”菜单下选择“字处理”命令,然后按照题目要求再打开相应的命令,完成下面的内容,具体要求如下:设置表格外框线为1.5磅蓝色双实线,内框线为0.5磅红色单实线;为表格第一行添加“黄色”底纹;按“货币名称”列(依据“拼音”类型)升序排列表格内容。
A、Somerecentgradshavetroublecontrollingtheirwork.B、Itisalwayshardtoavoidgivingupweekendsandworkinglatenights
最新回复
(
0
)