首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() Dim k As Integer For k = 1 To 3 Call fun(k) Next k For k = 1 To 3
有下面程序代码: Private Sub Command1_Click() Dim k As Integer For k = 1 To 3 Call fun(k) Next k For k = 1 To 3
admin
2019-03-14
65
问题
有下面程序代码:
Private Sub Command1_Click()
Dim k As Integer
For k = 1 To 3
Call fun(k)
Next k
For k = 1 To 3
Call proc(k)
Next k
End Sub
Private Sub fun(x As Integer)
Static a As Integer
a = a + 1
Print a * x;
End Sub
Private Sub proc(x As Integer)
Dim a As Integer
a = a + 1
Print a * x;
End Sub
运行Command1_Click过程产生的输出是
选项
A、1 2 3 1 2 3
B、1 4 9 1 2 3
C、1 4 9 1 4 9
D、1 2 3 1 4 9
答案
B
解析
本题中fun()函数内声明Static局部变量,该变量在程序执行到该对象的声明处时被首次初始化,即以后的函数调用不会被初始化,其值始终驻留在全局数据区,直到程序运行结束。在过程fun()中对a值的改变在下次调用时a值仍为上次调用结束时的值。Command1_Click()过程中的第一个For循环执行3次,即fun()过程被调用3次,静态局部变量a具有保留上次执行结果的特点,三次循环a的值分别为1,2,3。所以3次输出的值为1,4,9。而Command1_Click()过程中的第二个For循环也执行3次,即proc()过程也被调用3次,每次局部变量a的初始值均为0,执行a=a+1后,a=1。所以3次输出的值为1,2,3。故正确答案为选项B。
转载请注明原文地址:https://kaotiyun.com/show/BdFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
在程序中发现有语句:Put#1,2,num并且能够正确执行,因此可以判断
软件生命周期中,确定软件系统要做什么的阶段是
以下表达式与Int(3.5)的值相同的是
有如下数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行上述语句后,不是整型变量的是
在窗体模块的声明部分声明变量时,不能使用的关键字是
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
,设:a=2,b=8,c=6,d=3,表达式a>bAndN0tfc>d1Ord>c的值是
随机试题
按照《戒毒药品管理办法》,下列关于戒毒药品使用管理的论述,正确的是
在低倍数泡沫灭火系统中,可用于液下喷射方式扑救大型储油罐等场所火灾的泡沫液是()。
构成业务网的主要技术要素不包括()。
被评估企业以机器设备向B企业直接投资,投资额占B企业资本总额的20%。双方协议联营10年,联营期满B企业将按机器设备折余价值25万元返还投资方。评估时双方联营已有5年,前5年B企业的税后利润保持在50万元水平,投资企业按其在B企业的投资份额分享收益,评估人
甲公司于2012年6月向国务院专利行政部门提出某产品生产方法的专利申请,2015年10月被授予专利权。已知乙公司2012年1月已经以相同的方法生产出该种产品。根据专利法律制度的规定,下列未经甲公司许可而实施的行为中,属于侵犯甲公司专利权的是(
1,3/2,11/6,25/12,( )。
下列选项中。对收文处理环节理解错误的是:
赫尔巴特的追随者们将其四步教学模式改造为著名的“五步教学法”这五个教学法阶段是()
设计窗体时,双击窗体上没有控件的地方,打开的窗口是( )。
完成句子。例如:那座桥800年的历史有了那座桥有800年的历史了。什么时候聚会是你们的
最新回复
(
0
)