首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer n=2 For m=1 To 3 Print proc(n); Next m End Sub F
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer n=2 For m=1 To 3 Print proc(n); Next m End Sub F
admin
2018-12-20
62
问题
编写如下程序:
Private Sub Command1_Click()
Dim m As Integer, n As Integer
n=2
For m=1 To 3
Print proc(n);
Next m
End Sub
Function proc(i As Integer)
Dim a As Integer
Static b As Integer
a=a+1
b=b+1
proc=a * b+i
End Function
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、3 3 3
B、3 4 5
C、3 5 6
D、1 2 3
答案
B
解析
变量b定义为Static即静态变量,它的特点是每次调用都会保留上次的值。程序click事件中调用了3次proc(n),即proc(2):
第一次,a=a+1=0+1=1, b=b+1=0+1=1 , proc=a*b+i=1*1+2=3;
第二次,a=a+1=0+1=1, b=b+1=1+1=2 , proc=a*b+i=1*2+2=4;
第三次,a=a+1=0+1=1, b=b+1=2+1=3 , proc=a*b+i=1*3+2=5;
因此输出的结果为3 4 5。
转载请注明原文地址:https://kaotiyun.com/show/qyFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click() X=5:Y=3
在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为( )。
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4 Print NextEndSub程序
下面不能在信息框中输出"VB"的是( )。
以下关系表达式中,其值为True的是( )。
数据字典(DD)所定义的对象都包含于
学生选课成绩表的关系模式是SC(S#,C#,G),其中S#为学号,C#为课号,G为成绩,关系表达式πS#,C#(SC)/S表示
设有表示公司和员工及雇佣的三张表,员工可在多家公司兼职,其中公司C(公司号,公司名,地址,注册资本,法人代表,员工数),员工S(员工号,姓名,性别,年龄,学历),雇佣E(公司号,员工号,工资,工作起始时间)。其中表C的键为公司号,表S的键为员工号,则表E的
下面不属于软件工程的3个要素是
随机试题
出入肝门的结构是()
心理咨询的基本方法不包括
若寒邪中阻,腹痛拒按,宿食不化,舌苔白厚,脉象多见
局限性青少年牙周炎好发牙是
案例 2015年4月21日,C煤矿发生一起特大瓦斯煤尘爆炸事故,死亡147人、重伤2人、轻伤4人,直接经济损失295万元。 C煤矿属地方国营企业。2015年4月21日8时井下停电,约14时30分送电。16时,共有138人相继入井。16时05分,203掘
技术分析指标MACD是由异同平均数和正负差两部分组成,其中()
各责任中心相互提供的产品采用协商定价的方式确定内部转移价格时,其协商定价的最大范围应该是()。
扣球可以分为_______、_______、_______、_______、落地等五个环节。
下面是毛泽东关于第二次世界大战的两段著名的论述,结合相关内容回答问题。毛泽东说过:“像希特勒这样的法西斯国家的政治生命和军事生命,从它出生的那一天起,就是建立在进攻上面的,进攻一完结,它的生命也就完结了。”“……斯大林格勒一役,是他的灭亡的
矛盾的斗争性是指矛盾着的对立面之间的
最新回复
(
0
)