首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(名称为Command1),并编写如下代码: Function Fun1(ByVal a As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+a
在窗体上画一个命令按钮(名称为Command1),并编写如下代码: Function Fun1(ByVal a As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+a
admin
2019-03-14
38
问题
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:
Function Fun1(ByVal a As Integer, b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1_Click()
Dim x As Integer
x=10
Print Fun1(Fun1(x,(Fun1(x, x-1))), x-1)
End Sub
程序运行后,单击命令按钮,输出结果是( )。
选项
A、10
B、0
C、11
D、21
答案
B
解析
本题是过程的嵌套调用,过程嵌套调用时要先计算最内层的过程,然后由里向外执行。因此Fun1(Fun1(x,(Fun1(x, x-1))), x-1)执行过程如下:
先执行Fun1(x, x-1),由于形参a是按值传递,因此不会影响x的值,x=10,即Fun1(10,9)。t=1,b=1+10=11,则函数返回值为1+11=12。
再执行Fun1(x,(Fun1(x, x-1))),由于内层过程返回12,因此又可写成Fun1(x,(12)),由于x仍为原值,因此过程即Fun1(10,12)。t=-2,b=-2+10=8,则函数返回值为-2+8=6。
最后执行Fun1(Fun1(x,(Fun1(x, x-1))), x-1),即Fun1(6, x-1),由于x仍为原值,因此过程即为Fun1(6,9)。t=-3,b=-3+6=3,则函数返回值为-3+3=0。
转载请注明原文地址:https://kaotiyun.com/show/7pFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据库设计中,将E-R图转换成关系数据模型的过程属于
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
以下关于窗体的叙述中,错误的是
对于语句DimVar1#,Var2AsInteger,下列说法中正确的是
以下合法的VB变量名是
有两个关系R和S如下:则由关系R得到关系S的操作是
下列关于顺序文件的描述中,正确的是
对于循环队列,下列叙述中正确的是
随机试题
女,20岁,2周前出现咽痛,近2天心悸、畏寒,甲状腺轻度肿大但压痛明显,体温38℃,T3、T4中度升高,131I摄取率最高为4%,其诊断可能为
对于β受体阻断药不属于禁用或慎用的是
根据商业银行法律制度的规定,商业银行发生的下列事项中,无须经银监会批准的是()。
乐观系数决策标准是决策者对未来情况持较乐观的态度,且又考虑到不利形势产生的影响,又称()准则。
在行动研究中,被研究者是研究的()。
我国采用广义的民法概念,其外延包括
面对预算困难,W国政府不得不削减对于科研项目的资助,一大批这样的研究项目转而由私人基金资助。这样,可能产生争议结果的研究项目在整个受资助研究项目中的比例肯定会因此降低,因为私人基金资助者非常关心其公众形象,他们不希望自己资助的项目会导致争议。以下哪
Museumshavechangedalot.Theyarenolongerplacesthatpeople"shouldgo"butplacespeopleenjoy.AtasciencemuseuminCa
Whateventisbeingannounced?
HowtoapproachReadingTestPartFour•ThispartoftheReadingTesttestsyourvocabulary•Readthewholetextquicklytofi
最新回复
(
0
)